国家二级VB机试(上机操作)模拟试卷501
基本操作题
1.请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“显示记录”的窗体上画一个名称为Text1 的文本框,其初始内容为空;再画一个名称为Command1的命令按钮数组(下标从0 开始,有4个按钮,其对应的标题分别为“上一条记录”、“下一条记录”、“第一条记录”、“最后一 条记录”),程序执行时的效果如图1-11所示,且程序执行时按下回车键则相当于、单击“下一条记录”按钮。请设置相应属性。
注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。
(2)在名称为Form1的窗体上,画一个名称为Label1 的标签,其标题为“等级考试”,能根据标题内容自动调整标签的大小,外观如图1-12 所示。再画一个名称为Timer1 的计时器,其Interval 属性设为0,Enabled 属性设为True。
第1小题
【操作步骤】
步骤1:新建一个“标准EXE”工程,窗体中用“复制”和“粘贴”画出控件数组并按要求设置属性。
步骤2:按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。
步骤2:在代码编辑窗口编写窗体的Load 事件和计时器的Timer 事件过程。
参考代码:
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub
步骤3:按要求将文件保存至考生文件夹中。
解析:
简单应用题
2.(1)在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图1-13(a)所示。输入商品名称后,选中一种付款方式,则“成交”按钮变为可用,选择一种或多种“服务”后,单击“成交”按钮,则把相应信息显示在下面的图片框中,如图1-13(b)所示。若不选任何“服务”,则显示结果如图1-13(c)所示。单击“放弃”按钮,则恢复到图(a)状态。程序已经给出但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
(2)在考生文件夹下有工程文件sjt4.vbp,其中的列表框中已经有两个列表项(均为数字)。程序功能是在文本框中输入一个整数n(例如30),单击命令按钮,则在列表框中追加若干数字,所有追加的数字按以下规律排列:每个数是前面两个数之和,最后一个数是满足上述规律的最大的小于n 的数。如图1-14(a)所示。若再输入一个更大的整数(如100),单击命令按钮,则按上述规律继续追加数字。如图1-14(b)所示。
第1小题
【操作步骤】
步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。
参考代码:
If Check1(k).Value = 1 Then
Text1.Text = \\
解析:
综合应用题
3.考生文件夹下有工程文件sjt5.vbp。程序运行时,外观如图1-15所示,单击“显示数据”按钮,则将考生文件夹下in5.dat 文件的内容读入到5行40 列的二维数组a中,并按5行显示在Text1 文本框内;单击“统计”按钮,则计算每行中小于50 的数之和,及这些数的平均值(平均值保留2 位小数,是否四舍五入不限),并将它们(共10个值)分别显示在Label1 数组及Text2数组中。单击“保存”按钮,则保存计算结果。“显示数据”和“保存”按钮的Click事件过程已经给出,请编写“统计”按钮的Click事件过程实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须用“统计”进行统计,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
【操作步骤】
步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,打开代码编辑窗口,在指定位置编写以下代码:
参考代码:
For i = 1 To 5
Sum = 0
Counter = 0
For j = 1 To 40
If a(i, j) < 50 Then
Sum = Sum + a(i, j)
Counter = Counter + 1
End If
Next
Avg = Sum / Counter
Label1(i – 1).Caption = Sum
Text2(i – 1).Text = Int(Avg * 100) /100
Next
步骤2:按键运行程序,先单击“显示数据”按钮,接着单击“统计”按钮,然后单击“保存”按钮保存结果。
步骤3:按要求将文件保存至考生文件夹中。
解析:
本文档预览:3600字符,共3119字符,源文件无水印,下载后包含无答案版和有答案版,查看完整word版点下载