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