Question

用VB编写一个密码确认程序,用*显示

输入三次错误后，就不能再输入了，如果输入正确就跳到下一个画面！

Answer 1

Private Sub Command1_Click()
Static i As Integer
i = i + 1
If Text1.Text = "12345" Then
MsgBox "密码正确！"
Unload Me
Form2.Show
Else
Text1.Text = ""
If i = 3 Then
MsgBox "您已输错密码3次，程序退出"
End
Else
MsgBox "密码错误，请重新输入！"
Text1.SetFocus
End If
End If

End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.PasswordChar = "*"
End Sub

Answer 2

用TextBox控件，将其的PassWord属性值设为：* 。