為幫助同學們複習好二級VB考試科目，大家平時需要多做題多練習。以下是本站小編搜尋整理的一份計算機二級《VB語言程式設計》備考訓練題(含答案)，供參考練習，預祝考生們考出自己理想的成績!想了解更多相關資訊請持續關注我們應屆畢業生考試網!
1.設有如下程式段：
x=2
For c=1 To 4 Step 2
x=x+c
Next c
執行以上程式後，x的值是(A)(單)
A.6
B.7
C.8
D.9
2.以下敘述中錯誤的是(A)(單)
A.在KeyPress事件過程中不能識別鍵盤鍵的按下與釋放
B.在KeyPress事件過程中不能識別回車鍵
C.在KeyDown和KeyUp事件過程中，從鍵盤輸入的字母"A"和字母"a"對應的KeyCode視作相同的字母
D.在KeyDown和KeyUp事件過程中，從大鍵盤上輸入的"1"和從右側小鍵盤上輸入的"1"被視作不同的字元
3.執行如下兩條語句，窗體上顯示的是(C)(單)
A=9.8596
Print Format(a,"000.00")
A.0,009.86
B.9.86
C.009.86
D.0,009.86
4.在窗體上畫一個名稱為CommandDialog1 的通用對話方塊，一個名稱為Command1的命令按鈕。然後編寫如下事件過程：
Private Sub Command1_Click( )
Name =""
er="All file|*.*|(*)|*|(*)|*"
erIndex=1
ogTitle="VBTest"
on=1
End Sub
對於這個程式，以下敘述中錯誤的是(D)(單)
A.該對話方塊被設定為"開啟"對話方塊
B.在該對話方塊中指定的檔名為空
C.該對話方塊的標題為VBTest
D.在該對話方塊中指定的預設檔案型別為文字檔案(*)
5.設一個工程由兩個窗體組成，其名稱分別為Form1和Form2，在Form1上有一個名稱為Command1的命令按鈕。窗體Form1的程式程式碼如下：
Private Sub Command1_Click( )
Dim a As Integer
a=10
Call g(Form2,a)
End Sub
Private Sub g(f As Form,x As Integer)
y=Iif(x>10,100,-100)
ion=y
End Sub
執行以上程式，正確的結果是(B)(單)
1的Caption屬性值為100
2的Caption屬性值為-100
1的Caption屬性值為-100
2的Caption屬性值為100
6.在窗體上畫一個名稱為Command1的命令按鈕，並編寫如下程式：
Private Sub Command1_Click( )
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程式執行後，單擊命令按鈕，在窗體上顯示的內容是(D)(單)
A.10 5
B.12 5
C.10 7
D.12 7
on Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
Dim n As Integer
n=3
If n<10 Then
Call GetArray(a,n)
End If
End Sub
Private Sub GetArray(b( ) As Integer,n As Integer)
Dim c(10) As Integer
j=0
For t=1 To n
b(t)=Rnd*100
If b(t)/2=b(t)2 Then
j=j+1
c(j)=b(t)
End If
Next t
Print j
End Sub
以下敘述中錯誤的是(C)(單)
A.陣列b中的數範圍為0-100
B.c陣列下標的下界從1開始
rray過程的引數n是按值傳送的
D.語句If b(t)/2=b(t)2 Then 是判斷陣列b中元素的值是否為整數
8.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：
Option Base 1
Private Sub Command1_Click( )
Dim a
a= Array(1,2,3,4,5)
For c=1 To Ubound(a)
a(c) = a(c)+c-1
Next c
Print a(3)
End Sub
程式執行後，單擊命令按鈕，則在窗體上顯示的內容是(B)(單)
A.4
B.5
C.6
D.7
9.閱讀程式：
Option Base 1
Private Sub Form_Click( )
Dim arr
Dim Sum%
Sum = 0
arr = Array(1, 3, 5, 7, 9)
For t = 1 To 5
Sum = Sum + arr(t)
Next t
Print Sum
End Sub
程式執行後，單擊窗體，輸入結果為(B)(單)
A.5
B.9
C.25
D.15
10.在窗體上畫一個名稱為File1的檔案列表框，並編寫如下程式：
Private Sub File1_DblClick( )
x=Shell(Name,1)
End Sub
以下關於該程式的敘述中，錯誤的是(A)(單)
