关于VB，高手进

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 "输入正确！"
window.open(../你要打开窗体的路径.aspx)
Else
MsgBox "输入错误！"
k = k + 1 '这里的变量k用来记录输入错误的次数
End If
Wend
If k = 3 Then '如果三次还没对就msgbox“非法用户”然后退出
MsgBox "非法用户"
Unload Me '这里是卸载本窗体的意思
End If
End Sub
有问题再联系...
你是江西省吉安市的吗?

我也等答案

private sub Command1_Click()
if TUsr.Text="user" AND TPass.Text="pass" then
load frmMain
frmMain.Show
unload me
else
msgbox "用户名密码错误"
end if

end sub

if PanDuan(TExt1.Text,Text2.Text) then
Main.Show()
else
msgbox("信息输入错误")
end if

PanDuan是一个函数 判断信息是否正确

Private Sub cmdLog_Clic