1、国家二级 VB 机试（上机操作）-试卷 71 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Form1、标题为“鼠标光标形状示例”的窗体上画 1 个名称为 Textl 的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状，如图 337 所示；在窗体中其他位置处，鼠标光标为十字(Cross)形状，如图 338 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsjlvbp，窗体文件名为
2、 vbsjlfrm。(2)在名称为 Forml 的窗体上画两个名称分别为Labe11、Labe12，标题分别为“开始位置”、“选中字符数”的标签；画三个文本框，名称分别为txtlnput、txtBegin、txtNum；再画一个名称为 cmdDisplay，标题为“显示选中文本”的命令按钮。程序运行时，在 txtlnput 中输入若干字符，并用鼠标选中一些字符后，单击“显示选中文本”按钮，则把选中的第一个字符的顺序号显示在 txtBegin 中，选中的字符个数显示在 txtNuna、中，如图 339 所示。要求：画出所有控件，编写命令按钮的 Click 事件过程。注意：要求程序中不得使用变量，
3、事件过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考生文件夹下，工程文件名为 vbsj2vbp，窗体文件名为 vbsj2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，相应的窗体文件为 sjt3frm。在窗体上有一个命令按钮，其名称为 Command1，标题为“添加”；有一个文本框，名称为 Textl，初始内容为空白；有一个列表框，名称为 List1。程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击“添加”按钮，程序将把该英文
4、句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 3195 所示。该程序不完整，请补充完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sit4vbp，其中的窗体中有一个组合框和一个命令按钮(如图3 一 196 所示)。程序的功能是在运行时，如果在组合框中输入一个项目并单击“添加”按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示“已有此项”，然后清除输入的内容。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现
5、上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sit5vbp。程序运行时，单击“装入数据”按钮，则从考生目录下的in5txt 文件中读入所有城市名称和距离，城市名称按顺序添加到列表框 Listl 中，距离放到数组 a 中；当选中列表框中的一个城市；时，它的距离就显示在 Text1 中，如图 3157 所示；此时，单击“计算运费”按钮，则计算到该城市的每吨运费(结果取整，不四舍五入)，并显示在 Text2 中。每吨运费的计算方法是：距离折扣单价。
6、其中：单价为 03。距离”And 11 =Len(S1) LiStlAddItem S2 S2 = “” 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sit4vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： For i=0 To CblLiStCount 一 1 If CblList(i)=CblText Then CblAddItem CblText)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sit5vbp。程序运行时，单击“装入数
7、据”按钮，则从考生目录下的in5txt 文件中读入所有城市名称和距离，城市名称按顺序添加到列表框 Listl 中，距离放到数组 a 中；当选中列表框中的一个城市；时，它的距离就显示在 Text1 中，如图 3157 所示；此时，单击“计算运费”按钮，则计算到该城市的每吨运费(结果取整，不四舍五入)，并显示在 Text2 中。每吨运费的计算方法是：距离折扣单价。其中：单价为 03。距离500 折扣为 1500距离1000 折扣为 0981000距离1500 折扣为 0951500距离2000 折扣为 0922000距离折扣为 09 单击“保存”按钮，则把距离和每吨运费存到文件 out5txt 中
8、。已经给出了所有控件和部分程序，要求：去掉程序中的注释符，把程序中?改为正确的内容；编写列表框的 C1ick 事件过程：编写“计算运费”按钮的 Click 事件过程。注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须用“保存”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sit5vbp。 步骤 2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： n=n+1 ListlAddTtem ch$ 步骤 3：编写“计算运费”按钮和列表框的单
9、击事件过程。 参考代码： Private Sub Commancl2 Click() P=03 d=Int(TextlText50 0) Select Case d CaSe 0 diScount=1 Case 1 diScount=098 Case 2 discount=095 Case 3 discount=092 Case Else discount=109 End Select Text2=Int(discount*P*Textl) End Sub Private Sub LiStl Click() Textl=a(ListlListIndex+1) End Sub 步骤 4：运行程序，单击列表框中的某个列表项，并单击“计算运费”按钮获得一个结果，然后单击“保存”按钮保存计算结果。 步骤 5：按要求将文件保存至考生文件夹中。)解析：
