国家二级VB机试（上机操作）模拟试卷609
基本操作题
1.在名称为Forml、标题为“学生出勤情况”的窗体上画1个名称为Frame1的框架控件，其标题内容为“请选择”；再向框架内画5个名称分别为OptionI、Option2、Option3、Option4、Option5，标题文字分别为“旷课”、“迟到”、“早退”、“请假”和“正常”的单选钮控件。程序执行时，Option5呈选中状态，其画面如图所示，请设置相应属性。
【操作步骤】
步骤l：新建一个窗体，设置窗体的Caption属性为“学生出勤情况”。
步骤2：在窗体上添加一个框架控件，根据表5．5设置控件的Caption属性。
[*]
步骤3：在框架控件上添加5个单选钮控件，根据表5．6分别设置控件的相关属性，结果如图5．6所示。
[*]
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
解析：新建一个窗体，设置窗体的Caption属性；然后在窗体上添加一个框架控件，设置框架的Caption属性；再在框架上添加5个单选钮控件，分别设置单选钮的Caption属性，并设置Option5的Value属性。
2. 在窗体Forml上画一个名称为Labell、标题为“请选择”的标签控件；再画一个名称为Listl的列表框控件，通过设置有关属性向其中依次加入“矩形”、“正方形”、“椭圆形”、“圆形”、“四角圆化的矩形”、“四角圆化的正方形”共6个列表项；最后在窗体上画1个名称为Shapel的形状控件。
要求：编写列表框Listl的Click事件过程，使得程序运行时，在列表框中单击不同的列表项时，能将形状控件中的形状设置成列表框中选中的形状，程序运行示意图如图所示。
【操作步骤】
步骤1：新建一个窗体，在窗体上添加一个标签控件，根据表5．7设置控件的Caption属性，结果如图5．7所示。
[*]
步骤2：在窗体上添加一个列表框控件，根据表5．8设置控件的List属性，结果如图5．8所示。
[*]
步骤3：在窗体上添加一个形状控件。
步骤4：双击列表框控件，打开代码窗口，在Listl的Click事件中根据题目要求编写代码(阴影部分是需要填入的内容)。
Private Sub List_Click()
[*]
步骤5：调试并运行程序，关闭程序后按题目要求存盘。
解析：新建一个窗体，在窗体上添加一个标签控件，设置标签的Caption属性；再在窗体上添加一个列表框控件和形状控件，设置列表框控件的List属性，然后按题目要求在列表框控件的Click事件中编写代码。
简单应用题
3.考生文件夹下有工程文件sjt3．vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。该程序的功能是模拟秒表计时，程序运行时，单击“开始”按钮，秒表开始工作，每隔0．1秒显示一次时间，标签Labell中显示整秒数，标签Label2中显示小数部分(可精确到0．1秒)；单击“结束”按钮，秒表停止工作，计时结束。下图所示的是某次秒表计时结果为7．3秒的示意图。
【操作步骤】
步骤l：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释“′”，将问号改为正确的内容。
参考答案(划线部分是需要填入的内容)
Dim m As Integer
Dim n As Integer
Private Sub Commandl_Click()
m=0
n=0
Labell．Caption=＂0．＂
Label2．Caption=＂0＂
Timerl．Interval=100
Timerl．Enabled=Thie
End Suh
Prtvate hub Command2_Click()
TimerlEnabled=False
End Sub
P14vate SubTimer_Timer()
m=m+1
If m=10 Then
n=n+l
Labell．Caption=Trim(Str(n))＂′＂
Label2．Caption=＂0＂
m=0
Else
Label2．Caption=Trim(Str(m))
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：计时器控件的Interval属性用于设置计时器事件之间所间隔的毫秒数；计时器控件的Enabled属性用于设置计时器是否可用；Trim()函数用于去掉字符串左、右两边的空白字符。
4. 考生文件夹下有工程文件sjt4．vbp。窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序运行时的功能是，单击“开始”按钮，自动产生10个1～100的随机整数，且每产生一个整数，就将该整数显示到文本框Textl中，同时调用1次In-sAndSort过程，利用插入排序法自动将该整数插入到数组a中，并使数组a中已有的数据保持从小到大的顺序。待第10个整数插入结束后，将数组a中的全部数据按下标从小到大顺序显示到文本框Text2中(已从小到大排序)，各数据问用空格分隔。
程序的运行结果示意图如下图所示。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释“’”，将问号改为正确的内容。
参考答案(划线部分是需要填入的内容)
Option Base 1
Const N As Integer=10
Dim(a()As Integer
Private Sub Commandl_Click()
Dim i As Integer
Dim d As Integer
ReDim a(N)As Integer
Textl．Text=＂＂
Text2．Text=＂＂
Randomize
For i=l To N
d=Int(Rnd*100+1)
Textl
本文档预览：3600字符，共6155字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
