1、国家二级 VB机试（上机操作）模拟试卷 330及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “练习 ”的窗体上添加一个名称为 Frame1、标题为 “效果 ”的框架。框架内含有三个复选框，其名称分别为 Chk1、 Chk2和 Chk3，标题分别为 “倾斜 ”、 “加粗 ”和 “下划线 ”。 程序运行后的窗体如图所示。 要求：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 Label1的标签，使其初始内容为空，且能根 据其标题内容自动调整标签的大小；再添加两个命令按钮，
2、标题分别为 “日期 ”和 “时间 ”，名称分别为Command1、 Command2。请编写两个命令按钮的 Click事件过程，使得单击 “日期 ”按钮时，标签内显示系统当前日期；单击 “时间 ”按钮时，标签内显示系统当前时间。如图所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其窗体上有一个列表框和一个标题为 “选择 ”的命令按钮，且列表框中已有若干列表项。程序的功能是：当单击 ”选择 ”按钮
3、时，如果列表框中没有列表项，则程序不做任何操作。否则，判断列表框中是否有列表项被选中，如果没有，则自动选中首个列表项 (呈蓝色光条显示 )；如果有，且不是最后一个列表项，则自动选中后一个列表项，如果选中的是最末一项，则自动选中首个列表项。运行时窗体界面如图所示。程序已经给出，但不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序代码， 最后程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp，其窗体上有 4个标签、 1个文本框、 1个计时器和 1个标题为 “开始 ”的命令按钮。程序的功能是：用户在文本框中输
4、入一个计时时间 (单位：分 )，并单击“开始 ”按钮后，系统将开始倒计时，每隔 1秒显示 1次剩余时间，当到达计时长度时，系统倒计时结束，并弹出信息框显示 “时间到 !”，程序运行界面如图所示。程序已经给出，但不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序代码，最后程 序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩 (均为整数 )。要求编写程序，统计总人数，同时统计不及格、 60 69、 70一 79、 80一 89
5、及 90一 100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击 “保存 ”按钮，保存统计结果。 注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按 “保存 ”按钮，否则将没有成绩，最后将修改后的文件按原文件名 进行存盘。 国家二级 VB机试（上机操作）模拟试卷 330答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件，程序中用到的控件及属性见表 3 52。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：建立界面，添加相应控件
6、并设置控件的属性。程序中用到的控件及属性见表 3 53。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 PriVate sub Command1_Click() Labell=Date用于返回系统当前日期 End Sub PriVate Sub Command2_Click() Laben=Time用于返回系统当前时间 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将 问号改为正确的内容。 Private Sub Comman
7、dl_Click() If List1 ListCount=0 Then Exit Sub End If If List1 ListIndex=一 1 Then List1 ListIndex=0 Else If List1 ListIndex List1.ListCount-1 Then List1.ListIndex=List1.ListIndex+1 Else List1 ListIndex=0 End lf End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释
8、符 “”，将问号改为正确的内容。 Dim t As Integer Private Sub Command1_Click() t=60*Val(Text1 Text) Timer1.Enabled=True End Sub Private Sub Timed_Trimer() Dim m s As Integer If t =0 Then Timer1 Enabled=False MsgBox”时间到 !” Else t=t-1 m=Int(t/60) s=t Mod 60 Label4 Caption=”剩余 ”&m&”分 ”&s ”秒 ” End If End Sub 步骤 3：调试并运行
9、程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 For i=1 To n循环判断分数的范围，当满足某个条件时则分别统计 If arr(i) 60 Then Text2=Val(Text2)+1 ElseIf arm(i) =60 And arr(i) 70 Then Text3=Val(Text3) +1 ElseIf arr(i) =70 And arr(i) 80 Then Text4=Val(Text4)+1 ElseIf arr(i) =80 And arr(i) 90 Then Text5=Val(Text5)+1 ElseIf arr(i) =90 And arr(i) = 100 Then Text6=Val(Text6)+1 End If Textl=Val(Textl)+1显示统计人数 Next 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
