1、国家二级 VB机试（上机操作）模拟试卷 204及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上添加一个计时器控件，名称为 Timerl。请利用属性窗口设置适当属性，使得在运行时可以每隔 1秒，调用计时器的 Timer。事件过程一次。另外，请把窗体的标题设置为 “题目 2”。设计阶段的窗体如图 2一 16所示。 注意：保存时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为sitl frm。 (2)在名称为 Forml的窗体上画一个文本框，名称为 Text1，无初始内容；再
2、画一一个图片框，名称为 P1。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图 217所示。程序中不能使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为sit2 frm 二、简单应用题 2 (1)在考生文件夹中有工程文件 sit3 vbp，其中的窗体如图 2 127所示。程序刚运行时，会生成一个有 10个元素的整型数组。若选中 “查找最大值 ”(或 “查找最小值 ”)单选按钮，再单击 “查找 ”按钮，则找出数组中的最大值 (或最小值 )，并显示在标签 Label2中。 请去掉程序
3、中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。(2)在考生文件夹中有一个工程文件sit4 vbp。窗体上已有控件，如图 2-128所示。请在属性窗口中将 Listl设置为可以多项选择 (允许使用 Shift键或 Ctrl键进行选择 )列表项。要求：双击 List1中的某一项时，该项目被添加到 L,ist2中，同时在 List1中清除该项目。若单击 “”按钮， List1中所订的项目显示在 List2中 (List2中已有项目不变 )， Listl中的内容不变。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序
4、中的 ?改为正确的内容。 注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp。程序运行时，单击 “装入数据 ”按钮，则从考生目录下的 in5 txt文件中读入所有城市名称和距离，城市名称按顺序添加到列表框 List1中，距离放到数组 a中 ；当选中列表框中的一个城市；时，它的距离就显示在 Text1中，如图 2-157所示；此时，单击 “计算运费 ”按钮，则计算到该城市的每吨运费 (结果取整，不四舍五入 )，并显示在 Text2中。每吨运费的计算方法足：距离 折扣 单价。 其中：单价为 0 3。距离国家
5、二级 VB机试（上机操作）模拟试卷 204答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 10在窗体中画出控件并设置其相关属件。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操 作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3-11在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： PriVate Sub Text1Change() P1 Print Text1 Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题
6、2 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “一 ，将问号 “?”改为正确的内容。 参考代码： If Optionl value=True Then If a(i)=x Then x=a(i) End If ElseIf a(i)y Then y=a(i) End If 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjc4 vbp，代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： L2 AddItem L1 L
7、ist(L1 ListIndex) L1 RemoveItem L1 ListIndex For i=0 To Listl ListCount一 1 Call MoveItem(List1， List2) 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生义件灾下的奉题工程文件 sit5 vbp。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： n=n+1 Listl AddItem ch$ 步骤 3：编写 “计算运费 ”按钮和列表框的单击事件过程。 参考代码： Private Sub
8、 Command2一 Click() P=0 3 d=Int(Text1 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*Text1) End Sub Private Sub ListlClick() Text1=a(Listl ListIndex+1) End Sub 步骤 4：运行程序，单击列表框中的某个列表项，并单击 “计算运费 ”按钮获得一个结果，然后单击 “保存 ”按钮保存计算结果。 步骤 5：按要求将文件保存至考生文件夹中。
