1、国家二级 VB机试（上机操作）模拟试卷 386及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个名称为 C1、标题为 “改变颜色 ”的命令按钮，窗体标题为 “改变窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HFF&)。运行程序后的窗体如图 378所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上画一个名称Shapel
2、的形状控件，在属性窗口中将其设置为圆形。画一个名称为 List1的列表框，并在属性窗口中设置列表项的值分别为 1、 2、 3、 4、 5。将窗体的标题设为“图形控件 ”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充。如图 379所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是通过键盘向文本框中输入正整数。 在 “除数 ”框架中选择一个单选按钮，然后单
3、击 “处理数据 ”按钮，将大于文本框中的正整数且能够被所选除数整除的 5个数添加到列表框 List1中，如图 380所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。程序运行 后，单击 “开始 ”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每 0 5秒移动一次。 当图片顶端移动到距窗体的下边界的距离少于 200时，再回到窗体顶部，重新向下移动，如图 381所示。在窗体文件中已经给出了
4、全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，窗体如图 382所示。运行程序时，从数据文件中读取学生的 成绩 (均为整数 )。要求编写程序，统计总人数，并统计不及格、 60 69、 70 79、 80 89及 90 100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击 “保存 ”按钮，保存统计结果。注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果
5、显示在文本框中，再按 “保存 ”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 386答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体Form1中画一个命令按钮，设置相关属性，其属性及值如表 449所示。步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。参考代码： PriVate Sub C1_Click()Form1 BackColor HFF End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个 “标准 EXE”工
6、程。 步骤 2：在窗体Form1中加入一个列表框和一个形状控件，并分别如表 450设置它们的相关属性。 步骤 3：打开代码编辑窗口，编写列表框的 Click事件过程。参考代码： Private Sub List1_Click()Shape1 FillStyle List1 TextEnd Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If Option1 Item(i) True Then y
7、val(Option1(i) Caption) Do While i 5 List1 AddItem x 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt4 vbp。 步骤 2：进入代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Timer1 Interval 500 VScrol11 Value Picture1 Top Picture1 Top 0 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp
8、， 在代码编辑窗口的指定位置编写以下代码。参考 代码： Text1 Text n count1 0： count2 0： count3 0； count4 0： count5 0： count6 0 For i 1 To n y Int(arr(i) 10) Select Case y Case 1， 2， 3， 4， 5 count1 count1 1 Case 6 count2 Count2 1 Case 7 count3 count3 1 Case 8 count4 count4 1 Case 9， 10 counts count5 1 End Select Next Text2 Text count1 ： Text3 Text count2 Text4 Text count3 ： Text5 Text count4 Text6 Text count5 步骤 2：按 键运 行程序，先单击 “统计 ”按钮，再单击 “保存 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
