国家二级VB机试（上机操作）模拟试卷544
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为C1、标题为“变宽”的命令按钮，窗体名称为“改变按钮大小”。编写程序，使得单击命令按钮时，命令按钮水平方向的宽度增加100。程序运行后的窗体如图1－212所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，画一个名称为L1的列表框，并在属性窗口中设置列表项的值为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则按照所选的值改变形状控件的形状。例如，选择3，则形状控件被设为圆形，如图1－213所示。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，如表2－102在窗体中画出控件并设置其相关属性。
[*]
步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：
Private Sub C1_Click()
C1.Width = C1.Width + 100
End Sub
步骤3：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Form1中加入一个列表框和一个形状控件，并分别如表2－103设置它们的相关属性。
[*]
步骤3：打开代码编辑窗口，编写列表框的事件过程：
参考代码：
Private Sub L1_Click()
Shape1.Shape = L1.Text
End Sub
步骤4：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.（1）在考生文件夹中有一个工程文件sjt3.vbp，窗体控件布局如图1－214（a）所示。程序运行时，在文本框Text1 中输入一个正整数，选择“奇数和”或“偶数 和 ”，则 在Label2中显示所选的计算类别。单击“计算”按钮时，将按照选定的“计算类别”计算小于或等于输入数据的奇数和或偶数和，并将计算结果显示在Label3中。程序的一次运行结果如图1－214（b）所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
（2）在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，如果单击“开始”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击“停止”按钮，则图片停止移动，如图1－215所示。在窗体文件中已经给出了全部控件，但程序不完整。
第1小题
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Call calc(i)
Lbl2.Caption = Option1(i).Caption
x = Val(Text1.Text)
If i Mod 2 = 1 Then
Label3.Caption = result
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt4.vbp。
步骤2：进入代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Timer1.Enabled = False
Timer1.Interval = 500
If Picture1.Left ＞ Form1.Width Then
Picture1.Left = 0
步骤3：按要求将文件保存至考生文件夹中。
解析：
综合应用题
3.在考生文件夹中有一个工程文件sjt5.vbp，窗体如图1－216所示。运行程序时，从数据文件中读取学生的成绩。要求编写程序，统计总人数、平均分（四舍五入取整）、及格人数和不及格人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，打开代码编辑窗口，编写“统计”按钮的单击事件过程。
参考代码
Text1.Text = n
Sum = 0
count1 = 0
count2 = 0
For i = 1 To n
Sum = Sum + arr(i)
If arr(i) < 60 Then
count1 = count1 + 1
Else
count2 = count2 + 1
End If
Avg = Sum / n
Next
Text2.Text = Int(Avg + 0.5)
Text3.Text = count1
Text4.Text = count2
步骤2：按要求将文件保存至考生文件夹中。
解析：
本文档预览：3600字符，共3393字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
