UC知道用VB编写“密码校验”程序的设计
来源：百度知道 编辑：UC知道 时间：2024/05/20 07:36:43
具体要求如下：
（1） 窗体的标题为“密码校验”，固定边框。
（2） 窗体上有一个标签Label1，标题为“输入密码后按回车提示：密码1234567”。
（3） 标签Label1旁边有一个文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。
（4） 窗体的下半部分有一个标签控件Label2，用来显示密码输入后的提示信息，它的文字对齐方式为居中对齐，文字颜色为红色，Font设置为：宋体、常规、三号；标签的大小随字体自动调整，并设置为不可见。
（5） 当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”。如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请推出程序！”，文本框就不能使用了。
（1） 窗体的标题为“密码校验”，固定边框。
（2） 窗体上有一个标签Label1，标题为“输入密码后按回车提示：密码1234567”。
（3） 标签Label1旁边有一个文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。
（4） 窗体的下半部分有一个标签控件Label2，用来显示密码输入后的提示信息，它的文字对齐方式为居中对齐，文字颜色为红色，Font设置为：宋体、常规、三号；标签的大小随字体自动调整，并设置为不可见。
（5） 当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”。如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请推出程序！”，文本框就不能使用了。
完整代码如下,初始化都已经做好啦,添加控件试试吧:
Dim NCount As Integer
Private Sub Form_Load()
'初始化控件信息
Caption = "密码校验"
Label1.Caption = "请输入密码:"
Text1.Text = ""
Label2.ForeColor = &HFF&
Label2.Alignment = 2
Label2.FontName = "宋体"
Label2.FontSize = 15.75
Label2.AutoSize = True
Label2.Visible = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) > 6 And KeyAscii <> 8 And KeyAscii <> 13 Then
KeyAscii = 0
End If
If KeyAscii = 13 And Text1.Text = "1234567" Then
Label2.Caption = "欢迎光临!"
Label2.Visible = True
ElseIf KeyAscii = 13 Then
If NCount <> 1 Then
Label2.Visible = True
Label2.Caption = "密码不符，请再输入一遍!"
Text1.Text = "