2016下半年计算机二级vb考试试题及答案
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
