1、国家二级 VB机试（上机操作）模拟试卷 429及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 C1、标题为 “改变颜色 ”的命令按钮，窗体标题为 “改变窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HFF&)。运行程序后的窗体如图所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。(2)在名称为 Form1的窗体上添加一个名称为 Shape1的形状控件，在 属性窗口中将其形状设置为圆形。添加一个名称为List1的列表框，并在
2、属性窗口中设置列表项的值分别为 1、 2、 3、 4、 5。将窗体的标题设为 “图形控件 ”。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充，如图所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2 vbp，窗体文件名保存为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是通过键盘输入正 整数到文本框中。在 “除数 ”框架中选择一个单选按钮，然后单击 “处理数据 ”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的 5个
3、数添加到列表框List1中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp。程序运行后，单击 “开始 ”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔 0 5秒移动 一次，当图片顶端移动到距窗体下边界的距离少于200时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上
4、述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩 (均为整数 )。要求编写程序，统计总人数，同时统计不及格、 60 69、 70 79、 80 89及 90 100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击 “保存 ”按钮，保存统计结果。 注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按 “保存 ”按钮，否则将没有成绩，最后将修改后的文件按原文件名进行存盘
5、。 国家二级 VB机试（上机操作）模拟试卷 429答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 3 59。步骤 2：打开代码编 辑窗口，在指定位置编写如下代码。 参考答案 Private Sub C1_Click() Form1 BackColor &HFF& End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：建立界面，将窗体 Form1的 Caption属性设置为 “图形控制 ”，然后添加相应的控件并设置控件的属性。程序中用到的控件及属性见表
6、3 60。 步骤2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub List1_Click() Shape1 FillStyle List1 Text End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口中，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim Y As Integer For j 0 To 2 循环三个单选按钮 If Option1(i) Value
7、 TrueThen 当某个按钮被选 y Val (Option1 (i) Caption) 提取按钮名并转换为数值 End If Next Call calc(y) 调用子函数 End Sub Private Sub calc(y As Integer) ClearList 执行子函数 i 1 x Val(Text1 Text) 1 Do While i 5 只需要显示 5个数 If x Mod y 0 Then 判断 x是否能被 y整除 List1 AddItem x 添加满足条件的数至表 i i 1 统计 End If x x 1 自加，判断下次循环 Loop End Sub Privat
8、e Sub ClearList() 清空列表框的项目 For k List1 ListCount 1 To 0 Step 1 List1 RemoveItem k Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Timer1 Enabled True End Sub Private Sub Command2_Click() Timer1 Enabled False
9、End Sub Private Sub Form Load()Timer1 Interval 500 设置 Timer1执行间隔数，以毫秒计算 End Sub Private Sub Timer1_Timer() Picture1 Top Picture1 Top 200 顶端位置保持一致 VScro111 Value Picturel Top 滚动条滑块的位置与图片顶端位置保持一致 If VScro111 Value 200 Form1 Height 200 Then Picture1 Top 0 当图片顶端移动到距窗体下边界距离少于 200时，则图片重新向下移动 End If End Su
10、b 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 For i 1 To n 循环判断分数的范围，当满足某个条件时则分别统计 If arr(i) 60 Then Text2 Val(Text2) 1 ElseIf arr(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 Text1 Val(Text1) 1 显示统计人数 Next 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
