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