关于VB编程方面的一些问题

来源：百度知道编辑：UC知道时间：2024/05/18 07:18:50

我编了一个验证密码的程序,不知怎么搞的出错了,请大家帮我看看!
Private Sub ComOk_Click()
Static i As Integer
If i <= 2 Then
If TexPass.Text = "mlrq" Then
Unload ForPass
Formain.Show
Else
LabMsg.Caption = "密码错误，请再试一次！"
End If
Else
LabMsg.Caption = "3次输入错误，拒绝重新输入！"
TexPass.Enabled = False
End If
i = i + 1
End Sub
先谢谢啦!
当密码输入错误的时候可以正常的运行,可是当密码输入正确的时候就说“If TexPass.Text = "mlrq" Then ”这句出错了啊！

我S了没有问题啊最好把这程序发给我看下
sgl831127@163.com

我已经发给你了

在我这边没有错误.正常的.

Private Sub ComOk_Click()
Static i As Integer
If i <= 2 Then
If TexPass.Text = "mlrq" Then
Unload ForPass
Formain.Show
Else
LabMsg.Caption = "密码错误，请再试一次！"
End If
Else
LabMsg.Caption = "3次输入错误，拒绝重新输入！"
TexPass.Enabled = False
End If
i = i + 1
End Sub

关于VB编程方面的一些问题关于vb编程的一些问题 vb的一些编程问题 VB编程的一些问题关于VB编程的问题关于vb编程的问题关于VB编程的问题. 关于VB的编程问题 VB编程中控件的一些问题关于编程方面的问题