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 '循环变量
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
【2016下半年计算机二级vb考试试题及答案】相关文章：
2017计算机二级VB考试试题06-21
2017下半年计算机二级考试VB检测试题06-22
计算机二级Access考试试题及答案11-01
2017全国计算机二级VB考试试题06-22