国家二级VB机试（上机操作）模拟试卷424
基本操作题
1.(1)在名称为Form1的窗体上添加一个名称为Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下有两个图标文件，其名称分别为“Misc34．ico”和“Misc37．ico”。程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Misc37．ico文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34．ico文件，如图所示)；单击“清除”按钮则清除图像框中的图案。请编写相应控件的Click事件过程，实现上述功能。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
(1)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图3．32所示。
[*]
程序中用到的控件及属性见表3．47。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3．48。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Image1．Picture ＝ LoadPicture(App．path &\\
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。其窗体文件上有一个标题为“得分”的框架，在框架中有一个名称为Text1的文本框数组，含6个文本框控件；文本框Text2用来输入难度系数。程序运行时，在左边的6个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框Text3中(如图所示)。
计算方法：
去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。
注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件Sjt4．vbp。窗体上的控件如图所示。程序运行时，若选中“累加”单选按钮，则“10”、“12”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后，单击“计算”按钮，则相应的计算结果在文本框中显示(例如，选中“累加”和“2000”，则计算1＋2＋3＋…＋2000，选中“阶乘”和“10”，则计算101)。单击“存盘”按钮则把文本框中的结果保存到考生文件夹下的out4．dat文件中。
要求：编写“计算”按钮的Click事件过程。
注意：不得修改已经存在的程序，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。
(1)【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim k As Integer，s As Single，a As Single，b As Single
a＝Val(Text1(0)．Text) ’将第一个文本框的值作为最大值赋予a
s＝a
b＝a ’将第一个数作为最小值赋予b
For k＝1 To 5 ’剩余文本框作为循环次数的条件
s＝s＋Val(Text1(k)．Text)
If a＜Val(Text1(k)．Text)Then
’取出每个文本框的值与最大值比较，求最大值
a＝Val(Text1(k)．Text)
End If
If b ＞ Val(Text1 (k)．Text)Then
b＝Val(Text1(k)．Text)
End If
Next k
s＝(s－a－b)／4
根据要求去掉一个最高分和一个最低分后求四科的平均分
s＝s * 3 * Val(Text2．Text)
’根据题意此处应填平均分
Text3 ＝Int(s * 100)／100
’Int(N)是求小于或等于N的最大整数，同时将最后结果显示在Text3上
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：打开本题工程文件；
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Long
Dim sum As Long
m＝1
If n＝10 Or n＝12 Then ’通过判断n的值，可确定使用什么操作
For i＝2 To n
m＝i * m
Next i’求n的阶乘
Text1．Text＝m
End If
sum＝0
If n＝2000 Or n＝1000 Then
For j＝1 To n
sum＝sum＋j
Next j ’求1到n的和
Text1．Text＝su
本文档预览：3600字符，共4290字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
