VB是計算機二級考試的科瑪之一，你知道計算機二級考試VB科目都考哪些知識嗎?為了方便考生備考計算機二級考試VB 科目。下面是小編為大家帶來的計算機二級考試VB考試題，歡迎閱讀。
考試題一：
1. 在窗體上畫一個命令按鈕，然後編寫如下程式碼：
Option Base 1
Private Sub Command1_Click( )
Dim a ( )
a = Array ( 30 , 40 , 70 , 10 , 50 , 80 , 20 , 90 , 60 )
s = 0
k = 1
While k – 10
s = s + a ( k )
k = k + 1
Wend
Aver = s / ( k – 1 )
m = 0
For i = 1 To k – 1
If a ( i ) > Aver Then m = m +1
Next i
Print m
End Sub
程式執行後，單擊命令按鈕，輸出結果為( 【84】 )
(A)4 (B)5 (C)6 (D)7
2. 有以下函式：
Function Fun(ByVal a As Integer) As Integer
Dim b As Integer
Static c As Integer
b=2 : c = 1
b = b +2
c = c + 2
Fun = a + b + c
End Function
在窗體上畫一個命令按鈕，然後編寫如下程式碼：
Privat Sub Command1_Click ( )
For i = 1 To 4
Print Fun ( i ) ,
Next i
End Sub
執行程式後，單擊命令按鈕，輸出結果為( 【85】 )
(A)8 8 8 8 (B)8 13 18 23
(C)8 9 10 11 (D)8 11 14 17
3. 下列不能開啟屬性視窗的操作是( )
(A)執行“檢視”選單中的【屬性視窗】命令 (B)按
(C)單擊工具欄上的【屬性視窗】按鈕 (D)按
4. 在使用Visual Basic的工具箱時，如果工具箱沒有出現在視窗中，應在( )選單中操作使它可見。
(A)檢視 (B)視窗 (C)檔案 (D)編輯
5. Visual Basic的特點不包括下面的( )
(A)不需程式設計 (B)面向物件的程式設計
(C)視覺化程式設計 (D)事件驅動的程式設計
6. 在Visual Basic整合環境的主視窗中，不包括的專案是( )
(A)標題欄 (B)選單欄 (C)狀態列 (D)工具欄
7. 在Visual Basic環境中，窗體等大小的預設計量單位是( )
(A)英寸 (B)釐米 (C)畫素 (D)twip
8. 與傳統的程式設計語言相比，Visual Basic最突出的.特點是( )
(A)結構化程式設計 (B)程式開發環境
(C)事件驅動程式設計機制 (D)程式除錯技術
9. Visual Basic窗體設計器的主要功能是( )
(A)建立使用者介面 (B)編寫源程式程式碼
(C)畫圖 (C)顯示文字
10. 為了在按下
(A)Value (B)Default (C)Cancel (D)Enabled
考試題二：
1. 有如下一個函式過程：
Function Func (ByVal Num As Long )
Dim k As Long
k=1
Num = Abs (Num)
Do While ( Num)
k = k * (Num Mod 10)
Num = Num 10
Loop
Func = k
End Function
以下是一個呼叫該函式的事件過程，在執行該過程後，在輸入對話方塊中輸入“2345”，則該過程的執行結果是( 【78】 )
Private Sub Command1_Click( )
Dim n As Long , r As Long
n = InputBox ( “請輸入資料：” )
n = CLng ( n ) ‘CLng函式的返回值是一個長整型數值
r = Func ( n )
Print r
End Sub
(A)0 (B)24 (C)60 (D)120
2. 在窗體上畫一個名稱為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)10 (B)20 (C)30 (D)40
3. 在窗體上畫一個名稱為Text1的文字框，一個名稱為Command1的命令按鈕，然後編寫如下事件過程和通用過程：
Private Sub Command1_Click()
N=Val()
If n 2 = n / 2 Then
f=f1(N)
Else
F=f2(N)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x = x * x
f1=x + x
End Function
Public Function f2(ByVal x)
x = x * x
f1=x + x + x
End Function
程式執行後，在文字框中輸入6，然後單擊命令按鈕，窗體上顯示的是( 【79】 )
(A)72 6 (B)108 6 (C)72 36 (D)108 36
4. 設在工程中有一個標準模組，其中定義瞭如下記錄型別
Type Books
Name As String * 10
TelNum As String * 20
End Type
在窗體上畫一個名為Command1的命令按鈕，要求當執行事件過程Command1_Click( )時，在順序檔案Ks74 . Txt中寫入一條記錄。下列能夠完成該操作的事件過程是( 【79】 )
(A)Private Sub Command1_Click( )
Dim b As Books
Open “D:” For OutPut As #1
= InputBox ( “輸入姓名”)
um = Inputbox ( “輸入電話號碼”)
Write #1 , , um
Close #1
End Sub
(B)Private Sub Command1_Click( )
Dim b As Books
Open “D:” For InPut As #1
= InputBox ( “輸入姓名”)
um = Inputbox ( “輸入電話號碼”)
Print #1 , , um
Close #1
End Sub
(C)Private Sub Command1_Click( )
Dim b As Books
Open “D:” For OutPut As #1
= InputBox ( “輸入姓名”)
um = Inputbox ( “輸入電話號碼”)
Write #1 , b
Close #1
End Sub
(D)Private Sub Command1_Click( )
Dim b As Books
Open “D:” For InPut As #1
= InputBox ( “輸入姓名”)
um = Inputbox ( “輸入電話號碼”)
Print #1 , Name , TelNum
Close #1
End Sub
5. 在窗體上畫一個名稱為Text1的文字框，並編寫如下程式：
Private Sub Form_Load()
Show
= ""
ocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "程式設計"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程式執行後，如果按"A"鍵，然後單擊窗體，則在窗體上顯示的內容是
(A)Visual Basic (B)程式設計
(C)A程式設計 (D)Visual Basic程式設計
6. 下列程式執行後，執行結果不是144的程式是( 【80】 )
(A)Dim z As Integer (B)Dim x As Integer
Private Sub Form_Click( ) Private Sub Form_Click( )
x=12 x=12
Call Fun ( x ) Call Fun ( x , z)
Print z Print z
End Sub End Sub
Sub Fun ( y ) Sub Fun ( y , z )
z = y * y z = y * y
End Sub End Sub
(C)Private Sub Form_Click( ) (D)Private Sub Form_Click( )
x=12 x=12
Call Fun ( x ) Call Fun ( x , z )
Print z Print z
End Sub End Sub
Sub Fun ( Byref y ) Sub Fun ( Byref y , z )
z = 12 * 12 z = y * y
End Sub End Sub
7. 設有如下程式：
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迴圈計算一個表示式的值，這個表示式是
(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
8. 程式如下：
Private Sub Form_Click( )
Dim a As Integer , b As Integer
a = 5 : b = 8
Call Fun (a , b)
Print a , b
End Sub
Private Sub Fun ( x As Integer , y As Integer )
x = x * y
y = y * x
End Sub
程式執行時，單擊窗體後，在窗體上輸出的結果為( 【81】 )
(A)5 8 (B)40 40 (C)40 8 (D)40 320
9. 在窗體上畫一個命令按鈕，然後編寫如下事件過程：
Private Sub Command1_Click( )
x=0
For i=1 to 3
x=1
For j=1 to 4
x=2
For k=1 to 5
x = x + 2
Next k
Next j
Next i
Print x
End Sub
程式執行後，單擊命令按鈕，輸出結果為( 【82】 )
(A)12 (B)24 (C)36 (D)48
10. 在窗體上畫一個命令按鈕，然後編寫如下程式碼：
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub Command1_Click( )
Dim MaxSize , NextChar , MyChar
Open “D: ” For Binary As #1
MaxSize = LOF ( 1 )
For NextChar = MaxSize To 1 Step -1
Seek # 1 , NextChar
MyChar = Input ( 1 , # 1 )
Next NextChar
Print EOF ( 1 )
Close # 1
End Sub
程式執行後，單擊命令按鈕，其輸出結果為( 【83】 )
(A)True (B)False (C)Null (D)0
