Dim AAA As StringPrivate Sub Command1_Click()Dim aa, bbaa = "admin" '賬號bb = "admin888" '密碼AAA = Val(AAA) + 1 '記錄登錄次數If Val(AAA) >= 3 Then '等于大于3次，提示并退出程序MsgBox "你已經錯誤輸入三次！"EndEnd IfIf Text1 = aa And Text2 = bb Then '如果輸入正確MsgBox "登錄成功!"Me.Hideform2.Show '登錄成功后，轉到form2界面Else '如果輸入錯誤MsgBox "賬號或密碼輸入錯誤!"End IfEnd SubPrivate Sub Form_Load()Label1 = "歡迎光臨！"End Sub