1、国家二级 VB机试（上机操作）模拟试卷 32及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个名称为 Shapel的圆角矩形，高、宽分别为 1000、 2000。请利用属性窗口设置适当的属性满足以下要求： 圆角矩形中填满绿色 (颜色值为&H0000FF00&或 &HFFOO&)： 窗体的标题为 ”圆角矩形 ”。运行后的窗体如图 2-171所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在考生文件夹下有一个工程文件 sjt2 vbp。
2、窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Textl中的通话时间计算通话费，并将其显示在 Text2中。程序运行时，单击 ”通话开始 ”按钮，则在 Textl中累加通话时间 (每秒加 1)，单击 ”通话结束 ”按钮，则停止通话时间的累加；单击 ”计算通话费 ”按钮，则调用过程 subl。要求： 在窗体上画一个计时器 (如图 2-172所示 )，并通过属性窗口设置适当属性。 编写三个按钮的 Click事件过程。 编写计时器的事件过程。注意：要求程序中 不得使用变量，每个事件过程中只能写一条语句， ”计算通话费 ”按钮的事件过程中只允许调用过程 subl。不得修改已经
3、存在的内容和控件属性，最后把文件按原文件名存盘。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp。程序运行时，单击窗体则显示如图2-173所示的图案。请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。4 在考生文件夹下有一个工程文件 sjt4 vbp，窗体中有一个矩形和一个圆，程序运行时，单击 ”开始 ”按钮，圆可以纵向或横向运动 (通过选择单选按钮来决定 )，碰到矩形的边时，则向相反方向运动，单击 ”停止 ”按钮，则停止运动，如图 2-174所示。可以选择单选按钮随时改变运动方向。已经给出了所有控
4、件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp。程序运行时，单击 ”装入数据 ”按钮，则从考生目录下的 in5 txt文件中读入所有城市名称和距离，城市名 称按顺序添加到列表框 Listl中，距离放到数组 a中；当选中列表框中的一个城市；时，它的距离就显示在 Textl中，如图 2-175所示；此时，单击 ”计算运费 ”按钮，则计算到该城市的每吨运费 (结果取整，不四舍五入 )，并显示在 Text2中。每吨运费的计算方法是：距
5、离 折扣 单价。其中：单价为 0 3。距离 500折扣为 1500距离 1000折扣为 0 981000距离 1500折扣为 0 95l 500距离 2000折扣为 0 922000距离折扣为 0 9单击 ”保存 ”按钮，则把距离和每吨运费存到文件 out5 txt中。已经给出了所有控件和部分程序，要求： 去掉程序中的注释符，把程序中 ?改为正确的内容； 编写列表框的 Click事件过程； 编写 ”计算运费 ”按钮的 Click事件过程。注意：不得修改已经存在的程序：在退出程序之前，必须至少计算一次运费，且必须用 ”保存 ”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 国家二级 V
6、B机试（上机操作）模拟试卷 32答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3 98在窗体中画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：打开本题工程文件 sjt2 vbp，在窗体中画一个名为Timer1， Interval属性为 1000， Enabled属性为 False的计时器。 步骤 2：打开代码编辑窗口，编写三个命令按钮的 Click事件过程以及计时器的Timer事件过程。 参考代码： Private Sub Commandl_Click( ) Timerl Enabled=Tru
7、e End Sub Private Sub Command2_Cliok( ) Timer1 Enabled=False End Sub Private Sub Command3_Click( ) sub1 End Sub Private Sub Timerl_Timer( ) Textl=Textl+1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： For i=1 To 5 For j=1 To 2*i
8、-1 For j=1 To i+1 For j=1 To 9-2*i 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4_vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Timer1 Enabled=False Shape2 Top=Shape2 Top+d*5 0 If Shape2 Top =Shapel Top Or Shape2 Top +Shape2 Width =Shapel Top+Shapel Height Then Shape2 Left=Shape2 Left+d* 5
9、 0 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt5 vbp。 步骤 2：在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： n=n+ 1 LiStl AddItem ch$ 步骤 3：编写 ”计算运费 ”按钮和列表框的单击事件过程。 参考代码： Private Sub Command2_Click( ) P=0 3 d=Int(Textl Text 500) Select CaSe d Case 0 discount=1 Case 1 discount=0 98 Case 2 discount=0 95 Case 3 discount=0 92 Case Else discount=0 9 End Select Text2=Int(discount*p*Textl) End Sub Private Sub Listl_Click( ) Textl=a(Listl ListIndex+1) End Sub 步骤 4：运行程序，单击列表框中的某个列表项，并单击 ”计算运费 ”按钮获得一个结果，然后单击 ”保存 ”按钮保存计算结果。 步骤 5：按要求将文件保存至考生文件夹中。
