Dim a As Integer
Private Sub Command1_Click()
If Text1 <> "123" Then
If a < 2 Then
a = a + 1
Text1 = ""
MsgBox "密碼錯誤，請重新輸入，你還有" & 3 - a & "次機會"
ElseIf a = 2 Then
MsgBox "對不起，因3次輸入錯誤，所以無權使用"
Unload Me
End If
ElseIf Text1 = "123" Then
MsgBox "歡迎使用！"
a = 0 '可用可不用
End If
End Sub
② vb程序設計編寫程序驗證輸入密碼是否正確
先設計好界面抄，（襲如：用標簽控制項，2個文本框，）在1個要輸密碼文本框的屬性名稱中輸入password,在要輸入名稱的文本框的屬性名稱中輸入username.在設置字體 想要輸入錯誤密碼三次退出程序方法如下； 在密碼的代碼框中輸入：unload.me chick=3. End sub
③ vb中設置輸入密碼
'在form1窗體上加入控制項text1(帳號),text2(密碼
passwordchar="*")及command1(確定)，然後復制下面代碼即可。
'這里假設另一個窗體為form2
'====代碼部分====
option
explicit
private
sub
command1_click()
if
text2.text
=
"123456"
then
form2.show
else
msgbox
"密碼輸入錯誤！",
vbcritical,
"提示"
end
if
end
sub
④ vb中在一個文本框中輸入密碼，怎樣限制只能輸入3次，3次錯誤後就不能在輸入了
將在文本框中輸入內容的語句放在一個可以運行三次的循環語句中。若三次輸入都是錯誤的，直接退出整個程序即可。
⑤ 用vb編寫的軟體，登錄密碼忘記了怎麼破解
基本上就是備份好vb軟體以及vb軟體生成的數據文件，接著就可以修改密碼，登錄密碼一般仍應保存在存儲器中，如果密碼以文件保存時可以以文件形式替換密碼文件，這樣密碼就變成了替換的新密碼。如果有程序的文件，一般還可以繞開密碼比較，此時用任意密碼仍可以登錄，還有一種密碼窮舉法對密碼進行猜測窮舉，在不改變現有密碼的情形下得出密碼。
⑥ 怎麼做一個VB密碼輸入的程序
ctr=0
const pass="123456"
do
if ctr=3 then
msgbox("已經達到認證上限, 認證程式關閉")
exit do
else
a=inputbox("請輸入密碼")
if a=pass then
msgbox("認證成功")
msgbox("(你可以在這里加一段成功後得到的資訊版)")
exit do
else
ctr=ctr+1 '如果權密碼出錯就增加一次錯誤認證計數
msgbox("認證出錯, 請檢查密碼")
end if
end if
loop