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