1、国家二级 VB机试（上机操作）模拟试卷 45及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Forml的窗体上建立一个名称为 cmdArray的命令按钮数组，含 3个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 ”，每个按钮的高、宽均为 400、 900。窗体的标题为 “按钮示例 ”。运行后的窗体如图 3-26所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj1v bp，窗体文件名为 vbsj1 frm。 2 在名称为 Form1的窗体上画
2、一个名称为 Drv1的驱动器列表框，一个名称为 Dir1的目录列表框，一个名称为 File1的文件列表框，名称为 Label1、标题为 “文件名 ”的标签和名称为 Label2、 BorderStyle为 1的标签。窗体的标题设置为 “文件系统控件 ”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2中，如图 3-27所示。 注意：要求程序 中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsj2 vbp，窗体
3、文件名为vbsj2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 vbsj3 vbp，相应的窗体文件名为 vbsj3 frm。在窗体上有一个命令按钮，其名称为 cmdAdd，标题为 “添加 ”；有一个文本框，名称为 txtSentense，初始内容为窄白；有一个列表框，名称为 lstWord。程序运行后，在文本框中输入一个英文句子 (由多个单词组成，各单词之间用一个空格分开 )，然后单击命令按钮，程序 将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 3-28所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使
4、其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 程序源码： Private Sub cmdAdd Click() Dim S1 As String， S2 As String Dim I1 As Inteqer S1=? I1=1 Do Do While Mid(S1， I1， 1) ? And I1 4 在考生文件夹下有一个工程文件 vbsj4 vbp，请在窗体上画三个文本框，其名称分别为 Txt1、 Txt2和 txtResult，文本框内容分别设置为 “等级考试 ”、 “全国计算机 ”和空白。然后画两个单选按钮，其名称分别为 optChange和 optLi
5、nk，标题分别为“交换 ”和 “连接 ”，如图 3-29所示。编写适当的事件程序，要求在程序运行时，先单击 “交换 ”单选按钮，使 Txt1文本框中内容与 Txt2文本框中内容进行交换，并使“交换 ”单选按钮消失；然后单击 “连接 ”单选按钮，则把交换后的 Txt1和 Txt2的内容 以 Txt1在前， Txt2在后的顺序连接起来，并在 txtResult文本框中显示连接后的内容。存盘时，工程文件名为 vbsj4 vbp，窗体文件名为 vbsj4 frm。 注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击 “交换 ”单选按钮，后单击 “连接 ”单选按钮。退出程序时必须通过单击窗体右
6、上角的关闭按钮，否则可能无成绩。 程序源码： Private Sub Form_Unload(Cance1 As Integer) Open“out4 txt“For Output As #1 Print #1， Txt1 Text， Txt2 Text， _ txtResult Text Close #1End Sub 三、综合应用题 5 在考生文件夹中有一个工程文件 vbsj5 vbp(相应的窗体文件为 vbsj5 frm)。窗体 Form1上有两个名称为 Lab1和 Lab2的标签，它们的标题分别为 “密码 ”和 “允许次数 ”；一个名称为 Cmd1的命令按钮，其标题为 “确定 ”；两个
7、名称分别为 Txt1和Txt2的文本框。其中 Txt1用来输入密码 (输入时显示 “*”)，无初始内容， Txt2的初始内容为 3。已给出了 Cmd1的事件过程， 但不完整，要求去掉程序中的注释符“”，把程序中的问号 “?”改为正确内容，使得在运行时，在 Txt1中输入密码后，单击 “确定 ”按钮，如果输入的是 “123456”，则在 Txt1中显示 “密码正确 ”如图 3-30所示；如果输入其他内容，单击 “确定 ”后，弹出如图 3-31所示的错误提示对话框，并且 Txt2中的数字减 1。最多可输入 3次密码，若 3次输入错误，则禁止再次输入。 程序源码： 国家二级 VB机试（上机操作）模拟
8、试卷 45答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需按题目要求在窗体中画一个 命令按钮控件数组即可。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，单击工具箱中的CommandButton控件图标，在窗体 Form1上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为 cmdArray， Width属性值设置为 900， Height属性值设置为 400。 步骤 2：选中 cmdArray控件，选择【编辑】 【复制】命令，然后选择【编辑】 【粘贴】命令，在弹出的询问是否建立控件数组的对话框中，选择 “是 ”按钮，如图 4-1所示，则可以建立 cmdArray控件
9、数组的第 2个元素。再次选择【编辑】 【粘贴 】命令，建立 cmdArray控件数组的第 3个元素。 步骤 3：依次选中 cmdArray控件数组中各个元素，设置它们的相关属性，属性及其值如表 4-16所示。 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 选择控件、控件数组。 2 【正确答案】 知识点播 驱动器列表框 (Drive ListBox)用来显示当前系统中所有有效磁盘驱动器的列表：目录列表框 (DirList Box)用来分层显示指定磁盘驱动器上的目录列表；文件列表 框 (FiIe List Box)用来显示指定目录中所选择文件类型的文件列表，默认为 *.*。在程序运行时，驱
10、动器列表框的 Drive属性用来设置或返回选择的驱动器 (缺省值是当前驱动器 )，目录列表框的 Path属性用来设置或返回选择的目录(缺省值是当前路径 )，文件列表框的 Path属性用来设置或返回其当前的目录 (缺省值是当前路径 )，文件列表框的 FileName属性可返回所选文件的文件名。审题分析 要在程序运行时，能对系统中的文件进行浏览，就要让驱动器列表框、目录列表框和文件列表框实现同步变化，关键是将驱动器列表框、目 录列表框、文件列表框相互关联起来，这可通过编写驱动器列表框、目录列表框的 Change事件过程，使三者的路径保持一致来实现。 操作步骤 步骤 1：新建 “标准 EXE”工程，
11、往窗体Form1中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表 4-17所示。 步骤 2：打开代码编辑窗口，输入如下代码： 参考代码： PriVate Sub DrV1_Change() Dir1 Path=Drv1 Drive End Sub PriVate Sub Dirl_Change() Filel Path=Dir1 Path End Sub Private Sub File1_Click() Label2 CaDtion=File1 FileName End Sub 步骤 3：按要求将文件保存至考生文件夹中。考点链接 文
12、件系统控件。 二、简单应用题 3 【正确答案】 审题分析 程序设计思路：从文本框的第 1个字符开始依次检查其后面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在 Do循环 (指内循环，循环条件为：取出的字符为非空格字 符且取字符的起始位置没有超出文本框的总字符数，表达式为： Mid(S1， I1， 1)“ “And I1 =Len(S1) lstWord AddItem S2 S2=“ “ 步骤 3：按要求将文件保存至考生文件夹中 特别提示 以空格作为分隔单词的依据是本题的关键，同时注意空格字符串和空字符串是完全不同的。 考点链接 Do循环和 While循
13、环、常用内部函数、选择控件。 4 【正确答案】 审题分析 根据题目要求，设计本题程序的思路：在 optChange单选按钮的 Click事件应实现：将 Txt1和 Txt2文本框中的内容互换，可以通过一个中间变量来交换两个文本框中的内容，然后将 optChange的 Enable属性设置为False。在 optIAnk单选按钮的 Click事件应实现：将两个文本框中的内容连接进来，这里我们可以采用连接字符符号 “ ”来连接两个文本框的 Text属性。操作步骤 步骤 1：新建一个 “标准 EXE”工程，按表 4-18在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，编写 3个按钮的单
14、击事件过程。 参考代码： PriVate Sub optChange_Click() Dim temp As String temp=Txt1 Text Txt1 Text=Txt2 Text Txt2 Text=temp optChange Visible=False End Sub PriVate Sub optLink_Click() txtResult Text=Txt1 Text Txt2 Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 选择控件、变量、运算符和表达式。 三、综合应用题 5 【正确答案】 审题分析 根据题目源程序，判断文本框 Txt1输
15、入的密码是否为 “123456”的条件表达式为： Txt1 Text=“123456“；要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空，即执 行语句： Txt1 PasswordChar=“；每输入一次错误密码，文本框 Txt2中的数字减 1，当文本框 Txt2中数值还大于 0时，提示重新输入，否则提示错误，并禁用文本框 Txt1。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 vbsj5 vbp，将文本框 Txt1的PasswordChar属性值设置为 “*”。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Txt1 Text=“123456“Then Txt1 PassWOrdChar=“ “ If Txt2 Text 0 Then Txt1 Enabled=False 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 文本控件、 If选择结构。
