国家二级VB机试（上机操作）模拟试卷457
基本操作题
1.(1)在名称为Form1的窗体上添加一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。同时建立一个下拉菜单，其名称为File，标题为“文件”，此菜单含有一个子菜单项，标题为“显示列表框”，名称为Show，初始状态为被选中，运行时的效果如图所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为Sjtl．frm，工程文件名保存为sjt1．vbp。
(2)新建一个名称为Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，其标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”，如图所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为Sjt2．frm，工程文件名保存为sjt2．vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。
(1)步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3．61，菜单编辑属性见表3．62，菜单项的Checked属性设置为True。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤l：建立界面，并设置窗体的Caption属性为“使用输入对话框”。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
PriVate sub Form_Click()
InputBox\\
解析：(1)通过列表框的Name、List属性设置名称为List1的列表框，并在列表框添加三个选项，即北京、上海和天津。使用菜单编辑器再建立一个下拉菜单，菜单标题为“文件”，名称为File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为Show，通过设置菜单项的Checked属性为True使初始状态为选中。
(2)通过窗体的Caption属性将窗体的标题设置为“使用输入对话框”，在Form_Click事件过程中，运用Call语句使得运行程序并单击窗体时，出现输入对话框，通过对Input。Box()函数的设置，使该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，其功能是：
①单击“读数据”按钮．则将考生文件夹下in3．dat文件中的100个正整数读入数组a中。
②单击“计算”按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数的平方，那么它就是完全平方数。如：36=62，所以36就是一个完全平方数)，并计算这些完全平方数的平均值，最后将计算所得平均值截尾取整后在文本框Text1中显示。
在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。要求完善程序使其实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。在结束程序运行之前，必须进行“计算”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有一个计时器和两个命令按钮。计时器Timerl的初始状态为不可用；2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为Label1，且能根据标题内容自动调整大小的标签，其标题为“Visual Basic程序设计”，标题字体为黑体小四号字，如图所示，程序功能如下：
①单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。
②单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。
③单击“退出”按钮，则结束程序运行。
(1)步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
Dim sum As Long
Dim k As Integer
Dim m As Integer
For k=1 To 100’对100个数循环判断
For m=1 To Sqr(a(k))’判断a(k)是否为完全平方数
If a(k)=m^2 Then
sum=sum+a(k)’求完全平方数之和
n=n+1’完全平方数总数
End If
Next m
Next k
Text1=Fix(sum／n)’Fix函数的功能是取整
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：打开本题工程文件，添加一个标签，按表3．54设置标签的属性。
[*]
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
PriVate Sub Command1_Click()
If Command1．Caption=\\
解析：(1)通过文件操作读入数据，并将数值赋值给数组a(k)，根据题意，程序要实现寻找完全平方数，并求出完全平方数的平均值，现在读入和保存程序已经编写完整，需要编写的是求出完全平方数的平均值的代码。首先我们要了解什么是完全平方数，一个整数如果是另一个整数的平方，那么它就是完全平方数。例如：36=62，所以36就是一个完全平方数。通过循环语句和判断语句确定完全平方数，并进行完全平方数和的累加，求出平均数。
(2)题目要求单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入，单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。标签的滚动方式由Timerl_Timer事件过程进行判定，并通过标签的width和Left属性值的改变实现标签的移动。单击“退出”按钮，End语句则表示结束程序运行。
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2+b2=c2。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计均在60以内的三个数满足上述关系的整数组合的个数，并显示在标Label1中。
注意：不得修改原有程序的控件属
本文档预览：3600字符，共4223字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
