1、Visual Basic考試模擬題 一、單項選擇題(共20題，每題 2分，共 40分)1、將十進制數23轉換為補碼（設帶符號位8位）是_ A. 10010111 B. 11101001 C. 11101010 D. 111010112. 將補碼轉換為十進制數，即（11111101）補=（_）10 A. 3 B. -3 C. -4 D. -53. 下列敘述中不正確的是_。 A. 隊列是 “先進先出”的線性表 B. 入棧運算是指在棧頂位置插入下個新元素 C. 棧是“先進先出”的線性表 D. 棧是“后進先出”的線性表4、要想清除組合框中的所有數據項，則利用下列_方法進行。A. ListB.MoveC

2、.ClearD. Cls5. 下列選項中，合法的變量名是_。AA#A B. 4A C.Private D. Print_16 表達式7 mod 3+35*2+2的值是_。 A. 2 B. 3 C. 4 D. 67. Private Sub Form_Load()Dim iAs Integer For i =1 To 3 List1.AddItem Str(i)Next End Sub Private Sub List1_Click() Dim ch As String ch = List1.List(List1.ListIndex) List1.RemoveItem List1.ListInd

3、ex List1.AddItem chEnd Sub單擊列表框中的第二項，執行上述程序后，列表框中顯示的順序為_. A. 1 2 3 B. 1 3 2 C. 3 2 1 D.1 3 28. 下列程序段的輸出結果為_。 x=1 : y=4 Do Until y>4 x=x*y : y=y+1 Loop Print xA. 1B. 4C. 8D. 209. 單擊命令按鈕，在窗體上輸出_。 Private Sub Command1_Click() Dim a, i As Integer a = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i = 1

4、 To 3 Print a(8 - i);NextEnd Sub A. 15 13 11 B. 17 15 13 C. 11 13 15 D. 13 15 1710. 窗體上有一個Command1的命令按鈕和一個Timer1的計時器，并有下面的事件過程：Private Sub Form_Load()Timer1.Interval = 100 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Command1.Top = Command1.Top + 10End Sub程序運行后，單擊命令按鈕，則結果是_。 A. 命令按鈕每100毫秒向

5、上移動一次 B. 命令按鈕每100毫秒向下移動一次 C. 命令按鈕每100毫秒向左移動一次 D. 命令按鈕每100毫秒向右移動一次 思考：如果把Top換成Left，結果是什么呢？11. 運行程序，單擊窗體，在窗體上顯示的內容是_。 Private Sub value(ByVal m As Integer, n As Integer) m = m * 2 n = n 5 Print "m=" m, "n=" n End Sub Private Sub Form_Click() Dim x As Integer, y As Integer x = 10: y

6、 = 15 Call value(x, y) Print "x=" x, "y=" y End SubA. m=20 n=10B. m=20 n=10C. m=20 n=10 D. x=10 y=15 x=10 y=15 x=10 y=10 x=20 y=10 m=20 n=1012. 執行如下兩條語句，窗體上顯示的是_a = 9567.859Print Format(a, "#,000.00")A. 9,567.86 B. 09,567,86 C.”09,567.86 ” D. $09,567.8613. mnu1是窗體Form1的

7、菜單名，如果單擊鼠標右鍵彈出此菜單，應在窗體的MouseDown事件中編寫如下代碼_。A. Popupmenu Form1.mnu1 B. Popupmenu mnu1 Form1C. Form1.Popupmenu mnu1 D. Form1.mnu Popupmenu14. 下面程序段,顯示的結果是_。Private Sub Command1_Click()Dim x As Integerx = Int(Rnd) +4Select Case x Case 5 Print "優秀" Case 4 Print "良好" Case is>3 Prin

8、t "及格" Case Else Print "不及格"End SelectEnd SubA、優秀 B、良好 C、及格 D、不及格15 在窗體上創建一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，在文本框中輸入字符串“Microsoft Visual Basic Programming”。然后編寫如下代碼：Private Sub Command1_Click()    Open "d:out.txt" For Output As #1   

9、60;For i = 1 To Len(Text1.Text)        c = Mid(Text1.Text, i, 1)        If c >= "A" And c <= "Z" Then            Print #1, LCase(c)

10、60;       End If    Next i    CloseEnd Sub程序運行后，單擊命令按鈕，文件out.txt中的內容是_。A MVBPB. mvbpC. MD. m V vB bP p問 ：如果把LCase改為UCase則文件out.txt中的內容是什么呢？16、當一個單選按鈕被選中時，它的Value屬性值為_。 A. True B. False C. 1 D. 017 Dim a As String a = "Di

11、m Private y As Integer" Print UCase(Left(a, 3) + LCase(Mid(a, 14, 2) + Space(1) & Right(a, 10) 執行上述語句， 則在窗體上顯示：_ A. DIM y As Integer B. dim Y As Integer C. dim y as integer D. DIM Y AS INTEGER18. Dim c As Integer '聲明窗體級變量 Private Sub Command1_Click() Static a% Dim b% a = a + 2: b = b +3

12、: c = c + 4 Print a; b; c End Sub A. 4 3 8 B. 3 3 8 C. 2 3 4 D. 4 6 819、在窗體上創建一個名稱為Command1的命令按鈕和3個名稱分別為Label1、Label2、Label3的標簽，然后編寫如下代碼：Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z Label1.Caption=x Label2.Caption=y Label3.Caption=zEnd

13、 Sub運行程序，連續3次單擊命令按鈕后，則3個標簽中顯示的內容分別是_。A. 10 10 10B. 30 30 30C. 30 30 10D. 10 30 3020、設有如下自定義類型，給該類型變量賦值的代碼是_Type studentsno As String*5name As String*5count As IntegerEnd TypeA = "張小三" B. Dim s As Type : = "張小三"CDim s As Type students : = "張小三"

14、 D. Dim s As student : = "張小三"二、填空題(共15空，每空 2分，共 30分)1. 二叉樹遍歷中，先訪問左子樹，然后遍歷右子樹，最后遍歷根結點，該種遍歷稱為_【1】_。2. Text1.Text="ABC"，Text1.SelStart=1，則Text1.SelLength、 Text1.SelText的值為_【2】_。3、Dim x$,y As Boolean,z! : Print len(x),y ，z的值是_【3】_4、Dim d As Date ,把日期型數據2017/03/11賦給d的正確表達式是_【4

15、】_5、. 假設x=100，則Print IIF(x>0,1,IIF(x<0,-1,0)的結果是【5】。6. x 是非負數且y是奇數的表達式是_【6】_。7. 若希望每秒鐘發生2個Timer事件，應設置定時器（Timer）控件的Interval屬性為_【7】_ 8. 程序運行后，單擊窗體，輸出結果為_【8】_。 Private Sub Form_C1ick() Dim k%,n%,m% n=10 m=1 k=1 Do While k<=n m=m*2 k=k+1 Loop Print m End Sub9、在窗體上創建一個名稱為Command1的命令按鈕，程序的功能是，通過調

16、用過程swap，調換數組中數值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，a(5)與a(6)的值互換。請填空。Option Base 1Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next Call swap(_【9】_) For i = 1 To 10 Print a(i); NextEnd SubSub swap(b() As Integer) n = _【10】_ For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) =

17、 t _【11】_ NextEnd Sub11、完善將二進制轉化為十進制的函數。Private Function btod(f As String) As Integer Dim i As Integer, j As integer, k As Integer j=_【12】_ 測試形參的長度For i=j To 1 Step -1 k=Mid(f,i,1) btod=btod+_【13】_Next i12. 建立一個文件名為“c:stud1.txt”的順序文件，內容來自文本框，每按一次Enter鍵寫入一條記錄，然后清除文本框的內容，直到文本框內輸入“END”字符串為止。完善填空。Privat

18、e Sub Form_Load()Open _【14】_Text1 = ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then If Text1=”END” Then Close #1 End Else _【15】_ Text1 = "" End IfEnd IfEnd Sub三、編程題(共3題，共 30分)、計算稅率。收入不足3000時，稅率是3%，3000至4999稅率是5%，5000至7999稅率是8%，8000至9999稅率是10%，10000以上稅率是15%，用輸入函數輸入一個收入值，在窗體上顯示需要納稅的值是多少（6分）。、編寫程序，其功能是產生20個100200之間的隨機整數，然后求出這20個整數中的所有偶數之和