1、国家二级 VB机试（上机操作）模拟试卷 94及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “鼠标光标形状示例 ”的窗体上画 1个名称为 Textl的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头 (Arrow)形状，如图 3 37所示；在窗体中其他位置处，鼠标光标为十字 (Cross)形状，如图 3 38所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsjl vbp，窗体文件 名为 vbsjl frm。(2)在名称为 Forml的窗体
2、上画两个名称分别为 Labe11、 Labe12，标题分别为 “开始位置 ”、 “选中字符数 ”的标签；画三个文本框，名称分别为 txtlnput、 txtBegin、txtNum；再画一个名称为 cmdDisplay，标题为 “显示选中文本 ”的命令按钮。程序运行时，在 txtlnput中输入若干字符，并用鼠标选中一些字符后，单击 “显示选中文本 ”按钮，则把选中的第一个字符的顺序号显示在 txtBegin中，选中的字符个数显示在 txtNuna、中，如图 3 39所示。要求：画出所 有控件，编写命令按钮的Click事件过程。注意：要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显
3、示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考生文件夹下，工程文件名为 vbsj2 vbp，窗体文件名为 vbsj2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。在窗体上有一个命令按钮，其名称为 Command1，标题为 “添加 ”；有一个文本框，名称为 Textl，初始内容为空白；有一个列表框，名称为 List1。程序运行 后，在文本框中输入一个英文句子 (由多个单词组成，各单词之间用一个空格分开 )，然后单击“添加 ”按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 31
4、95所示。该程序不完整，请补充完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sit4 vbp，其中的窗体中有一个组合框和一个命令按钮 (如图 3一 196所示 )。程序的功能是在运行时，如果在组合框中输入一个项目并 单击 “添加 ”按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示 “已有此项 ”，然后清除输入的内容。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改
5、控件的属性。最后把修改后的文件以原来的文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp。程序运行时，单击 “装入数据 ”按钮，则从考生目录下的 in5 txt文件中读入所有城市名称和距离，城市名称按顺序添加到列表框 Listl中，距离放到数组 a中；当选中列表框中的一个城市；时，它的距离就显示在 Text1中，如图 3 157所示；此时，单击 “计算运费 ”按钮，则计算到该城市的每吨运费 (结果取整，不四舍五入 )，并显示在 Text2中。每吨运费的计算方法是：距离 折扣 单价。其中：单价为 0 3。距离国家二级 VB机试（上机操作）模拟试卷 94答案与解析 一
6、、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建 “标准 EXE”工程，在窗体Forml中画一个文本框，按表 4 23设置文本框及窗体属性。步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，按表 424在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，编写命令按钮的单击事件过程。参考代码： Private Sub cmdDisplay Click() txtBegin Text： txtInput SelStart+1 txtNum Text=txt Input SelLengthEnd Sub步骤 3：按
7、要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步 骤】 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： S1=Textl Text Do While Mid(S1， 11， 1)”And 11 =Len(S1) LiStl AddItem S2 S2 = “” 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sit4 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号
8、“?”改为正确的内容。 参考代码： For i=0 To Cbl LiStCount一 1 If Cbl List(i)=Cbl Text Then Cbl AddItem Cbl Text 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sit5 vbp。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： n=n+1 Listl AddTtem ch$ 步骤 3：编写 “计算运费 ”按钮和列表框的单击事件过程。 参考代码： Private Sub Commancl2 Click() P=0 3 d=Int(T
9、extl Text 50 0) 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=1 0 9 End Select Text2=Int(discount*P*Textl) End Sub Private Sub LiStl Click() Textl=a(Listl ListIndex+1) End Sub 步骤 4：运行程序，单击列表框中的某个列表项，并单击 “计算运费 ”按钮获得一个结果，然后单击 “保存 ”按钮保存计算结果。 步骤 5：按要求将文件保存至考生文件夹中。
