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
