大作业

Private Sub Command1_Click()
Static n
If Text1 = "119" Then
If Text2 = "911" Then
Form2.Show
Unload Me
Else
MsgBox "密码错误"
Text2 = ""
Text2.SetFocus
End If
Else
MsgBox "用户名错误!"
Text1 = ""
Text1.SetFocus
End If
n = n + 1
If n = 3 Then Unload Me
End Sub


Private Sub Form_Load()


End Sub