国家二级VB机试(上机操作)模拟试卷428
基本操作题
1.(1)在名称为Form1的窗体上添加一个名称为Shapel的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求:
①圆角矩形中填满绿色(颜色值为&H0000FF00&或&HFF00&)。
②窗体的标题为“圆角矩形”,字体为“仿宋_GB2312”。
程序运行后的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。
(2)考生文件夹下有一个工程文件sjt2.vbp。窗体中含有除计时器外的其他控件,还有一个过程sub1,其功能是按照Text1中的通话时间计算通话费,并将其显示在Text2中。
程序运行时,单击“通话开始”按钮,则在Text1中累加通话时间(每隔1秒,文本框中的数加1),单击“通话结束”按钮,则停止通话时间的累加;单击“计算通话费”按钮,则调用过程sub1。
要求:
①在窗体上画一个计时器,如图所示,并通过属性窗口设置适当属性。
②编写三个按钮的Click事件过程。
③编写计时器的事件过程。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句,“计算通话费”按钮的事件过程中只允许调用过程sub1。不得修改已经存在的程序和控件属性,最后把文件按原文件名存盘。
(1)【操作步骤】
步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表3.58。
[*]
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1:建立界面,设置计时器的Interval属性为1000,Enabled属性设置为False。
步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。
参考答案
Private Sub Command1_Click()
Timer1.Enabled=True ’通话开始,Timer生效
End Sub
Private Sub Command2_Click()
Timer1.Enabled=False ’通话结束,Timer失效
End Sub
Private Sub Command3_Click()
Call subl ’单击\\
解析:
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运动方向。
已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
(1)【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符“’”将问号改为正确的内容。
参考答案
Private Sub Form Click()For i=1 To 5 ’输入5行
For j=1 To 6-i’循环实现输入空格,每行依次减少一个空格
Print\\
解析:
综合应用题
3.在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示,如图所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五入),并在Text2中显示。
每吨运费的计算方法是:距离×折扣×单价。
其中,单价为0.3。
折扣为距离<500 折扣为1
500≤距离<1000 折扣为0.98
1000≤距离<1500 折扣为0.95
1500≤距离<2000 折扣为0.92
2000≤距离 折扣为0.9
单击“保存”按钮,则把距离和每吨运费存到文件out5.txt中。
已经给出了所有控件和部分程序,要求:
①去掉程序中的注释符,把程序中的?改为正确的内容。
②编写“计算运费”按钮的Click事件过程。
③编写列表框的Click事件过程。
注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须使用“保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,并编写相应的代码。
参考答案
Dim a(10) As Integer,n As Integer
Private Sub Command1_Click()
Open App.Path& \\
解析:
本文档预览:3600字符,共3337字符,源文件无水印,下载后包含无答案版和有答案版,查看完整word版点下载