Question

怎么做一个VB密码输入的程序

要求：
进入VB直接弹出inputbox输入密码
如果输入正确就用MSGBOX说“输入正确”
如果错误就用MSGBOX说“输入错误”
然后自动弹出inputbox重新输入
直到输入正确
最多输入三次
如果三次还没对
就msgbox“非法用户”然后退出
谢谢~

Answer 1

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

Answer 2

Private Sub Form_Load()
Static y As Integer
Do While y < 3
x = InputBox("输入密码")
If x = "123456" Then
MsgBox "输入正确"
exit do
Else
MsgBox "输入错误"
y = y + 1
End If
Loop
If y = 3 Then MsgBox "非法用户": End
End Sub

Answer 3

一：在你的VB工程中添加一个标准模块，
二：在模块中建立一个Private Sub Main() 方法
三：在Main方法中写上你需要的代码，
具体参照上面各位高手给的答案即可
四：在你的VB工程菜单中选择最后一项 工程属性
设置启动对象为Sub Main

这样每当你启动工程的时候就会首先执行Main方法

Answer 4

给楼主阁下写如下代码(直接拷贝)

Private Sub Form_Load()
Dim n As String, a As String, k As Integer
a = 520 '假如密码为520
While k < 3 And n <> a '同时满足k<3和n不等于a时才执行以下的循环
n = InputBox("请输入密码！")
If n = a Then
MsgBox "输入正确！"
Else
MsgBox "输入错误！"
k = k + 1 '这里的变量k用来记录输入错误的次数
End If
Wend
If k = 3 Then '如果三次还没对就msgbox“非法用户”然后退出
MsgBox "非法用户"
Unload Me '这里是卸载本窗体的意思
End If
End Sub

Answer 5

Dim nCount
Private Sub Command1_Click()
Dim strPwd

strPwd = Text1.Text
If strPwd = "MiMa" Then
MsgBox ("输入正确")
Else
If nCount < 2 Then
MsgBox ("输入错误")
Text1.Text = ""
Text1.SetFocus
nCount = nCount + 1
Else
MsgBox ("非法用户")
End
End If
End If

End Sub