1、国家二级 VB机试（上机操作）模拟试卷 288及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。(1)在名称为 Form1的窗体上画一个名称为 C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图 378所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1vbp，窗体文件名为 sjt1frm。(2)在名称为
2、 Form1的窗体上画一个名称 Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为 List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充。如图 379所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通
3、过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中的正整数且能够被所选除数整除的 5个数添加到列表框 List1中，如图 380所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每05 秒移动一次。当图片顶端移动到距窗体的下边界的距离少于 200时，再回到窗体顶部，重新向
4、下移动，如图 381所示。在窗体文件中已经给出了全部控件，但程序不完整。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，窗体如图 382所示。运行程序时，从数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，并统计不及格、6069、7079、8089 及 90100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮保存数据，否则无成绩。最后把修改后的文件按原文件
5、名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 288答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。(1)在名称为 Form1的窗体上画一个名称为 C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图 378所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1vbp，窗体文件名为 s
6、jt1frm。(2)在名称为 Form1的窗体上画一个名称 Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为 List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充。如图 379所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：第 1小题 步骤 1：新建一个“标准 EXE”工程，在窗体 Fo
7、rm1中画一个命令按钮，设置相关属性，其属性及值如表 449所示。 步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。 参考代码： Private Sub C1_Click() Form1BackColor=&HFF& End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：新建一个“标准 EXE”工程。 步骤 2：在窗体 Form1中加入一个列表框和一个形状控件，并分别如表 450设置它们的相关属性。 )解析：解析：第 1小题：本题需在命令按钮的单击事件过程中，通过语句设置窗体的 BackColor属性值为“&HFF&”。 第 2小题：当形状控件的 Sh
8、ape属性值是 3时显示为圆：形状控件的填充色样式通过FillStyle属性设置，其中 0为实线、1 为透明、2 为水平线、3 为垂直线、4 为向上对角线、5 为向下对角线、6 为交义线、7 为对角交叉线，缺省值为 1。要通过单击列表框中的项目，来改变形状控件的填充样式，需在列表框的 Click事件过程中，用语句将列表框中所选的值(通过其 Text属性返回)作为形状控件的填充参数。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中
9、的正整数且能够被所选除数整除的 5个数添加到列表框 List1中，如图 380所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每05 秒移动一次。当图片顶端移动到距窗体的下边界的距离少于 200时，再回到窗体顶部，重新向下移动，如图 381所示。在窗体文件中已经给出了全部控件，但程序不完整。 （分数：2.00）_正确答案
10、：(正确答案：第 1小题 步骤 1：打开考生文件下的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： If Option1Item(i)=True Then y=val(Option1(i)Caption) Do While i=5 List1AddItem x 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：打开考生文件夹下的工程文件 sjt4vbp。步骤 2：进入代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Timer1Interva1=500 VScroll1Value=Pi
11、cture1Top Picture1Top=0 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：第 1小题：判断整数 A能被整数 B整除的条件表达式为：A Mod B=0。本题源程序在“计算数据”的单击事件过程中，通过 For循环逐一判断单选按钮数组中的每个元素是否选中，用变量 y记录选中单选按钮所标识的数字，并调用过程“calc”计算满足条件的正整数。 在过程“calc”中，通过 Do循环依次判断大干文本框中数的正整数是否能被变量 y整除，将能被整除的前 5个数添加到列表框 List1中。第 2小题：本题源程序利用计时器的 Timer事件来控制图片的移动，因此单击“开始”按钮启动计时
12、器，而单击“停止”按钮就是要停止计时器。在计时器的 Timer事件过程中，通过每次使图片框的 Top属性值增量 200实现移动，并让垂直滚动条滑块的位置随图片框的 Top属性值变化。当图片顶端移动到距窗体的下边界的距离少于 200时(即 VScroll1Value+200=Form1Height200)时，则重新从窗体顶端开始移动，即 Picture1Top=0。由于题目要求不能在设计阶段修改控件属性，要想在单击“开始”按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的 Interval属性，即 Timer1Interva1=500。三、综合应用题(总题数：1，分数：2.00)3.在考生
13、文件夹下有一个工程文件 sjt5vbp，窗体如图 382所示。运行程序时，从数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，并统计不及格、6069、7079、8089 及 90100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口的指定位置编写以下代码。
14、 参考代码： Text1Text=n count1=0：count2=0：count3=0 count4=0：count5=0：count6=0 Fori=1Ton y=Int(arr(i)10) Select Case y Case1，2，3，4，5 count1=COUnt1+1 Case6 count2=count2+1 Case7 count3=count3+1 Case8 count4=count4+1 Case9，10 count5=Count5+1 End Select Next Text2Text=count1：Text3Text=count2 Text4Text=count3：Text5Text=count4 Text6Text=count5 步骤 2：按F5键运行程序，先单击“统计”按钮，再单击“保存”按钮。 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：本题要求编写“统计”按钮的单击事件过程。程序设计思路：在一个 For循环中逐一取出存于数组 arr中的各学生成绩，用 Select Case语句对取出的某学生成绩进行判断，根据成绩所属情况，使对应文本框中的数增 1。
