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