1、国家二级 VB机试（上机操作）模拟试卷 285及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。(1)在名称为 Form1的窗体上建立一个名称为 cmdArray的命令按钮数组，含 3个命令按钮，它们的 Index属性分别为 0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为 400、900。窗体的标题为“按钮示例”。运行后的窗体如图 362所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj1vbp，窗体文件名为 vbsj1frm。(2
2、)在名称为 Form1的窗体上画一个名称为 Drv1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为 File1的文件列表框，名称为 Label1、标题为“文件名”的标签和名称为 Label2、BorderStyle 为 1的标签。窗体的标题设置为“文件系统控件”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2中，如图 363所示。（分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 vb
3、sj3vbp，相应的窗体文件名为 vbsj3frm。在窗体上有一个命令按钮，其名称为 cmdAdd，标题为“添加”；有一个文本框，名称为 txtSentense，初始内容为空白；有一个列表框，名称为 lstWord。程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 364所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码：Private S
4、ub 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+1LooplstwordAddItem?S2=?I1=I1+1Loop While I1=Len(S1)(2)在考生文件夹下有一个工程文件 vbsj4vbp，请在窗体上画三个文本框，其名称分别为 Txt1、Txt2 和。txtResult，文本框内容分别设置为“等级考试”、“全国计算机”和空白。然后画两个单选按钮，其名称分别为 optC
5、hange和optLink，标题分别为“交换”和“连接”，如图 365所示。编写适当的事件程序，要求在程序运行时，先单击“交换”单选按钮，使 Txt1文本框中内容与 Txt2文本框中内容进行交换，并使“交换”单选按钮消失；然后单击“连接”单选按钮，则把交换后的 Txt1和 Txt2的内容以 Txt1在前，Txt2 在后的顺序连接起来，并在 txtResult文本框中显示连接后的内容。存盘时，工程文件名为 vbsj4vbp，窗体文件名为 vbsj4frm。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹中有一个工程文件 vbsj5vbp(相应的窗体文件为 vbs
6、j5frm)。窗体 Form1上有两个名称为 Lab1和 Lab2的标签，它们的标题分别为“密码”和“允许次数”；一个名称为 Cmd1的命令按钮，其标题为“确定”；两个名称分别为 Txt1和 Txt2的文本框。其中 Txt1用来输入密码(输入时显示“*”)，无初始内容，Txt2 的初始内容为 3。已给出了 Cmd1的事件过程，但不完整，要求去掉程序中的注释符“”，把程序中的问号“?”改为正确内容，使得在运行时，在 Txt1中输入密码后，单击“确定”按钮，如果输入的是“123456”，则在 Txt1中显示“密码正确”如图 366所示；如果输入其他内容，单击“确定”后，弹出如图 367所示的错误提
7、示对话框，并且 Txt2中的数字减 1。最多可输入 3次密码，若 3次输入错误，则禁止再次输入。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 285答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。(1)在名称为 Form1的窗体上建立一个名称为 cmdArray的命令按钮数组，含 3个命令按钮，它们的 Index属性分别为 0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为 400、900。窗体的标题为“按钮示例”。运行后的窗体如图
8、362所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj1vbp，窗体文件名为 vbsj1frm。(2)在名称为 Form1的窗体上画一个名称为 Drv1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为 File1的文件列表框，名称为 Label1、标题为“文件名”的标签和名称为 Label2、BorderStyle 为 1的标签。窗体的标题设置为“文件系统控件”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2中，如图 36
9、3所示。（分数：2.00）_正确答案：(正确答案：第 1小题 步骤 1：新建一个“标准 EXE”工程，单击工具箱中的 CommandBuaon控件图标，在窗体 Form1上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为 cmdArray，Width属性值设置为 900，Height 属性值设置为 400。 步骤 2：选中 cmdArray控件，选择编辑复制命令，然后选择编辑粘贴命令，在弹出的询问是否建立控件数组的对话框中，选择“是”按钮，如图 41所示，则可以建立 cmdArray控件数组的第 2个元素。再次选择编辑粘贴命令，建立 cmdArray控件数组的第 3个元素。 步骤 3：依
10、次选中 cmdArray控件数组中各个元素，设置它们的相关属性，属性及其值如表 438所示。 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：新建“标准 EXE” 工程，往窗体 Form1中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表 439所示。 )解析：解析：第 1小题：本题只需按题目要求在窗体中画一个命令按钮控件数组即可。 第 2小题驱动器列表框(Drive ListBox)用来显示当前系统中所有有效磁盘驱动器的列表；目录列表框(Dir List Box)用来分层显示指定磁盘驱动器上的目录列表；文件列表框(F
11、ile List Box)用来显示指定目录中所选择文件类型的文件列表，默认为*。在程序运行时，驱动器列表框的 Drive属性用来设置或返回选择的驱动器(缺省值是当前驱动器)，目录列表框的 Path属性用来设置或返回选择的目录(缺省值是当前路径)，文件列表框的 Path属性用来设置或返回其当前的目录(缺省值是当前路径)，文件列表框的 FileName属性可返回所选文件的文件名。要在程序运行时，能对系统中的文件进行浏览，就要让驱动器列表框、目录列表框和文件列表框实现同步变化，关键是将驱动器列表框、目录列表框、文件列表框相瓦关联起来，这可通过编写驱动器列表框、目录列表框的 Change事件过程，使三
12、者的路径保持一致来实现。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 vbsj3vbp，相应的窗体文件名为 vbsj3frm。在窗体上有一个命令按钮，其名称为 cmdAdd，标题为“添加”；有一个文本框，名称为 txtSentense，初始内容为空白；有一个列表框，名称为 lstWord。程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 364所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的
13、内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码：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+1LooplstwordAddItem?S2=?I1=I1+1Loop While I1=Len(S1)(2)在考生文件夹下有一个工程文件 vbsj4vbp，请在窗体上画三个文本框，其名称分别为 Txt1、Txt2 和。txt
14、Result，文本框内容分别设置为“等级考试”、“全国计算机”和空白。然后画两个单选按钮，其名称分别为 optChange和optLink，标题分别为“交换”和“连接”，如图 365所示。编写适当的事件程序，要求在程序运行时，先单击“交换”单选按钮，使 Txt1文本框中内容与 Txt2文本框中内容进行交换，并使“交换”单选按钮消失；然后单击“连接”单选按钮，则把交换后的 Txt1和 Txt2的内容以 Txt1在前，Txt2 在后的顺序连接起来，并在 txtResult文本框中显示连接后的内容。存盘时，工程文件名为 vbsj4vbp，窗体文件名为 vbsj4frm。 （分数：2.00）_正确答案
15、：(正确答案：第 1小题 步骤 1；打开考生文件夹下的工程文件 vbsj3vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： S1=txtSentenseText Do While Mid(S1，I1，1)“ “And I1 _ =Len(S1) lstWordAddItem S2 S2=“ “ 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：新建一个“标准 EXE”工程，按表 440在窗体中画出控件并设置其相关属性。 )解析：解析：第 1小题：程序设计思路：从文本框的第 1个字符开始依次检查其后面的每一个字符，若发现空格则
16、将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在 Do循环(指内循环，循环条件为：取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数，表达式为：Mid(S1，I1，1)“ “And I1=Len(S1)，其中 S1=txtSentenseText，将 Mid函数从文本框中取出的非空格字符，逐个连接成一个单词，语句为：S2=S2&Mid(S1，I1，1)，每执行一次循环体取字符的起始位置加 1，即 I1=I1+1。当遇到空格时结束循环，将得到的单词(即变量 S2的值)用 AddItem方法添加到列表框中，并且清空变量 s2，将取宁符的起始位置加 1。之后继续执行内循环以
17、得到下一个单词，直到取字符的起始位置(即变量 I1的值)超过文本框的总字符数为止，外循环的条件为：I1=Len(S1)。 第 2小题：根据题目要求，设计本题程序的思路：在 optChange单选按钮的 Click事件应实现：将 Txt1和 Txt2文本框中的内容互换，可以通过一个中间变量来交换两个文木框中的内容，然后将 optChangc的 Enable属性设置为 False。在 optLink单选按钮的 Click事件应实现：将两个文本框中的内容连接进来，这罩我们可以采用连接字符符号“&”来连接两个义本框的 Text属性。三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹中有一个工
18、程文件 vbsj5vbp(相应的窗体文件为 vbsj5frm)。窗体 Form1上有两个名称为 Lab1和 Lab2的标签，它们的标题分别为“密码”和“允许次数”；一个名称为 Cmd1的命令按钮，其标题为“确定”；两个名称分别为 Txt1和 Txt2的文本框。其中 Txt1用来输入密码(输入时显示“*”)，无初始内容，Txt2 的初始内容为 3。已给出了 Cmd1的事件过程，但不完整，要求去掉程序中的注释符“”，把程序中的问号“?”改为正确内容，使得在运行时，在 Txt1中输入密码后，单击“确定”按钮，如果输入的是“123456”，则在 Txt1中显示“密码正确”如图 366所示；如果输入其他
19、内容，单击“确定”后，弹出如图 367所示的错误提示对话框，并且 Txt2中的数字减 1。最多可输入 3次密码，若 3次输入错误，则禁止再次输入。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹中的本题工程文件 vbsj5vbp，将文本框 Txt1的PasswordChar属性值没置为“*”。 步骤 2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： If Txt1Text=“123456“Then Txt1PasswordChar=“ “ If Txt2Text0Then Txt1Enabled=False 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：根据题目源程序，判断文奉框 Txt1输入的密码是否为“123456”的条件表达式为：Txt1Text=“123456“；要去掉对文本框中输入内容的屏蔽，需将其 PasswordChar属性值清空，即执行语句：Txt1PasswordChar=“ “；每输入一次错误密码，文本框 Txt2中的数字减 1，当文本框 Txt2中数值还大于 0时，提示重新输入，否则提示错误，并禁用文本框 Txt1。
