国家二级VB机试（上机操作）模拟试卷602
基本操作题
1.在名称为FormI的窗体上添加一个名称为Labell的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
【操作步骤】
步骤l：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图4．32所示。
[*]
程序中用到的控件及属性见表4．47。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
解析：标签的Name、Caption、width和}teight属性设置标签的名称、标题、宽和高，通过BorderStyle属性为标签设置边框，Alignment属性用来设置标签中文本的对齐方式。
2. 在名称为Forml的窗体上添加一个名称为Imagel的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Commandl、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下有两个图标文件，其名称分别为“Misc34．ico”和“Misc37．ico”。程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Misc37．ico文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34．ico文件，如图所示)；单击“清除”按钮则清除图像框中的图案。请编写相应控件的Click事件过程，实现上述功能。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
【操作步骤】
步骤l：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表4．48。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Commandl_C1ick()
Imagel．Picture=LoadPicture
(App．path＆＂＼Misc 34．ico＂)′加载图片
End Sub
Private Sub Command2一Click()
Imagel．Picture =LoadPicture
(App．path＆＂＼Misc37．ico＂)
End Sub
Private Sub Command3_C1ick()
Set Imagel．Picture=Nothing′清除Imagel中的图片
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：通过图像框的Name、Stretch和Bor-derStyle属性设置图像框的名称、自动调整以及是否有边框。通过命令按钮的Name和Caption属性设置命令按钮的名称和标题。通过loadPicture()函数实现图片的加载、转换和清除。
简单应用题
3.在考生文件夹下有一个工程文件sjt3．vbp。其窗体文件上有一个标题为“得分”的框架，在框架中有一个名称为Textl的文本框数组，含6个文本框控件；文本框Text2用来输入难度系数。程序运行时，在左边的6个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框Text3中(如图所示)。
计算方法：
去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。
注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Commandl click()
Dim k As Integer，S As Single，a As
Single，b As Single
a=Val(Textl(0)．Text)′将第一个文本框的值作为最大值赋予a
s=a
b=a′将第一个数作为最小值赋予b
For k=1 To5’剩余文本框作为循环次数的条件
S=S+Val(Textl(k)．Text)
Ifa＜Val(Textl(k)．
Text)Then
′取出每个文本框的值与最大值比较，求最大值
a=Val(Textl(k)．Text)
End If
If b ＞Val(Textl(k)．
Text)Then
b=Val(Textl(k)．Text)
End If
Next k
s=(s－a－b)／4
′根据要求去掉一个最高分和一个最低分后求四科的平均分
S=s*3*Val(Text2．Text)
′根据题意此处应填平均分
Text3=Int(s*i00)／100
′Int(N)是求小于或等于N的最大整数。同时将最后结果显示在Text3上
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：通过Val()函数获取文本框数组的值，并把它转换为数值型，通过循环语句和判断语句，找出最大值和最小值赋值给变量a和b，同时累加所有数值的和赋值给s，那么最终的和为s—a—b，根据算法求剩下得分的平均分，乘以3，再乘以Text2中输入的难度系数，得出最终的得分。
4.在考生文件夹下有一个工程文件sjt4．vbp。窗体上的控件如图所示。程序运行时，若选中“累加”单选按钮，则“10”、“12”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后，单击“计算”按钮，则相应的计算结果在文本框中显示(例如。选中“累加”和\\
【操作步骤】
步骤1：打开本题工程文件；
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
本文档预览：3600字符，共5883字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
