計算機二級VB考試練習題及答案
二級VB考試是具有一定難度的，下面小編為大家帶來了計算機二級VB考試練習題及答案，歡迎大家閱讀！
計算機二級VB考試練習題及答案
1.以下能判斷指針是否指向文件尾的函數是(D)(單)
A.BOF
B.LOC
C.LOF
D.EOF
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參數判定當前按下的是鍵盤上哪一個鍵
B.Shift參數只能用來確定是否按下Shift鍵
C.Shift參數只能用來確定是否按下Alt和Ctrl鍵
D.參數x,y用來設置鼠標當前位置的坐標
4.設組合框Combo1中有3個項目，則以下能刪除最后一項的'語句是(B)(單)
A.Combo1.RemoveItem Text
B.Combo1.RemoveItem 2
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem Combo1.Listcount
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(Text1.Text )
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
Text2.Text = 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)
Text1.Text = 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
【計算機二級VB考試練習題及答案】相關文章：
計算機二級考試VB練習題及答案05-27
2016計算機二級考試VB練習題及答案05-24
計算機二級考試VB強化練習題及答案07-26
2017計算機二級考試VB練習題及答案03-29
全國計算機二級VB考試練習題及答案07-29