1、国家二级 VB 机试（上机操作）-试卷 60 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗体上添加一个名称为 C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFFF&)。运行程序后的窗体如图所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1 的窗体上添加一个名称为 Shape1 的形状控件，在属性窗口中
2、将其形状设置为圆形。添加一个名称为 List1 的列表框，并在属性窗口中设置列表项的值分别为 1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择 3，则形状控什中被竖线填充，如图所示。（分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考乍文件央下有一个工程文件 sjt3vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的 5 个数添加都列表框 List1 中，如图所示。在窗体文件中已经给出了全部控
3、件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔 05 秒移动一次，当图片顶端移动到距窗体下边界的距离少于 200 时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，窗体如图所示。运行程序
4、时，从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，同时统计不及格、6069、7079、8089 及90100 各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。 注意：不能修改程序的其他部分和控件属性。程序凋试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮，否则将没有成绩，最后将修改后的文件按原文件名进行存盘。（分数：2.00）_国家二级 VB 机试（上机操作）-试卷 60 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗体
5、上添加一个名称为 C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFFF&)。运行程序后的窗体如图所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1 的窗体上添加一个名称为 Shape1 的形状控件，在属性窗口中将其形状设置为圆形。添加一个名称为 List1 的列表框，并在属性窗口中设置列表项的值分别为 1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将其值作为
6、形状控件的填充参数。例如，选择 3，则形状控什中被竖线填充，如图所示。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：建立界而，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 359。 步骤 2：打开代码编辑窗 u，在指定位置编写如下代码。 参考答案 Private Sub C1_Click() Form1BackColOrHFF End Sub 步骤 3：渊试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：建立界面，将窗体 Form1 的 Caption 属件设置为“图形控制”，然后添加相应的控件并设置控件的属性。程序中用到的控件及属
7、性见表 360。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考乍文件央下有一个工程文件 sjt3vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的 5 个数添加都列表框 List1 中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。程序运行后，单击“开
8、始”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔 05 秒移动一次，当图片顶端移动到距窗体下边界的距离少于 200 时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口中，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim Y As Integer For i0 To 2循环三个单选按钮 If Option1(i)ValueTrue Then当某个按钮被
9、选 yval(Option1(i)Caption)提取按钮名并转换为教值 End If Next Call calc(y)调用子函数 End Sub Private Sub calc(y As Integer) ClearList执行子函数 i1 XVal(Text1Text)1 Do While i5只需要显示 5 个数 If X Mod y0 Then判断 x 是否能被 y 整除 List1AddItem x添加满足条件的数至表 ii1统计 End If xx1自加，判断下次循环 Loop End Sub Private Sub ClearList()清空列表框的项目 For kList1
10、ListCount1 To 0 Stepi List1RemoveItemk Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Timer1EnabledTrue End Sub Private Sub Command2 CliCk() Timer1EnabledFalse End Sub Private Sub Form Load() Timer1Interval50
11、0设置Timer1 执行问隔数，以毫秒计算 End Sub Private Sub Timer1 Timer() Picture1TopPicture1Top200顶端位置保持一致 VScroll1ValuePicture1Top滚动条滑块的位置与图片顶端位置保持一致 If VScroll1value200Form1Height200 Then Picture1Top0当图片顶端移动到距窗体下近界距离少于 200 时，则图片重新向下移动 End If End Sub 步骤 3：凋试并运行程序关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工
12、程文件 sjt5vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，同时统计不及格、6069、7079、8089 及90100 各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。 注意：不能修改程序的其他部分和控件属性。程序凋试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮，否则将没有成绩，最后将修改后的文件按原文件名进行存盘。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打丌代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
13、 参考答案 For i1 To n循环判断分数的范围，当满足某个条件时则分别统计 If arr(i)60 Then Text2Val(Text2)1 Else If arr(i)60 And arr(i)70 Then Text3Val(Text3)1 ElseIf art(i)70 And arr(i)80 Then Text4Val(Text4)1 Elself arr(i)80 And arr(i)90 Then Text5Val(Text5)1 ElseIf arr(i)90 And arr(i)100 Then Text6Val(Text6)1 End If Text1Val(Text1)1显示统计入数 Next 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
