1、国家二级 VB机试（上机操作）模拟试卷 285及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上建立一个名称为 cmdArray的命令按钮数组，含 3个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 ”，每个按钮的高、宽均为 400、 900。窗体的标题为 “按钮示例 ”。运行后的窗体如图 362所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj1 vbp，窗体文件名为 vbsj1 frm。 (2)在名称为 Form1的窗体上
2、画一个名称为 Drv1的驱动器列表框，一个名称为 Dir1的目录列表框，一个名称为 File1的文件列表框，名称为Label1、标题为 “文件名 ”的标签和名称为 Label2、 BorderStyle为 1的标签。窗体的标题设置为 “文件系统控件 ”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2中，如图 363所示。注意：要求程序中不得使用 变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsj2 vbp，窗体文件
3、名为 vbsj2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 vbsj3 vbp，相应的窗体文件名为vbsj3 frm。在窗体上有一个命令按钮，其名称为 cmdAdd，标题为 “添加 ”；有一个文本框，名称为 txtSentense，初始内容为空白；有一个列表框，名称为lstWord。程序运行后，在文本框中输入一个英文句子 (由多个单词组成，各单词之间用一个空格分开 )，然后单击命令按钮，程序将把 该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 364所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其能
4、正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码： Private Sub cmdAdd_click()Dim S1 As String， S2 As StringDim I1As IntegerS1=?I1=1DoDo While Mid(S1， I1， 1) ?AndI1=Len(S1)S2=S2&Mid(S1， I1， 1)I1=I1+1Looplstword AddItem?S2=?I1=I1+1Loop While I1 =Len(S1)(2)在考生文件夹下有一个工程文件 vbsj4 vbp，请在窗体上画三个文本框，其名称分别为 Txt1、 Txt2和
5、。 txtResult，文本框内容分别设置为 “等级考试 ”、 “全国计算机 ”和空白。然后画两个单选按钮，其名称分别为 optChange和 optLink，标题分别为 “交换 ”和 “连接 ”，如图 365所示。编写适当的事件程序，要求在程序运行时，先单击 “交换 ”单选按钮， 使 Txt1文本框中内容与 Txt2文本框中内容进行交换，并使 “交换 ”单选按钮消失；然后单击 “连接 ”单选按钮，则把交换后的 Txt1和 Txt2的内容以 Txt1在前， Txt2在后的顺序连接起来，并在txtResult文本框中显示连接后的内容。存盘时，工程文件名为 vbsj4 vbp，窗体文件名为 vbs
6、j4 frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击 “交换 ”单选按钮，后单击 “连接 ”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。程序源码： Private Sub Form_Unload(Cancel As Integer)Open“out4 txt“For Output As#1Print #1， Txt1 Text， Txt2 Text， _txtResult TextClose#1End Sub 三、综合应用题 3 在考生文件夹中有一个工程文件 vbsj5 vbp(相应的窗体文件为 vbsj5 frm)。窗体 Form1上有两个名称
7、为 Lab1和 Lab2的标签，它们的标题分别为 “密码 ”和 “允许次数 ”；一个名称为 Cmd1的命令按钮，其标题为 “确定 ”；两个名称分别为 Txt1和Txt2的文本框。其中 Txt1用来输入密码 (输入时显示 “*”)，无初始内容， Txt2的初始内容为 3。已给出了 Cmd1的事件过程，但不完整，要求去掉程序中的注释符“”，把程序中的问号 “?”改为正确内容，使得在运行时，在 Txt1中输入密码后，单击 “确定 ”按钮，如果输入的是 “123456”，则在 Txt1中显示 “密码正确 ”如图 366所示；如果输入其他内容，单击 “确定 ”后，弹出如图 367所示的错误提示对话框，并
8、且 Txt2中的数字减 1。最多可输入 3次密码，若 3次输入错误，则禁止再次输入。 程序源码： Private Sub Cmd1_Click()If?=“123456“ThenTxt1 Text=“密码正确 “Txt1 ?=“ “ElseTxt2 Text=Txt2 Text-1If Txt2 Text ?ThenMsgBox“第 “&(3-Txt2 Text)&“次密码错误，请重新输入 “ElseMsgBox“3次输入错误，请退出“Txt1 Enabled=?End IfEnd IfEnd Sub 国家二级 VB机试（上机操作）模拟试卷 285答案与解析 一、基本操作题 1 【正确答案】
9、第 1小题步骤 1：新建一个 “标 准 EXE”工程，单击工具箱中的CommandBuaon控件图标，在窗体 Form1上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为 cmdArray， Width属性值设置为 900， Height属性值设置为 400。步骤 2：选中 cmdArray控件，选择 编辑 复制 命令，然后选择 编辑 粘贴 命令，在弹出的询问是否建立控件数组的对话框中，选择 “是 ”按钮，如图 41所示，则可以建立 cmdArray控件数组的第 2个元素。再次选择 编辑 粘贴 命令，建立 cmdArray控件数组的第 3个元素。步骤 3：依次选中 cmdArray控件数
10、组中各个元素，设置它们的相关属性，属性及其值如表 438所示。步骤 4：按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建 “标准 EXE” 工程，往窗体 Form1中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表 439所示。步骤 2：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Drv1_Change()Dir1 Path=Drv1 DriveEnd SubPrivate Sub Dir1_Change()File1 Path=Dir1 PathEnd SubPrivate Sub File1_Clic
11、k()Label2 Caption=File1 FileNameEnd Sub步骒 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：本题只需按题目要求在窗体中画一个命令按钮控件数组即可。 第 2小题驱动器列表框 (Drive ListBox)用来显示当前系统中所有有效磁盘驱动器的列表；目录列表框 (Dir List Box)用来分层显示指定磁盘驱动器上的目录列表；文件列表框 (File List Box)用来显示指定目录中所选择文件类型的文件列表，默认为* *。在程序运行时，驱动器列表框的 Drive属性用来设置或返回选择的驱动器(缺省值是当前驱动器 )，目录列表框的 Path
12、属性用来设置或返回选择的目录 (缺省值是当前路径 )，文件列表框的 Path属性用来设置或返回其当前的目录 (缺省值是当前路径 )，文件列表框的 FileName属性可返回所选文件的文件名。要在程序运行时，能对系统中的文件进行浏览，就要让驱动器列表框、目录列表框和文件列表框实现同步变化，关键是将驱动器列表框、目录列表框、文件列表框相 瓦关联起来，这可通过编写驱动器列表框、目录列表框的 Change事件过程，使三者的路径保持一致来实现。 二、简单应用题 2 【正确答案】 第 1小题步骤 1；打开考生文件夹下的工程文件 vbsj3 vbp。步骤2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号
13、 “?”改为正确的内容。参考代码： S1=txtSentense TextDo While Mid(S1， I1， 1) “ “And I1_=Len(S1)lstWord AddItem S2S2=“ “步骤 3：按要求将文件保存至考生文件夹中。第 2小题步 骤 1：新建一个 “标准 EXE”工程，按表 440在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，编写 3个按钮的单击事件过程。参考代码： Private Sub optChange_Click()Dim temp As Stringtemp=Txt1 TextTxt1 Text=Txt2 TextTxt2 Text=t
14、empoptChange Visible=FalseEnd SubPrivate Sub optLink_Click()txtResult Text=Txt1 Text&Txt2 TextEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：程序设计思路：从文本框的第 1个字符开始依次检查其后面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在 Do循环 (指内循环，循环条件为：取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数，表达式为： Mid(S1， I1， 1) “ “And I1 =Len(S1)，其中
15、S1=txtSentense Text，将 Mid函数从文本框中取出的非空格字符，逐个连接成一个单词，语句为： S2=S2&Mid(S1， I1， 1)，每执行一次循环体取字符的起始位置加 1，即 I1=I1+1。当遇到空格时结束循环，将得到的单词 (即变量 S2的值 )用 AddItem方法添加到列表框中，并且清空变量 s2，将取宁符的起始位置加 1。之后继续执行内循环以得到下一个单词，直到取字符的起始位置 (即变量 I1的值 )超过文本框的总字符数为止，外循环的条件为： I1=Len(S1)。 第 2小题：根据题目要求，设计本题程序的思路：在 optChange单选按钮的 Click事件应
16、实现：将 Txt1和 Txt2文本框中的内容互换，可以通过一 个中间变量来交换两个文木框中的内容，然后将 optChangc的 Enable属性设置为 False。在optLink单选按钮的 Click事件应实现：将两个文本框中的内容连接进来，这罩我们可以采用连接字符符号 “&”来连接两个义本框的 Text属性。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 vbsj5 vbp，将文本框Txt1的 PasswordChar属性值没置为 “*”。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Txt1 Text
17、=“123456“Then Txt1 PasswordChar=“ “ If Txt2 Text 0Then Txt1 Enabled=False 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 根据题目源程序，判断文奉框 Txt1输入的密码是否为 “123456”的条件表达式为： Txt1 Text=“123456“；要去掉对文本框中输入内容的屏蔽，需将其 PasswordChar属性值清空，即执行语句： Txt1 PasswordChar=“ “；每输入一次错误密码，文本框 Txt2中的数字减 1，当文本框 Txt2中数值还大于 0时，提示重新输入，否则提示错误，并禁用文本框 Txt1。
