问题 问答题

在考生文件夹下有一个工程文件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窗体的程序不完整,请将程序中的注释符去掉,把改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序将按照原文件名进行存盘。

答案

参考答案:[解题思路] 根据题意,通过文本框的Name、Text、Enabled、PasswordChar属性设置文本框,单击“输入密码”按钮,Text的Enabled属性设置为True,并通过SetFocus方法使文本框获得焦点。
输入密码后单击Form1窗体的“密码校验”按钮,则判断Text1中输入内容是否为小写字符“abc”,若密码正确,通过Hide方法隐藏Form1窗体,并通过Show显示Form2窗体;若密码输入错误,则提示重新输入,变量n用于累积输入次数,三次密码输入错误,则退出系统。
[操作步骤]
步骤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
Private Sub Command1_Cliek( )
Form2. Hide
Form1. Show
End Sub
程序结束
参考答案:
第1个 处填入:True
第2个 处填入:abc
第3个 处填入:n
第4个 处填入:Form1
第5个 处填入:Form2
步骤3:调试并运行程序,关闭程序后按题目要求存盘。

单项选择题
单项选择题