国家二级VB机试（上机操作）模拟试卷445
基本操作题
1.(1)在标题为“列表框”、名称为Form1的窗体上添加一个名称为List1的列表框，通过属性窗口输入4个列表项：“数学”、“语文”、“历史”、“地理”，列表项形式采用复选框形式，如图所示。列表框的宽为1100，高不限。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹出式菜单，其含有三个菜单项，它们的标题分别为：“打开”、“关闭”、“保存”，名称分圳为“m1”、“m2”、“m3”。再添加一个命令按钮，名称为“Command1”、标题为“弹出菜单”。要求：编写命令按钮的Click事件过程，使程序运行时，单击“弹出菜单”按钮可弹出“文件”菜单(如图所示)。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
(1)步骤1：新建一个窗体，按照题目要求建立列表框控件并设置窗体及列表框属性，如图3。29所示。
[*]
程序中用到的控件及属性见表3．41。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：建立界面，添加一个命令按钮，设置其Name属性为Command1，Caption属性为“弹出菜单”。然后建立一个菜单，菜单的属性见表3．42。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
PriVate sub Command1_Click()
PopupMerlu menul’显示菜单menul
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)列表框的Style属性只能在设计时确定。用于控制控件的外观，其数值可以设置为0(标准样式)和1(复选框样式)。通过列表框的Name和width属性来设置列表框的名称和宽，通过其List属性设置列表项。
(2)要创建弹出式菜单需要先用菜单编辑器来建立菜单，并将其主菜单项的可见(Visible)属性值设置为不可见，然后通过对象的Command1_Click事件，执行对象的PopupMenu方法来显示菜单。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjl3．vbp。其窗体文件上有一个标题为“得分”的框架，在框架中有一个名称为Text1的文本框数组，含6个文本框控件；文本框Text2用来输入难度系数。程序运行时，在左边的6个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框Text3中(如图所示)。
计算方法：
去掉1个最高得分和1个最低得分，求利下得分的半均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。
注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjl4．vbp。窗体上的控件如图所示。程序运行时，若选中“累加”单选按钮，则“10”、“12”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)，选中菜单中的一个菜单项后，单击“计算”按钮，则相应的计算结果在文木框显示(例如，选中“累加”和“2000”，则计算1+2+3+…+2000，选中“阶乘”和“10”，则计算10 !)。单击“存盘”按钮则把文木框中的结果保俘到考生文件夹下的out4．dat文件中。
要求：编写“计算”按钮的Click事件过程。
注意：不得修改已经存在的程序，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。
(1)步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim k As Integer，s As Single，a AsSingle，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)
EndIf
Next k
s=(s—a—b)／溪
根据要求去掉一个最高分和一个最低分后求四科的平均分
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=2 0 0
本文档预览：3600字符，共4917字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
