level 1
Private Sub Command1_Click()If Text1.Text = "123" Then MsgBox "欢迎光临本站", , "欢迎" Else a = Label1.Caption - 1 Label1.Caption = a If a = 0 Then MsgBox "已输入三次错误密码,请与管理员联系!", , "错误" Label1.Caption = 3 End IfEnd IfEnd SubLabel1.Caption初始值为3
2007年11月05日 17点11分