- 相關推薦
2016下半年計算機二級vb考試試題及答案
2016下半年計算機等級考試9月24日就要開始啦，同學們準備好了嗎?下面yjbys小編為大家分享的是計算機等級考試vb復習試題，同學們趕緊來學習吧!
1.基本操作(2小題，每題15分，共計30分)
(2)在名稱為Form1的窗體上畫兩個命令按鈕(見圖1)，其名稱分別為Cmd1和Cmd2，編寫適當的事件過程。程序運行后，如果單擊命令按鈕Cmd1則可使該按鈕移動窗體的左上角(只允許通過修改屬性的方式實現);如果單擊命令按鈕Cmd2，則可使該按鈕在長度和寬度上各擴大到原來的2倍。
程序的運行情況如圖2所示。
rivate Sub Cmd1_Click()
Cmd1.Left = 0
Cmd1.Top = 0
End Sub
Private Sub Cmd2_Click()
Cmd2.Width = Cmd2.Width * 2
Cmd2.Height = Cmd2.Height * 2
End Sub
2.簡單應用(2小題，每題20分，計40分)
(1)在考生文件夾下有一個工程文件sjt21.vbp，相應的窗體文件為sjt21.frm。其功能是產生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)在考生文件夾下有一個工程文件sjt22.vbp，相應的窗體文件為sjt22.frm，在窗體上有一個命令按鈕和一個文本框。程序運行后，單擊命令按鈕，即可計算出0～1000范圍內能被5整除或能被7整除的整數的個數，并在文本框中顯示出來。在窗體的代碼窗口中，已給出了部分程序，其中計算能被5整除或能被7整除的整數的個數的操作在通用過程Fun中實現，請編寫該過程的代碼。
Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Function Fun()
Dim i As Integer '循環(huán)變量
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()
Text1.Text = d
SaveData
End Sub
3.綜合應用(1小題,計30分)
在考生文件夾下有一個工程文件sjt31.vbp，相應的窗體文件為sjt31.frm，此外還有一個名為datain.txt的文本文件，其內容如下：
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
程序運行后，單擊窗體，將把文件datain.txt中的數據輸入到二維數組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 App.Path & "\" & "datain.txt" 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
【下半年計算機二級vb考試試題及答案】相關文章：
計算機等級考試二級VB模擬試題及答案09-18
2017計算機二級VB考試試題07-17
計算機二級考試C++試題及答案09-20
2024計算機二級考試模擬試題及答案06-12
廣東省計算機二級考試題及答案07-20