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