admin 管理员组文章数量: 1086019
2024年3月27日发(作者：lookup函数模糊查找)
国家二级VB机试（上机操作）模拟试卷457
(题后含答案及解析)
全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题
基本操作题
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”请输入”，”等级考试”，”Basic” End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(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 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=“演示”Then
Timer1．Enabled=True’当单击”演示”按钮时Timerl事件触发
Command1．Caption=“暂停” Else Timer1．Enabled=False’当单击”暂停”
按钮时，Timerl事件停止 Command1．Caption=“演示” End If End Sub
PriVate sub Command2_Slick( ) End’退出程序 End Sub Private Sub
Timerl_Timer( ) If Label1．Left+Label1．Width>Form1．Width Then’判断
标签是否已滚动出窗体 Label1．Left= 一Label1．Width ‘将标签位置重置，
使它从窗体左边滑出 Else Label1．Left=Label1．Left+100’标签移出
End If End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题
目要求存盘。
解析：(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中。 注意：不得修改原有程
序的控件属性。在结果程序运行之前，必须至少正确运行一次程序，将统计的结
果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
正确答案：步骤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 i =j +k Then m=m+1
‘m为记录满足条件的个数 End If Next k Next j Next i
Label1=m／2’去掉相同的项 步骤3：调试并运行程序，关闭程序后按题目要
求存盘。
解析：通过循环嵌套实现遍历60以内的整数，通过勾股定理表达式判断是
否为勾股数整数组合，并通过变量的累加实现勾股定理整数组合个数的统计。
版权声明：本文标题：国家二级VB机试(上机操作)模拟试卷457(题后含答案及解析) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711505203a597395.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论