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:按要求将文件保存至考生文件夹中。)解析: