1、国家二级 VB机试（上机操作）模拟试卷 383及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上建立一个名称为 cmdArray的命令按钮数组，含 3个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 ”，每个按钮的高、宽均为 400、 900。窗体的标题为 “按钮示例 ”。运行后的窗体如图 362所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj1 vbp，窗体文件名为 vbsj1 frm。 (2)在名称为Form1的窗体上
2、画一个名称为 Drvl的驱动器列表框，一个名称为 Dirl的目录列表框，一个名称为 Filel的文件列表框，名称为 Labe11、标题为 “文件名 ”的标签和名称为 Labe12、 BorderStyle为 1的标签。窗体的标题设置为 “文件系统控件 ”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Labe12中，如图 363所示。注意：要求程序 中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2 vbp，窗体文件
3、名为 vbsj2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 vbsj3 vbp，相应的窗体文件名为vbsj3 frm。在窗体上有一个命令按钮，其名称为 cmdAdd，标题为 “添加 ”；有一个文本框，名称为 txtSentense，初始内容为空白；有一个列表框，名称为lstWord。程序运行后，在文本框中输入一个英文句子 (由多个单词组成，各单词之间用一个空格分开 )，然后单击命令按钮 ，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 364所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其
4、能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件vbsj4 vbp，请在窗体上画三个文本框，其名称分别为 Txt1、 Txt2和 txtResult，文本框内容分别设置为 “等级考试 ”、 “全国计算机 ”和空白。然后画两个单选按钮，其名称分别为 optChange和 optLink，标题分别为 “交换 ”和 “连接 ”，如图 365所示。编写适当的事件程序，要求在程序运行时，先单击 “交换 ”单选按钮，使 Txt1文本框中内容与 Txt2文本框中内容进行交换，并使 “交换 ”单选按钮消失；然后单击 “连接 ”单选按钮，则把交换后的
5、 Txt1和 Txt2的内容以 Txt1在前， Txt2在后的顺序连接起来，并在 txtResult文本框中显示连接后的内容。存盘时，工程文件名为vbsi4 vbp，窗体文件名为 vbsi4 frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击 “交换 ”单选按钮，后单击 “连 接 ”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 三、综合应用题 3 在考生文件夹中有一个工程文件 vbsj5 vbp(相应的窗体文件为 vbsj5 frm)。窗体 Form1上有两个名称为 Lab1和 Lab2的标签，它们的标题分别为 “密码 ”和 “允许次数 ”；一个名称
6、为 Cmd1的命令按钮，其标题为 “确定 ”；两个名称分别为 Txt1和Txt2一的文本框。其中 Txt1用来输入密码 (输入时显示 “*”)，无初始内容， Txt2的初始内容为 3。已给出了 Cmd1的事件过程，但不完整，要求去掉程序中的注释 符“”，把程序中的问号 “?”改为正确内容，使得在运行时，在。 Txt1中输入密码后，单击 “确定 ”按钮，如果输入的是 “123456”，则在 Txt1中显示 “密码正确 ”如图 366所示；如果输入其他内容，单击 “确定 ”后，弹出如图 367所示的错误提示对话框，并且 Txt2中的数字减 1。最多可输入 3次密码，若 3次输入错误，则禁止再次输入
7、。国家二级 VB机试（上机操作）模拟试卷 383答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，单击工具箱中的 CommandButton控件图标，在窗体 Form1上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为 cmdArray， Width属性值设置为 900， Height属性值设置为 400。 步骤 2：选中 cmdArray控件，选择【编辑】 【复制】命令，然后选择【编辑】 【粘贴】命令，在弹出的询问是否建立控件数组的对话框中，选择“是 ”按钮，如图 41所示，则可以建立 cmdArray控件数组的第 2个元素。再
8、次选择【编辑】 【 粘贴】命令，建立 cmdArmy控件数组的第 3个元素。步骤 3：依次选中 cmdArray控件数组中各个元素，设置它们的相关属性，属性及其值如表 438所示。步骤 4：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建 “标准 EXE”工程，往窗体Form1中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表 439所示。步骤 2：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Drv1_Change() Dir1 PathDrv1 DriveEnd SubPrivate Sub
9、 Dir1 Change() File1 Path Dir1 PathEnd SubPrivate Sub File1_Click() Labe12 Caption File1 FileNameEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开考生文件夹下的工程文件vbsj3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “p”，将问号 “?”改为正确的内容。参考 代码： S1 txtSentense TextDo While Mid(S1， I1， 1) “ “And I1_ Len(S1)lstWor
10、d AddItem S2S2 “ “ 步骤 3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表 440在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，编写 3个按钮的单击事件过程。 参考代码： 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：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 vbsj5 vbp，将文本框 Txt1的PasswordChar属性值设置为 “*”。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If Txt1 Text “123456“Then Txt1 PasSwordChar “ “ If Txt2 Text 0 Then Txt1 Enabled False 步骤 3：按要求将文件保存至考生文件夹中。
