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