2016下半年計算機等級考試9月24日就要開始啦，同學們準備好了嗎?下面yjbys小編爲大家分享的是計算機等級考試vb複習試題，同學們趕緊來學習吧!
1.基本操作(2小題，每題15分，共計30分)
(2)在名稱爲Form1的窗體上畫兩個命令按鈕(見圖1)，其名稱分別爲Cmd1和Cmd2，編寫適當的事件過程。程序運行後，如果單擊命令按鈕Cmd1則可使該按鈕移動窗體的左上角(只允許通過修改屬性的方式實現);如果單擊命令按鈕Cmd2，則可使該按鈕在長度和寬度上各擴大到原來的2倍。
程序的.運行情況如圖2所示。
rivate Sub Cmd1_Click()
= 0
= 0
End Sub
Private Sub Cmd2_Click()
h = h * 2
ht = ht * 2
End Sub
2.簡單應用(2小題，每題20分，計40分)
(1)在考生文件夾下有一個工程文件，相應的窗體文件爲。其功能是產生30個0～1000的隨機整數，放入一個數組中，然後輸出其中的最大值。程序運行後，單擊命令按鈕(名稱爲Command1，標題爲“輸出最大值”，如圖所示)，即可求出其最大值，並在窗體上顯示出來。這個程序不完整，請把它補充完整，並能正確運行。
Option Base 1
Private Sub Command1_Click()
Dim arrN(30) As Integer
Dim Max As Integer
Randomize
For i = 1 To 30
arrN(i) = Int(Rnd * 1001)
Next i
Max = arrN(1)
For i = 2 To 30
If Max < arrN(i) Then
Max = arrN(i)
End If
Next i
Print Max
End Sub
(2)在考生文件夾下有一個工程文件，相應的窗體文件爲，在窗體上有一個命令按鈕和一個文本框。程序運行後，單擊命令按鈕，即可計算出0～1000範圍內能被5整除或能被7整除的整數的個數，並在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算能被5整除或能被7整除的整數的個數的操作在通用過程Fun中實現，請編寫該過程的代碼。
Sub SaveData()
Open & "" & "" For Output As #1
Print #1,
Close #1
End Sub
Function Fun()
Dim i As Integer '循環變量
Dim num As Integer '存放符合條件總數
num = 0
For i = 0 To 1000
If i Mod 5 = 0 Or i Mod 7 = 0 Then
num = num + 1
End If
Next i
Fun = num
End Function
Private Sub Command1_Click()
d = Fun()
= d
SaveData
End Sub
3.綜合應用(1小題,計30分)
在考生文件夾下有一個工程文件，相應的窗體文件爲，此外還有一個名爲的文本文件，其內容如下：
32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37
程序運行後，單擊窗體，將把文件中的數據輸入到二維數組Mat中，在窗體上按5行、5列的矩陣形式顯示出來，並輸出矩陣左上-右下對角線上的數據，如圖所示。在窗體的代碼窗口中，已給出了部分程序，這個程序不完整，請把它補充完整，並能正確運行。
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim Mat(N, M) As Integer
Dim i, j
Open & "" & "" For Input As #1
For i = 1 To N
For j = 1 To M
Input #1, Mat(i, j)
Next j
Next i
Close #1
Print "初始矩陣爲："
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Next i
Print "左上 - 右下對角線上的數爲："
For i = 1 To N
For j = 1 To M
If i = j Then Print Tab(5 * j); Mat(i, j);
Next j
Next i
End Sub
