爲幫助同學們順利考過計算機二級，yjbys小編爲大家帶來計算機等級vb考試試題及答案如下，希望對同學們複習有所幫助!
1.基本操作(2小題，每小題15分，共計30分)
(1)在名稱爲Form1的窗體上畫兩個命令按鈕，其名稱分別爲C1和C2，標題分別爲“命令按鈕1”和“命令按鈕2”，編寫適當的事件過程。程序運行後，“命令按鈕2”隱藏，此時如果單擊“命令按鈕1”，則“命令按鈕2”出現，“命令按鈕1”隱藏;而如果單擊“命令按鈕2”，則“命令按鈕1”出現，“命令按鈕2”隱藏。程序的運行情況如圖所示。
注意：程序中不得使用變量。 存盤時必須存放在考生文件夾下，工程文件名爲，窗體文件名爲。
Private Sub C1_Click()
ble = False
ble = True
End Sub
Private Sub C2_Click()
ble = True
ble = False
End Sub
(2)在名稱爲Form1的窗體上畫一個標籤，其名稱爲Label1，在屬性窗口中把BorderStyle屬性設置爲1(如圖1所示)，編寫適當的事件過程。程序運行後，如果單擊窗體，則可使標籤移到窗體的右上角(只允許在程序中修改適當屬性來實現)。
程序的運行情況如圖2所示。
要求： 不得使用任何變量。
*注意： 存盤時必須存放在考生文件夾下，工程文件名爲，窗體文件名爲。
Private Sub Form_Click()
' = h + h
' = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' = h + h
= 0
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
= h + h
' = 0
End Sub
2.簡單應用(2小題，每題20分，計40分)
(1)在考生目錄下有一個工程文件，窗體上有一個命令按鈕Command1(標題爲“下一個”)。
要求： 在窗體上建立一個單選按鈕數組Option1，含4個單選按鈕，標題分別爲“選項1”、“選項2”、“選項3”、“選項4”，初始狀態下，“選擇1”爲選中狀態。如圖所示。窗體文件中已經給出了命令按鈕的`Click事件過程，但不完整，請去掉程序中的註釋符，把程序中的?改爲正確的內容，使得每單擊命令按鈕一次，就選中下一個單選按鈕，如果已經選中最後一個單選按鈕，再單擊命令按鈕，則選中第1個單選按鈕。
注意： 不能修改程序中的其他部分。最後把修改後的文件按原文件名存盤。
Private Sub Command1_Click()
' For k = 0 To ?
For k = 0 To 3
If Option1(k)e Then
' n = ?
n = k
End If
Next k
Option1(n)e = False
n = n + 1
If n = 4 Then
' n = ?
n = 0
End If
Option1(n)e = True
End Sub
(2)在考生文件夾下有一個工程文件，窗體上已經畫出所有控件。如圖所示。在Text1文本框中輸入一個任意的字符串(要求串的長度≥10)，然後選擇組合框中的3個截取運算選項之一。單擊“計算”按鈕，將截取運算後的結果顯示在Text2中。
窗體文件中已經給出了程序，但不完整，請去掉程序中的註釋符，把程序中的?改爲正確的內容。
注意： 不得修改已經給出的程序。最後把修改後的文件按原文件名存盤。
Dim is_num As Boolean
Private Sub Command1_Click()
Dim tmpStr As String * 50
Select Case Index
'Select Case ?
Case 0
tmpStr = Left(Trim(), 3)
Case 1
tmpStr = Right(Trim(), 3)
Case 2
tmpStr = Mid(Trim(), 3, 4)
'tmpStr = Mid(Trim(), ? )
End Select
= tmpStr
' = ?
End Sub
3.綜合應用(1小題，計30分)
在考生文件夾下有一個工程文件，窗體上有兩個圖片框，名稱爲P1、P2，分別用來表示信號燈和汽車，其中在P1中輪流裝入“黃燈”、“紅燈”、“綠燈”文件來實現信號燈的切換;還有兩個計時器Timer1和Timer2，Timer1用於變換信號燈，黃燈1秒，紅燈2秒，綠燈3秒;Timer2用於控制汽車向左移動。運行時，信號燈不斷變換，單擊“開車”按鈕後。汽車開始移動，如果移動到信號燈前或信號燈下，遇到紅燈或黃燈，則停止移動，當變爲綠燈後再繼續移動。
在窗體中已經給出了全部控件和程序，但程序不完整，要求閱讀程序並去掉程序中的註釋符，把程序中的?改爲正確的內容，使其實現上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最後把修改後的文件以原文件名存盤。
Dim a%, b As Boolean
Private Sub C1_Click()
' led = ?
led = True
b = True
End Sub
Private Sub Timer1_Timer()
a = a + 1
If a > 6 Then
a = 1
End If
Select Case a
Case 1
ure = LoadPicture("黃燈")
Case 2, 3
ure = LoadPicture("紅燈")
Case 4, 5, 6
' ure = LoadPicture("?")
ure = LoadPicture("綠燈")
If b Then led = True
End Select
End Sub
Private Sub Timer2_Timer()
If (a < 4) And ( > And < + h) Or <= 100 Then
' led = ?
led = False
Else
' ? - 10, , h, ht
- 10, , h, ht
End If
End Sub
