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