国家二级VB机试（上机操作）模拟试卷300
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图3—137所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为“最大值”、“最小值”，且都未选中。再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图3—138所示)。
请编写适当的事件过程，使得程序运行时，单击“最大值”单选按钮，则滚动条上的滚动框移到最右端；单击“最小值”单选按钮，则滚动框移到最左端。
注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sji2．frm。
第1小题
步骤1：新建一个“标准EXE”工程，利用菜单设计器按表4—81在窗体上建立一个二级菜单。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
步骤1：新建一个“标准：EXE”工程，按表4—82在窗体中画出控件并设置其相关属性。
[*]
步骤2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。
参考代码：
Private Sub Option1_Click()
HScroll1．Value=100
End Sub
Private Sub Option2_Click()
HScroll1．Value=0
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按题目要求利用VB菜单设计器建立一个二级菜单。
第2小题：本题需要在窗体上二画出水平滚动条，并设置Tablndex属性为0；然后在单选按钮的单击事件中改变滚动条的Value属性值就能使滑块处于指定位置。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，己给出了所有控件和部分程序。程序运行时，请按以下顺序操作：
1)单击“读入数据”按钮，可把考生目录下的文件in3．dat中的100个整数读到数组a中；
2)从名称为List1的列表框中选中一项(如图3—139所示)。
3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。
4)单击窗体右上角的关闭按钮结束程序。
“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。
注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中横线(横坐标)的名称为Line1，竖线(纵坐标)的名称为Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shape1，它们的Visible属性都为False；从左到右的两个按钮的名称分别为Command1、Command2；另有一个有五个元素的标签数组，名称为Label1，其所有元素的Visible属性都为False。如图3—140(a)所示。程序运行时，单击“输入5个数据”按钮，可输入五个整数(最好在100～2000之间)，并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500，则结果如图3—140(b)所示。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
第1小题
步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。
参考代码：
Private Sub Command2_Click()
Dim k As Integer，i1，i2As Integer
i1=a(1)：i2=a(1)
For k=2To100
If a(k)＞i1 Then
i1=a(k)
End If
If a(k)＜i2 Then
i2=a(k)
End If
Next k
If List1．Selected(0)=True Then
Text1．Text=i1-i2
End If
If List1．Selected(1)=True Then Text1．Text=i1+i2
End If
If List1．Selected(2)=True Then
Text1．Text=i1*i2
End If
步骤2：按＜F5＞键运行程序，单击“读入数据”按钮，然后在列表框中选择一项，并单击“计算”按钮，统计出结果。
步骤3：单击窗体右上角的关闭按钮以结束程序。
步骤4：按要求将文件保存至考生文件夹中。
第2小题
步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
For k=1To5
Label1(k-1)．Visible=True
Shape1(k-1)．Height=s(k)
a=Line1．Y1
步骤2：按要求将文件保存至考生文件夹中。
解析：第1小题：本题在命令按钮的单击事件中先利用循环统计字符串中大写字母和小写字母的值。首先假设数组中的第一个元素既为最大值也为最小值，然后依次从第二个元素开始向后循环。对每一个数组元素都加以判断，若其比最大值还大，则其成为新的最大值；若其比最小值还小，则其成为新的最小值。这样循环结束后可以得到数组的最大值和最小值。
接下来判断列表框中选中的是哪一项然后执行对应计算，并输出结果。
第2小题：“输入5个数据”按钮的单击事件过程中，需要连续输入5个数据并且存放到数组S中，因此k应该由1循环到5，在循环中将输入的数据保存到数组是中并且将其赋值给五个标签组成的控件数组，随后将标签的Visible属性设置为True以便显示出来。
“画直方图”按钮的单击事件过程中，源程序用For循环来依次计算每一个形状控件的高度，该高度应该为对应数组元素的值；然后计算该直方图的Top属性值(应为水平直线的Y1或Y2属性值减去直方图的高度)，最后显示该直方图(通过设置其Visible实现)。
综合应用题<
本文档预览：3600字符，共4813字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
