国家二级VB机试（上机操作）模拟试卷285
(总分6,考试时间90分钟)
2. 基本操作题
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所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj2
．vbp，窗体文件名为vbsj2．frm。
3. 简单应用题
1. (1)在考生文件夹下有一个工程文件vbsj3．vbp，相应的窗体文件名为vbsj3．frm。在窗体上有一个命令按钮，其名称为cmdAdd，标题为“添加”；有一个文本框，名称为txtSentense，初始内容为空白；有一个列表框，名称为lstWord。程序运行后，在文本框中输入一个英文句子(由多个单词组成，各单词之间用一个空格分开)，然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图3—64所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名
存盘。程序源码：Private Sub cmdAdd_click()Dim S1 As String，S2 As StringDim I1As Integer'S1=?I1=1Do'Do While Mid(S1，I1，1)＜＞?AndI1＜=Len(S1)S2=S2&Mid(S1，I1，1)I1=I1+1Loop'lstword．AddItem?'S2=?I1=I1+1Loop 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。注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击“交换”单选按钮，后单击“连接”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。程序源码：Private Sub Form_Unload(Cancel As Integer)Open"out4．txt"For Output As#1Print #1，Txt1．Text，Txt2．Text，_txtResult．TextClose#1End Sub
vb设计模拟密码输入器4. 综合应用题
1. 在考生文件夹中有一个工程文件vbsj5．vbp(相应的窗体文件为vbsj5．frm)。窗体Form1上有两个名称为Lab1和Lab2的标签，它们的标题分别为“密码”和“允许次数”；一个名称为Cmd1的命令按钮，其标题为“确定”；两个名称分别为Txt1和Txt2的文本框。其中Txt1用来输入密码(输入时显示“*”)，无初始内容，Txt2的初始内容为3。已给出了Cmd1的事件过程，但不完整，要求去掉程序中的注释符“'”，把程序中的问号“?”改为正确内容，使得在运行时，在Txt1中输入密码后，单击“确定”按钮，如果输入的是“123456”，则在Txt1中显示“密码正确”如图3—66所示；如果输入其他内容，单击“确定”后，弹出如图3—67所示的错误提示对话框，并且Txt2中的数字减1。最多可输入3次密码，若3次输入错误，则禁止再次输入。程序源码：
Private Sub Cmd1_Click()'If?="123456"ThenTxt1．Text="密码正确"'Txt1．?=" "ElseTxt2．Text=Txt2．Text-1'If Txt2．Text＞?ThenMsgBox"第"&(3-Txt2．Text)&"次密码错误，请重新输入"ElseMsgBox"3次输入错误，请退出"'Txt1．Enabled=?End IfEnd IfEnd Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。