vb语言中，在登录界面输入错误自动退出的问题

来源：百度知道 编辑：UC知道 时间：2024/05/17 07:25:52
Dim a As String, b As String, try As Integer, pt As Integer
a = Text1.Text
b = Text2.Text
try = 0
pt = 0
If a <> "vb" Then
If try < 4 Then
MsgBox "输入的用户名有误，请核对后重新输入！"
try = try + 1
Else
MsgBox "你输入的账号错误超过3次，请重新核对后再输入！"
End If
程序的一段是这样，我想让输入错误三次之后弹出窗口显示错误3次的提醒，之后点击确定后自动关闭程序，我的程序该做如何修改？

应该用循环而不是用条件语句，不然的话，你那个try=try+1怎么自动往上加嘛

Integer
a = Text1.Text
b = Text2.Text
try = 0
pt = 0
If a <> "vb" Then
If try < 4 Then
MsgBox "输入的用户名有误，请核对后重新输入！"
try = try + 1
Else
MsgBox "你输入的账号错误超过3次，请重新核对后再输入！"
end
End If
就是在MSGBOX后边加个end或者unload form1
就可以了

把try放在文件级别声明

Else
MsgBox "你输入的账号错误超过3次，请重新核对后再输入！"
if try>=4 then
unload me
end if
End If

在MsgBox "你输入的账号错误超过3次，请重新核对后再输入！"
下面加上Unload Me 就可以了。如下:
Unload Me=关闭当前程式并释放此程式所占的记忆体空间。

Dim a As String, b As String, try As Integer, pt As Integer
a = Text1.Text
b = Text2.Text
try = 0
pt = 0
If a <> "vb" Then
If try < 4 Then
MsgBox "输入的用户名有误，请核对后重新输入！"
try = try + 1
Else
MsgBox "你输入的账号错误超过3次，请重新核对后再输入！"
Unload M