上海普通高校非計算機專業(yè)學生VB試題

1、2001年上海普通高校非計算機專業(yè)學生計算機等級考試試卷二級（Visual Basic程序設計）（本考試采用上機形式，考試時間為150分鐘）一、單選題（15分，每小題1分）1. Visual Basic是一種面向對象的程序設計語言， 不是面向對象系統(tǒng)所包含的三要素。A. 變量B. 事件C. 屬性D. 方法2. Visual Basic的一個應用程序至少包含一個 文件，該文件存貯窗體上使用的所有控件對象和有關的 、對象相應的 過程和 代碼。A. 模塊、方法、事件、程序B. 窗體、屬性、事件、程序C. 窗體、程序、屬性、事件D. 窗體、屬性、事件、模塊3. 表達式"123" &

2、amp; "100" & 200的值是 。 A. 123300B. 423C. "123100200"D. 123100200 4. 設CurrentX=200，CurrentY=400，執(zhí)行指令“Line (100, 250) -(350, 500), , B”后，CurrentX = 。A. 100B. 200C. 350D. 5505. 按照Visual Basic默認規(guī)定，數(shù)組聲明Dim a(2, 2, 5)共有 個元素。A. 9B. 20C. 45D. 54 6. 聲明一個長度為10個字節(jié)的字符串變量mstr，應使用 。 A. Dim

3、mstr As 10B. Dim mstr(10) As String C. Dim mstr As String * 10D. Dim mstr As String(10)7. 數(shù)據(jù)類型中的變體型可以包括數(shù)值型、日期型、對象型和字符型等數(shù)據(jù)，此外，它還可以包含4個特殊的數(shù)據(jù)： 和Nothing。A. Error、Object、NullB. Error、Empty、Object C. Empty、Object、TypeD. Empty、Error、Null8. 從循環(huán)體 Do WhileLoop中退出，繼續(xù)執(zhí)行循環(huán)體后面的命令，應使用 。A. ExitB. Exit DoC. Exit Do

4、WhileD. Exit Loop9. 下列命令中 可實現(xiàn)對二進制文件的讀操作。 A. ReadB. GetC. Line InputD. Put10. 在Visual Basic中要將一個正在運行的窗體隱含在內存中，應該使用語句 。A. ShowB. HideC. LoadD. UnLoad11. 設置窗體上的控制菜單可通過 屬性來完成。A. ControlBoxB. MaxButtonC. MinButtonD. DrowMode12. 如果組合框ComBo1中已有10項數(shù)據(jù)，應使用語句 將數(shù)據(jù)“Mydata”插入到第5項。A. ComBo1.AddItem "Mydata&qu

5、ot;, 5B. ComBo1.AddItem "Mydata", 4 C. ComBo1. Insert "Mydata", 5D. ComBo1.Insert "Mydata", 413. Timer控件可用于后臺進程中，要使Timer事件每半秒鐘觸發(fā)一次，則需設置Interval屬性為 。 A. 0.5B. 5C. 50D. 500 14. 若有一個過程定義成Public Sub W1(ByVal x As Integer, y As Integer)，調用該過程的正確形式是 。A. Call W1(x, 3)B. W1(x,

6、3) C. Call W1 3, xD. W1 3, x15. 代數(shù)式ab2 ÷(5c+d)的Visual Basic表達式是 。 A. a * b * b / 5 * c + dB. a×b×b / (5×c + d)C. a * b* b / (5 * c + d)D. a * b b / (5 c + d)二、填空題（20分，每小題2分）1. 窗體上放置了若干個文本框和復選按鈕，當窗體裝入后，要將焦點自動定位到復選按鈕Check1上，則在設計時需要將Check1控件的 屬性設置為 。2. 當單擊垂直滾動條上的空白區(qū)域時，要使滑塊的移動量為50，則需

7、通過 屬性來控制。3. 當焦點進入文本框Text1時，要自動選定文本框內開始的5個字符，則需要通過代碼Text1.SelStart = 和 來實現(xiàn)。4. 選擇對通用對話框的 方法，可打開顏色對話框。5. 對于窗體上的菜單按鈕，如果不允許進行操作，應通過 屬性進行設置。6. 對于正在使用的動態(tài)數(shù)組A()，要增加一個單元，則應使用語句 。7. 格式輸出函數(shù)Format(12.345, "#.#") 的顯示結果 。8. 繪制圓心坐標為（1000，200），半徑為500的圓，其代碼為： 。9. 在Visual Basic中創(chuàng)建新對象的關鍵字是 。10. 為了使文件列表框File1和

8、目錄列表框Dir1之間能產生同步效果，必須在 事件過程中加入語句 。三、程序填空（20分，每小格2分）1. 下面程序按每行10個數(shù)打印出30個介于-300到300間無重復的隨機整數(shù)，并顯示其中的最小值。數(shù)組b(30)存放所產生的無重復的隨機整數(shù)，運行結果圖1所示。圖1Private Sub Command1_Click()Dim b(30), j As Integer, k As Integer, y As Integer, x As Single, min As IntegerFor j = 1 To 30lb: x = RndIf x > 0.5 Then y = 1 Else y

9、= -1 控制正負數(shù)b( j ) = y * (1) k = 1Do While (2) If b( j ) = b( k ) Then (3) 控制無重復k = k + 1LoopPrint b( j );If j Mod (4) Then Print 控制每行10個數(shù)Next jmin = b(1) For j = 1 To 30If b( j ) < min Then (5) Next jPrint minEnd Sub2. 下面的程序用于對9位的準考證號進行校驗。參數(shù)mno存放準考證號，mjy存放產生的校驗位，tag判斷校驗正確否，若校驗正確tag置1，否則為0。產生校驗位的算法

10、為：取準考證號右邊的8位數(shù)之和關于9的模作為校驗值，準考證號最左邊的一位為校驗位。Public Sub foe(ByVal mno As String, mjy As Integer, Tag As Integer) Dim msum As Integer, m As String msum = 0 (1) m = Mid(mno, j, 1) msum = msum + Val(m) Next j mjy = (2) If (3) Then Tag = 1 Else Tag = 0 End IfEnd SubCommand1_Click事件用于調用foe函數(shù)，對輸入到文本框Text1的準考證

11、號進行校驗，如果校驗正確，顯示“正確”，否則顯示“錯誤”，同時顯示正確的校驗碼。Private Sub Command1_Click() Dim nn As Integer, mtag As Integer If Len(Text1) <> 9 Or Not IsNumeric(Text1) Then MsgBox "非法數(shù)據(jù)，請重新輸入！" Text1 = "" (4) Exit Sub End If Call foe (Text1, nn, mtag) If mtag Then Print "正確"Else (5) E

12、nd IfEnd Sub四、編程題（45分）1. 打開軟盤根目錄上的a1.vbp工程，補充程序，當單擊命令按鈕時可在文本框顯示出100200之間所有素數(shù)的個數(shù)，并將統(tǒng)計結果以隨機文件形式存入A:a1.dat文件中。（10分）2. 編一個完整的程序，要求如下（35分）：（1）參見圖2、圖3，在Form1窗體上添加列表框（提供計算機品牌信息）、文本框、命令按鈕和2個框架，框架內各有2個單選按鈕或復選按鈕，并設置相應標題。用你的姓名建立一項菜單，包含兩個子菜單項：分別為“窗體2”和“結束”，之間有分隔線。在Form2窗體上放置一個時鐘控件和圖形框，窗體的標題設置為你的準考證號。（8分） 圖2 圖3（

13、2）當在Form1窗體的列表框和框架內選定了計算機的基本配置后，單擊“確定”按鈕，在文本框內分行顯示當前所選擇的信息。（7分）（3）當選擇“窗體2”菜單項時，打開Form2窗體；當單擊“結束”菜單項時，停止程序的運行。（5分）（4）在Form2窗體中建立可通過鼠標右鍵彈出的菜單（快捷菜單）。含有“裝入圖”、“產生圓”和“返回”三個菜單項。選擇“裝入圖”菜單項，在圖形框裝入clouds.bmp圖形文件；選擇“產生圓”菜單項，在圖形框內按每0.1秒頻率隨機產生色彩隨機變化、半徑最大為圖形框寬度10%的圓；選擇“返回”菜單項關閉Form2窗體，顯示Form1窗體。（10分）（5）在軟盤根目錄下將工程

14、保存為A2.VBP、Form1窗體為A21.FRM、Form2窗體為A22.FRM，并且通過“文件|生成.exe”命令將工程生成A:A2.exe文件。（5分）2001年上海普通高校非計算機專業(yè)學生計算機等級考試試卷二級（Visual Basic程序設計）參考答案一、單選題1. A2. B 3. C 4. C 5. D 6. C 7. D 8. B9. B 10. B 11. A 12. B 13. D 14. D 15. C二、填空題1. TabIndex02. LargeChange3. 0 Text1.SelLength = 54. ShowColor5. Enabled6. ReDim

15、A( Ubound (A) + 1 )7. 12.358. Circle (1000, 200), 5009. New10. Dir1_ChangeFile1.path = Dir1.path三、程序填空1.（1）Int(Rnd * 301)（2）k <= j - 1（3）GoTo lb（4）10 = 0（5）min = b( j )2.（1）For j = 2 To 9（2）msum Mod 9（3）mjy = Val(Left(mno, 1)（4）Text1.SetFocus（5）Print "錯誤！", nn四、編程題1. 窗體如圖4所示：圖4參考答案一：（根據(jù)

16、原試卷提供的程序，補充完整。為便于對照，還增加了兩個按鈕過程）Private Sub Command1_Click()Dim MyRecord As Record聲明變量補充程序Dim i, j, k As Integerk = 0For i = 1000 To 2000For j = 2 To i - 1If i Mod j = 0 Then GoTo nextmNext jk = k + 1nextm:Next iText1 = kMyRecord.st = Label1MyRecord.sj = kOpen App.Path + "samp.txt" For Rand

17、om As #1 Len = Len(MyRecord)Put #1, , MyRecordClose #1End Sub2. 01編程2.VBP采用的是參考答案二，比較簡潔合理 參考答案一過于繁瑣（用窗體變量i沒有必要） 裝入圖的方式不同，方案一是用 LoadPicture的方式，方案二是在窗體設計時將圖裝入另一圖片框Picture2中。（程序參考答案一：（1）Form1：Dim i As StringPrivate Sub Command1_Click() Text1.Text = i If Option1.Value = True Then Text1.Text = Text1.Text

18、 & Chr(13) & "128MB" ElseIf Option2.Value = True Then Text1.Text = Text1.Text & Chr(13) & "256MB" End If If Check1.Value = 1 Then Text1.Text = Text1.Text & Chr(13) & "音箱" End If If Check2.Value = 1 Then Text1.Text = Text1.Text & Chr(13) &

19、 "Modem" End IfEnd SubPrivate Sub List1_Click() i = List1.TextEnd SubPrivate Sub mntExit_Click() EndEnd SubPrivate Sub mntWindows2_Click() Form1.Hide Load Form2 Form2.ShowEnd Sub（2）Form2：Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button =

20、2 Then PopupMenu mntMain, 2 End IfEnd SubPrivate Sub mntCircle_Click() Timer1.Enabled = TrueEnd SubPrivate Sub mntLoad_Click() Picture1.Picture = LoadPicture("a:clouds.bmp")End SubPrivate Sub mntReturn_Click() Timer1.Enabled = False Unload Me Load Form1 Form1.ShowEnd SubPrivate Sub Timer1_

21、Timer() Dim Cx, Cy, Limit, Radius Picture1.ScaleMode = 3 Picture1.AutoRedraw = True Picture1.Width = Picture1.Height Cx = Rnd * Picture1.ScaleWidth Cy = Rnd * Picture1.ScaleHeight Limit = Picture1.ScaleWidth / 10 Radius = Rnd * Limit Picture1.Circle (Cx, Cy), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)End Sub參考答案二：（1）Form1：Private Sub Command1_Click()Text1 = ""Text1 = Text1 & List1.TextIf Option1 ThenText1 = Text1 & vbCrLf & "128M內存"ElseText1 = Text1 & vbCrLf & "256M內存"End IfIf Check1 Then Text1 = Text1 & vbCrLf & "音箱"If