今年第二次計算機等級考試即將開始了，yjbys爲幫助大家鞏固vb基礎知識，下面爲大家分享的是計算機等級考試vb複習試題，同學們趕緊來學習吧!
1.基本操作(2小題，每小題15分，共計30分)
(1)在名稱爲Form1標題爲“選課”的窗體上畫一個複選框數組，名稱爲CH1，共有四個複選框，按順序其標題分別是“數學”、“語文”、“外語”、“計算機”，其中“語文”、“計算機”複選框處在選中狀態下，運行時的窗體如圖所示。請畫控件並設置相應屬性。
(2)在名稱爲Form1的窗體上畫兩個文本框，名稱分別爲Text1和Text2，均無初始內容;再建立一個下拉菜單，菜單標題爲“操作”，名稱爲M1，此菜單下含有兩個菜單項，名稱分別爲Copy和Clear，標題分別爲“複製”、“清除”，請編寫適當的事件過程，使得在運行時，單擊“複製”菜單項，則把Text1中的內容複製到Text2中，單擊“清除”菜單項，則清除Text2中的內容(即在Text2中填入空字符串)。運行時的窗體如圖所示。要求在程序中不得使用任何變量，每個事件過程中 只能寫一條語句。
Private Sub clear_Click()
= ""
'或 = ""
'或 = ""
End Sub
Private Sub copy_Click()
=
'或 = 前可以加Me或Form1
'或 = 前可以加Me或Form1
End Sub
2.簡單應用(2小題，每題20分，計40分)
(1)在考生文件夾下有一個工程文件，相應的窗體文件爲。其功能是產生20個0～1000的隨機整數，放入一個數組中，然後輸出這20個整數的平均值。程序運行後，單擊命令按鈕(名稱爲Command1，標題爲“輸出平均值”)，即可求出其平均值，並在窗體上顯示出來(如圖所示)。這個程序不完整，請把它補充完整，並能正確運行。
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer
Randomize
For i = 1 To 20
'arrN(i) = ?
arrN(i) = Int(Rnd * 1000)
'或arrN(i) = Fix(Rnd * 1000)
Next i
'Sum = ?
Sum = 0
For i = 1 To 20
'Sum = ?
Sum = Sum + arrN(i)
Next i
'Aver = ?
Aver = Sum / 20
Print Aver
End Sub
(2)在考生目錄下有一個工程文件，窗體中的兩個滾動條分別表示紅燈亮和綠燈亮的時間(秒)，移動滾動框可以調節時間，調節範圍爲1-10秒。剛運行時，紅燈亮。單擊“開始”按鈕則開始切換：紅燈到時後自動變爲黃燈，1秒後變爲綠燈;綠燈到時後自動變爲黃燈，1秒後變爲紅燈，如此切換(如圖所示)。
所提供的窗體文件已經給出了所有控件和程序，但程序不完整，請去掉程序中的註釋符，把程序中的`?改爲正確內容。
提示： 在三個圖片框picture1、picture2、picture3中分別放置了紅燈亮、綠燈亮、黃燈亮的圖標，並重疊在一起，當要使某個燈亮時，就使相應的圖片框可見，而其他圖片框不可見，並保持規定的時間，時間到就切換爲另一個圖片框可見，其他圖片框不可見。
Dim red, green
Private Sub Command1_Click()
' ? = e
red = e
green = e
' led = ?
led = True
End Sub
Private Sub Timer1_Timer()
If ble Then
red = red - 1
If red = 0 Then
ble = False
' ? ble = True
ble = True
End If
ElseIf ble Then
ble = False
If red = 0 Then
ble = True
red = e
Else
ble = True
green = e
End If
ElseIf ble Then
' green = ?
green = green - 1
If green = 0 Then
ble = False
ble = True
End If
End If
End Sub
3.綜合應用(1小題，計30分)
以下數列：1，1，3，5，9，15，25，41，…，的規律是從第3個數開始，每個數是它前面兩個數的和加1。
在考生目錄下有一個工程文件。窗體中已經給出了所有控件，如圖所示。請編寫適當的事件過程實現以下功能：在Text1中輸入整數40，單擊“計算”按鈕，則在Text2中顯示該數列第40項的值。如果單擊“存盤”按鈕，則將計算的第40項的值存到考生目錄下的文件中。(提示：因數據較大，應使用Long型變量)
注意： 在結束程序運行之前，必須單擊“存盤”按鈕，把結果存入文件，否則無成績。最後把修改後的文件按原文件名存盤。
Dim a(50) As Long
Private Sub Command1_Click()
Dim f As Long
a(1) = 1
a(2) = 1
For i = 3 To Val()
f = a(i - 2) + a(i - 1) + 1
a(i) = f
Next
= f
End Sub
Private Sub Command2_Click()
Open "" For Output As #1
Print #1,
Close #1
End Sub
