Question

vb里面怎么在FOR循环里面用MsgBox函数

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Trim(TextBox2.Text) = "" Then MsgBox("用户或密码不能为空") Exit Sub End If Dim i As Integer Dim a As String a = "密码输入不正确，请重新输入。（3次内有效）" For i = 1 To 3 Step 1 TextBox2.Focus() If Trim(TextBox2.Text) = "10086" Then form2.Show() Me.Hide() Exit For Else MsgBox(a, vbOKOnly, ) TextBox2.Clear() Exit Sub End If Next i If (i >= 3) Then MsgBox("由于多次输入有误，已限制登录！") End End If End Sub
这段代码有什么问题？

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Trim(TextBox2.Text) = "" Then
MsgBox("用户或密码不能为空")
Exit Sub
End If
Static i As Integer
Dim a As String
a = "密码输入不正确，请重新输入。（3次内有效）"
TextBox2.Focus()
If Trim(TextBox2.Text) = "10086" Then
Form2.Show()
Me.Hide()

Exit Sub
Else
MsgBox(a, vbOKOnly, )
TextBox2.Clear()
i += 1
End If

If (i >= 3) Then
MsgBox("由于多次输入有误，已限制登录！")
End
End If
End Sub

追问

变量i不需要定义为i=1吗？不定义为i=1的话，是可以运行成功的，这是为什么？

追答

这是一个静态变量，初始值为0并且在判断前已经+1

追问

难道是VB语言的编译器已经对变量i做了初始化？如果是这样，那好吧！

追答

vb常见变量都是初始化了的。比如整型会初始化为0，串变量会初始化为空串。
vb.net可能会提示你没有初始化变量，不用理它，你可以测试一下它的值。

Answer 2

问题1 ：你是用i做登陆次数判断的，所以i 不能在sub里定义，，应该是个全局变量，才有意义，而且你这个i应该跟登陆的用户名绑定，一定时间内相同用户，或者ip才会累加i，否则那就是错判啊，正常用户都被你锁定了。

其他问题，地下的请继续

追问

那程序要怎么改?指点一下！

Answer 3

If (i >= 3) Then 应该是 If (i > 3) Then