题目大概是  一个文本框，要求输入正确的口令，有三次机会，若口令正确，则转入form2   若错误，则显示还有几次机会
大概的窗口是

请输入口令  ————

    你有三次机会，请好好把握哦！

是一个窗口单击事件，若输入错误则弹出一个消息框，显示还有几次机会，下面的是我的源代码，不知那里错了，得不到正确结果
忘指导
Private Sub Form_Click()
Static i As Integer
For i = 3 To 0 Step -1
If (Text1.Text) = "123456" Then
a = MsgBox（"口令正确，转入form2 ",,"提示")
Unload Me
Form2.Show
Else
a = MsgBox（"你还有" & i & "次机会",,"提示"）
End If
Exit For

Next i
End Sub
谢谢

[ 本帖最后由 沧声笑 于 2010-10-19 18:28 编辑 ]

次数不是用循环来判断的。需要使用全局变量或 静态变量保存。你这里是用的静态变量。
这里没有VB，无法给代码给你。说个流程。

窗体单击
定义静态变量
if 密码<>"" then
   变量 + 1
   提示还剩 3- 变量 次机会
else
  form2.show    '要先显示后面的窗体
  unload me     '这条命令后不能再有 可执行的命令，否则会导致窗体隐性加载
end if

二楼楼主正确，计算次数的变量应另外定义，不要和用于循环的变量用一个