在考生文件夹下有一个工程文件sjt3．vbp，包含2个窗体，名称分别为Form1、Form2。窗体上已有部分控件，请在Form1窗体上再添加1个名称为Text1的文本框，Text属性为空，Enable属性设置为False(如图所示)，输入字符时文本框内将显

admin2015-08-12 57

问题在考生文件夹下有一个工程文件sjt3．vbp，包含2个窗体，名称分别为Form1、Form2。窗体上已有部分控件，请在Form1窗体上再添加1个名称为Text1的文本框，Text属性为空，Enable属性设置为False(如图所示)，输入字符时文本框内将显示字符“*”。

程序功能如下：
①单击Form1窗体的“输入密码”按钮，则Text1文本框Enable属性变为True，且获得焦点。
②输入密码后单击Form1窗体的“密码校验”按钮，则判断Text1中输入内容是否为小写字符“abc”，若是，则Form1窗体消失，显示Form2窗体；若密码输入错误，则提示重新输入，若三次密码输入错误，则退出系统。
③单击Form2窗体的“返回”按钮，则form2窗体消失，显示。Form1窗体。
Form2窗体的控件和程序已给出，但Form1窗体的程序不完整，请将程序中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序将按照原文件名进行存盘。

选项

答案【操作步骤】步骤1：打开本题工程文件，添加一个名称为Text1的文本框，初使文本内容为空，Enabled属性设置为False，并将其PasswordChar属性设置为“*”。步骤2：分析并编写程序代码。程序提供代码如下：窗体1的代码 Dim n As Integer Private Sub Command1_Click() Text1．Enabled=? Text1．SetFocus End Sub Private Sub Command2_Click() If Text1．Enabled=False Then MsgBox"请先使用‘输入密码’功能!" Else ’If Text1＜＞"?"Then n=n+1 ’If?=3 Then MsgBox"三次密码输入错误，你无权进入本系统!" End Else MsgBox"第"+Str(n)+"次密码输入错误，请重试!" Text1="" Text1．SetFocus End If Else Text1．Enabled=False Text1="" ’？．Hide ’？．Show End If End If End Sub 窗体2的代码 Private Sub Command1_Click() Form2．Hide Form1．Show End Sub 参考答案：第1个?处填入：True 第2个?处填入：abc 第3个?处填入：n 第4个?处填入：Form1 第5个?处填入：Form2 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

解析根据题意，通过文本框的Name、Text、Enabled、PasswordChar属性设置文本框，单击“输入密码”按钮，Text的Enabled属性设置为True，并通过SetFocus方法使文本框获得焦点。
输入密码后单击Form1窗体的“密码校验”按钮，则判断Text1中输入内容是否为小写字符“abc”，若密码正确，通过Hide方法隐藏Form1窗体，并通过Show显示Form2窗体；若密码输入错误，则提示重新输入，变量n用于累积输入次数，三次密码输入错误，则退出系统。

转载请注明原文地址:https://kaotiyun.com/show/ISQp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

0

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)