国家二级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版点下载