Question

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

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 Su