国家二级VB机试（上机操作）模拟试卷285
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为cmdArray的命令按钮数组，含3个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为400、900。窗体的标题为“按钮示例”。运行后的窗体如图3—62所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1．vbp，窗体文件名为vbsj1．frm。
(2)在名称为Form1的窗体上画一个名称为Drv1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。窗体的标题设置为“文件系统控件”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在Label2中，如图3—63所示。
第1小题
步骤1：新建一个“标准EXE”工程，单击工具箱中的CommandBuaon控件图标，在窗体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：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按题目要求在窗体中画一个命令按钮控件数组即可。
第2小题驱动器列表框(Drive ListBox)用来显示当前系统中所有有效磁盘驱动器的列表；目录列表框(Dir List Box)用来分层显示指定磁盘驱动器上的目录列表；文件列表框(File List Box)用来显示指定目录中所选择文件类型的文件列表，默认为*．*。在程序运行时，驱动器列表框的Drive属性用来设置或返回选择的驱动器(缺省值是当前驱动器)，目录列表框的Path属性用来设置或返回选择的目录(缺省值是当前路径)，文件列表框的Path属性用来设置或返回其当前的目录(缺省值是当前路径)，文件列表框的FileName属性可返回所选文件的文件名。要在程序运行时，能对系统中的文件进行浏览，就要让驱动器列表框、目录列表框和文件列表框实现同步变化，关键是将驱动器列表框、目录列表框、文件列表框相瓦关联起来，这可通过编写驱动器列表框、目录列表框的Change事件过程，使三者的路径保持一致来实现。
简单应用题
2.(1)在考生文件夹下有一个工程文件vbsj3．vbp，相应的窗体文件名为vbsj3．frm。在窗体上有一个命令按钮，其名称为cmdAdd，标题为“添加”；有一个文本框，名称为txtSentense，初始内容为空白；有一个列表框，名称为lstWord。程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图3—64所示。该程序不完整，请把它补充完整。
要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码：
Private Sub cmdAdd_click()
Dim S1 As String，S2 As String
Dim I1As Integer
’S1=?
I1=1
Do
’Do While Mid(S1，I1，1)＜＞?AndI1＜=Len(S1)
S2=S2&Mid(S1，I1，1)
I1=I1+1
Loop
’lstword．AddItem?
’S2=?
I1=I1+1
Loop While I1＜=Len(S1)
(2)在考生文件夹下有一个工程文件vbsj4．vbp，请在窗体上画三个文本框，其名称分别为Txt1、Txt2和。txtResult，文本框内容分别设置为“等级考试”、“全国计算机”和空白。然后画两个单选按钮，其名称分别为optChange和optLink，标题分别为“交换”和“连接”，如图3—65所示。编写适当的事件程序，要求在程序运行时，先单击“交换”单选按钮，使Txt1文本框中内容与Txt2文本框中内容进行交换，并使“交换”单选按钮消失；然后单击“连接”单选按钮，则把交换后的Txt1和Txt2的内容以Txt1在前，Txt2在后的顺序连接起来，并在txtResult文本框中显示连接后的内容。存盘时，工程文件名为vbsj4．vbp，窗体文件名为vbsj4．frm。
第1小题
步骤1；打开考生文件夹下的工程文件vbsj3．vbp。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
S1=txtSentense．Text
Do While Mid(S1，I1，1)＜＞\\
解析：第1小题：程序设计思路：从文本框的第1个字符开始依次检查其后面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在Do循环(指内循环，循环条件为：取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数，表达式为：Mid(S1，I1，1)＜＞\\
综合应用题
3.在考生文件夹中有一个工程文件vbsj5．vbp(相应的窗体文件为vbsj5．frm)。窗体Form1上有两个名称为Lab1和Lab2的标签，它们的标题分别为“密码”和“允许次数”；一个名称为Cmd1的命令按钮，其标题为“确定”；两个名称分别为Txt1和Txt2的文本框。其中Txt1用来输入密码(输入时显示“*”)，无初始内容，Txt2的初始内容为3。已给出了Cmd1的事件过程，但不完整，要求去掉程序中的注释符“’”，把程序中的问号“?”改为正确内容，使得在运行时，在
本文档预览：3600字符，共4043字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
