Question

设计一个VB程序,要求输入口令“abcde”,如果输入正确,则打开另外一个窗口,否则提

说明：（1）添加标签，修改标签Caption属性为“请输入口令”，如果输入错误，修改Caption属性为“请重新输入”。
（2）设置文本框Text属性为空，设置PassWordChar属性为“*”。
（3）添加窗体，当输入正确时，可以使用“Form2.Visible=True”或“Form2.Show”语句来打开Form2窗体。

Answer 1

Private Sub Command1_Click()
If Text1.Text = "abcde" Then
Form2.Show
Else
Label1.Caption = "请重新输入"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.PasswordChar = "*"
Label1.Caption = "请输入口令"
End Sub