為了使廣大考生在備戰計算機等級考試時，更快的掌握相應知識點，下面是小編搜尋整理的計算機二級VB考試題含答案，供參考練習，預祝考生們考出自己理想的成績!
計算機二級VB考試題及答案
1.以下能判斷指標是否指向檔案尾的函式是(D)(單)
2.如果一個工程含有多個窗體及標準模組，則以下敘述中錯誤的是(B)(單)
A.如果工程中含有Sub Main過程，則程式一定首先執行該過程
B.不能把標準模組設定為啟動模組
C.用Hide方法只是隱藏一個窗體,不能從記憶體中清除該窗體
D.任何時刻最多隻有一個窗體是活動窗體
3.窗體的過程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4個引數，關於這些引數，正確的描述是(D)(單)
A.通過Button引數判定當前按下的是鍵盤上哪一個鍵
t引數只能用來確定是否按下Shift鍵
t引數只能用來確定是否按下Alt和Ctrl鍵
D.引數x,y用來設定滑鼠當前位置的座標
4.設組合框Combo1中有3個專案，則以下能刪除最後一項的語句是(B)(單)
veItem Text
veItem 2
veItem 3
veItem count
5.以下關於焦點的敘述中，錯誤的是(A)(單)
A.如果文字框的Enabled屬性為False，能接收從鍵盤上輸入的資料
B.當文字框失去焦點時，觸發LostFocus事件
C.當文字框的Enabled屬性為False時，其Tab順序不起作用
D.可以用TabIndex屬性改變Tab順序
6.如果要在選單中新增一個分隔線，則應將其Caption屬性設定為(D)(單)
A.=
B.*
C.&
D.-
7.在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文字框，然後編寫如下事件過程：
Private Sub Command1_Click( )
n = val( )
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
= x
End Sub
程式執行後，如果在文字框Text1中輸入10，然後單擊命令按鈕，則在Text2中顯示的內容是(A)(單)
A.10
B.20
C.30
D.40
8.設有以下迴圈結構
Do
迴圈體
Loop While <條件>
則以下敘述中錯誤的是(A)(單)
A.若"條件"是一個為0的常數，則一次也不執行迴圈體
B."條件"可以是關係表示式、邏輯表示式或常數
C.迴圈體中可以使用Exit Do語句
D.如果"條件"總是為True，則不停地執行迴圈體
9.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：
Private Sub Command1_Click( )
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程式執行後，單擊命令按鈕，則窗體上顯示的內容是(B)(單)
A.1 3.4 5.8
B.1 3 5
C.1 4 7
D.無資料輸出
10.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：
Private Sub Command1_Click( )
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a-1
Loop While a <= 0
Print s; a
End Sub
程式執行後，單擊命令按鈕，則窗體上顯示的內容是(C)(單)
A.7 9
B.34 0
C.9 7
D.死迴圈
11.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：
有如下通用過程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
Private Sub Command1_Click( )
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程式執行後，如果單擊命令按鈕，則在窗體上顯示的內容是(C)(單)
A.10 5
B.20 5
C.20 40
D.10 40
12.設有如下通用過程：
Public Sub Fun(a( ), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next I
End Sub
在窗體上畫一個名稱為Text1的文字框和一個名稱為Command1的命令按鈕，然後編寫如下的事件過程：
Private Sub Command1_Click( )
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next I
n = 10
Call Fun(arr( ), n)
= n
End Sub
程式執行後，單擊命令按鈕，則在文字框中顯示的內容是(A)(單)
A.10
B.15
C.25
D.24
13.在窗體上畫一個名稱為Command1的`命令按鈕，然後編寫如下程式碼：
Option Base 1
Private Sub Command1_Click( )
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d-c
End If
Next i
Print d
End Sub
程式執行後，如果單擊命令按鈕，則在窗體上輸出的內容為(C)(單)
A.89
B.99
C.23
D.77
14.在窗體上畫兩個滾動條，名稱分別為Hscroll1、Hscroll2;六個標籤，名稱分別為Label1、Label2、Label3、Label4、Label5、Label6，其中標籤Label 4、Label6分別顯示"A"、"B"、"A*B"等文字資訊，標籤Label1、Label2分別顯示Hscroll1、Hscroll2滾動條的數值，Label3顯示A*B的計算結果。當移動滾動條時，在相應的標籤中顯示滾動條的值。當單擊命令按鈕"計算"時，對標籤Label1、Label2中顯示的兩個值求積，並將結果顯示在Label3中。以下不能實現上述功能的事件過程是(C)(單)
ate Sub Command1_Click( )
ion = =Str(Val(ion)*Val( ion))
End Sub
ate Sub Command1_Click( )
ion = e *e
End Sub
ate Sub Command1_Click( )
ion = HScroll1 * HScroll2
End Sub
ate Sub Command1_Click( )
ion = HScroll1. Text *
End Sub
15.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：
Private Sub Command1_Click( )
For n = 1 To 20
If n Mod 3 <> 0 Then m = m + n 3
Next n
Print n
End Sub
程式執行後，如果單擊命令按鈕，則窗體上顯示的內容是(C)(單)
A.15
B.18
C.21
D.24
16.在窗體上畫一個名稱為Text1的文字框，並編寫如下程式：
Private Sub Form_Load( )
Show
= ""
ocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single)
Print "程式設計"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程式執行後，如果按"A"鍵，然後單擊窗體，則在窗體上顯示的內容是(A)(單)
al Basic
B.程式設計
C.A程式設計
al Basic程式設計
17.設有如下程式：
Private Sub Command1_Click( )
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
該程式通過For迴圈計算一個表示式的值，這個表示式是(C)(單)
A.1+1/2+ 2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
18.以下有關陣列定義的語句序列中，錯誤的是(D)(單)
ic arr1(3) ：arr1(1) = "100" ：
arr1(2) = "Hello" ：arr1(3) = "123.45"
arr2( ),size As Integer
Private Sub Command2_Click( )
size =InputBox("輸入：") ReDim arr2(size) ......
End Sub
on Base 1 Private Sub Command3_Click( )
Dim arr3(3) As Integer ......
End Sub
n As Integer Private Sub Command4_Click( )
Dim arr4(n) As Integer......
End Sub
19.執行下面的程式段後，I的值為【5.6】
s = 2
For I = 3.2 To 4.9 Step 0.8
s = s + 1
Next I
Print i
52170.執行下面的程式段後，S的值為【5】
Private Sub Command1_Click( )
s = 2
For c = 3.2 To 4.9 Step 0.8
s = s + 1
Next c
Print s
End Sub
