- 相關推薦
全國計算機二級考試VB語言考試試題
為了使廣大考生在備戰計算機等級考試時，更快的掌握相應知識點，下面是小編搜索整理的全國計算機等級考試VB語言考試試題，供參考練習，預祝考生們考出自己理想的成績!
全國計算機二級考試VB語言考試試題
1． 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序運行后，單擊命令按鈕，則窗體上顯示的內容是
（A）1 3.4 5.8 （B）1 3 5 （C）1 4 7 （D）無數據輸出
2． 有如下函數：
Function Facn ( x As Integer ) As Long
Dim p As Long , i As Integer
p = 1
For i = 1 To x
p = p * i
Next i
Facn = p
End Function
調用它的事件過程如下：
Private Sub Command1_Click ( )
i = Val ( InputBox ( “請輸入數據”))
a = Facn (( i ) ) ‘實參i用圓括號括起，則強制為值傳遞
Print a
End Sub
若輸入數據6，則程序運行結果為（ 【73】 ）
（A）60 （B）120 （C）600 （D）720
3． 在窗體上畫一個名稱為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
程序運行后，單擊命令按鈕，則窗體上顯示的內容是
（A） 7 9 （B） 34 0（C）9 7（D）死循環
4． 下列程序的執行結果為（ 【74】 ）
Dim IntSum As Integer , i As Integer
IntSum = 0
For i = 30.2 To 1 Step -5.3
IntSum = IntSum + i
Next i
Print IntSum
（A）106 （B）105 （C）102 （D）101
5． 在窗體上畫一個命令按鈕，然后編寫如下事件過程，該過程執行結果為（ 【75】 ）
Option Base 1
Private Sub Command1_Click ( )
Dim a As Variant , s As Integer
a = Array ( 2 , 4 , 6 , 8 )
j = 1
For i = 1 To 4 Step 1
s = s + a ( i ) * j
j = j *10
Next i
Print s
End Sub
（A）0 （B）1110 （C）2468 （D）8642
設有如下通用過程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
6． 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是
（A）10 5 （B）20 5 （C）20 40 （D）10 40
7． 對窗體編寫如下代碼：
Option Base 1
Private Sub Form_KeyPress( KeyAscii As Integer)
a = Array (123 , 86 , 57 , 248 , 32)
m1 = a ( 1 )
m2 = 1
If KeyAscii = 13 Then
For i=2 To 5
If a ( i ) > m1 Then
m1 = a ( i )
m2 = i
End If
Next i
End If
Print m1 , m2
End Sub
程序運行后，按回車鍵，輸出結果為（ 【76】 ）
（A）32 5 （B）248 4 （C）32 1 （D）248 5
設有如下通用過程：
Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
8． 在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下的事件過程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序運行后，單擊命令按鈕，則在文本框中顯示的內容是
（A）10 （B）15 （C）25 （D）24
9． 閱讀程序：
Function Func ( a As Integer )
b = 1
Static c As Integer
b = b +1
c = c +1
Func = a + b + c
End Function
Private Sub Command1_Click( )
Dim a As Integer
a = 3
For i =1 to 3
Print Func( a )
Next i
End Sub
運行上面的程序，單擊命令按鈕后，輸出結果為（ 【77】 ）
（A）6 （B）6 （C）6 （D）6
7 6 8 13
8 6 10 21
10． 在窗體上畫一個名稱為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
程序運行后，如果單擊命令按鈕，則在窗體上輸出的內容為
（A）89 （B）99 （C）23 （D）77
【全國計算機二級考試VB語言考試試題】相關文章：
全國計算機二級考試《VB》操作試題及答案10-22
全國計算機二級考試VB鞏固試題及答案10-01
計算機二級考試VB考試題及答案08-28
2016計算機二級VB語言考試題與答案10-21
計算機二級vb考試試題06-29
全國計算機二級vb考試題庫10-31
計算機2級考試VB語言考試試題08-19
2017計算機二級考試VB基礎考試題06-17