代码出错
但好像我没有编错啊……
这个是一个登陆系统的一个程序
登陆成功就跳出第二个窗口
没有就继续登……
Private Sub Command1_Click()
If Not IsNumeric(Text2.Text) Then
MsgBox "密码必须为数字", , "警告"
Text1.Text = ""
Text1.SetFocus
Text2.Text = ""
End If
End Sub
Dim i
If Val(Text2.Text) <> 12345 And Text1.Text <> admin Then
i = MsgBox("帐号或密码错误!", 5 + vbExclamation, "警告!")
If i <> 4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
Form1.Hide
Form2.Show
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 5
Text2.Text = ""
Text2.MaxLength = 5
Text2.PasswordChar = "*"
End Sub
谢谢大家了……