国家二级VB机试（上机操作）模拟试卷433
基本操作题
1.(1)在名称为Form1的窗体上画一个标题为“直辖市”、名称为。Frame1的框架，在框架中画一个名称为Combo1的组合框，其编辑域为空，有如图所示的4个列表项，外观风格也与图中相同。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(1)【操作步骤】
步骤1：新建一个窗体Form1。
步骤2：向窗体上添加一个Frame控件，并按照表4．13设置控件的属性。
[*]
步骤3：向Frame控件中添加一个ComboBox控件，按照表4．14设置控件的属性，设置完成后结果如图4．11所示。
[*]
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：新建一个窗体Form1。
步骤2：向窗体中添加一个命令按钮，按照表4．15设置控件的属性。
[*]
步骤3：向窗体中添加一个计时器控件，按钮表4．16设置控件的属性，设置完成后结果如图4．12所示。
[*]
步骤4：添加按钮的Click事件过程。
参考答案
Private Sub Command1_Click()
Timer1．Enabled＝True
End Sub
步骤5：添加计时器的Timer事件过程
参考答案
Private Sub Timer1_Timer()
Command1．Caption＝Val(Command1．Caption)＋2
End Sub
步骤：6：调试并运行程序，关闭程序后按题目要求存盘。
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。窗体上有一个名称为List1的列表框，且已有若干个项目，如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时，单击“部分反序”按钮，列表框中除最前面的一个项目不动外，其他项目的顺序反向显示，如图(b)所示。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。其功能是：
1)单击“产生数据”按钮，产生10个随机整数，并显示在Picture1图片框的第1行；
2)在Text1文本框中输入要清0的第1个数的位置，在Text2文本框中输入要清0的个数，然后单击“清0”按钮，则把清0后的数据显示在图片框的下一行。如图所示。
(1)【操作步骤】
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim k％，s $
For k＝1 To (List1．ListCount－1) 2
s $＝List1．List(k)
List1．List(k)＝List1．List(List1．List Count－k)
List1．List(List1．ListCount－k)＝s
Next
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Option Base 1
Dim a(10)As Integer
Private Sub Command1_Click()
Randomize
For k＝1 To 10
a(k)＝Int(Rnd * 99)＋1
Picture1．Print a(k)；
Next k
Picture1．Print
End Sub
Private Sub Command2_Click()
Dim start As Integer，n As Integer
start＝Val(Text1．Text)
If start=0 Then
start＝1
End If
If start＞10 Then
start＝10
End If
If Text2．Text＝\\
解析：
综合应用题
3.在考生目录下有工程文件sjt5．vbp和文本文件in5．txt，in5．眦中有不超过100个4位正整数。窗体上有2个命令按钮，其功能是：单击“读入数据”按钮，可以读入in5．txt文件中的所有数，并显示在文本框中。单击“计算并保存”按钮，能够把满足下述条件的整数的个数，以及这些数的累加和存入out5．txt文件。这些数需满足的条件是：数中各位数字累加后能够被5整除(例如：5235各位数字累加和是15，能够被5整除，所以是满足条件的数)。
要求：
1)把“读入数据”按钮的Click事件过程中的?改为正确的内容；
2)为“计算并保存”按钮的Click事件过程编写代码。(事件过程的最后一行用于存盘，已经给出，考生不得修改，否则无成绩!)。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
【操作步骤】
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容，并在“考生编写的代码”区域填入相应的代码以实现题目的功能。
参考答案
Option Base 1
Dim a(100)As Integer，num As Integer
Private Sub Command1_Click()
Dim k As Integer
k=1
Open App．Path&\\
解析：
本文档预览：3600字符，共3574字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
