国家二级VB机试（上机操作）模拟试卷288
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图3—78所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图3—79所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
第1小题
步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个命令按钮，设置相关属性，其属性及值如表4—49所示。
[*]
步骤2：打开代码编辑窗口，编写按钮的Click事件过程中。
参考代码：
Private Sub C1_Click()
Form1．BackColor=&HFF&
End Sub
步骤3：按要求将文件保存至考生文件夹中。
第2小题
步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Form1中加入一个列表框和一个形状控件，并分别如表4—50设置它们的相关属性。
[*]
步骤3：打开代码编辑窗口，编写列表框的Click事件过程。
参考代码：
Private Sub List1_Click()
Shape1．FillStyle=List1．Text
End Sub
步骤4：按要求将文件保存至考生文件夹中。
解析：第1小题：本题需在命令按钮的单击事件过程中，通过语句设置窗体的BackColor属性值为“&HFF&”。
第2小题：当形状控件的Shape属性值是3时显示为圆：形状控件的填充色样式通过FillStyle属性设置，其中0为实线、1为透明、2为水平线、3为垂直线、4为向上对角线、5为向下对角线、6为交义线、7为对角交叉线，缺省值为1。要通过单击列表框中的项目，来改变形状控件的填充样式，需在列表框的Click事件过程中，用语句将列表框中所选的值(通过其Text属性返回)作为形状控件的填充参数。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”按钮，将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中，如图3—80所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0．5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图3—81所示。在窗体文件中已经给出了全部控件，但程序不完整。
第1小题
步骤1：打开考生文件下的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
If Option1．Item(i)=True Then
y=val(Option1(i)．Caption)
Do While i＜=5
List1．AddItem x
步骤2：按要求将文件保存至考生文件夹中。
第2小题
步骤1：打开考生文件夹下的工程文件sjt4．vbp。步骤2：进入代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Timer1．Interva1=500
VScroll1．Value=Picture1．Top
Picture1．Top=0
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：判断整数A能被整数B整除的条件表达式为：A Mod B=0。本题源程序在“计算数据”的单击事件过程中，通过For循环逐一判断单选按钮数组中的每个元素是否选中，用变量y记录选中单选按钮所标识的数字，并调用过程“calc”计算满足条件的正整数。
在过程“calc”中，通过Do循环依次判断大干文本框中数的正整数是否能被变量y整除，将能被整除的前5个数添加到列表框List1中。
第2小题：本题源程序利用计时器的Timer事件来控制图片的移动，因此单击“开始”按钮启动计时器，而单击“停止”按钮就是要停止计时器。在计时器的Timer事件过程中，通过每次使图片框的Top属性值增量200实现移动，并让垂直滚动条滑块的位置随图片框的Top属性值变化。当图片顶端移动到距窗体的下边界的距离少于200时(即VScroll1．Value+200＞=Form1．Height．200)时，则重新从窗体顶端开始移动，即Picture1．Top=0。由于题目要求不能在设计阶段修改控件属性，要想在单击“开始”按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的Interval属性，即Timer1．Interva1=500。
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，窗体如图3—82所示。运行程序时，从数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，并统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。
注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。
步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口的指定位置编写以下代码。
参考代码：
Text1．Text=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本文档预览：3600字符，共4013字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
