(资料图)

1、Private Sub Command1_Click() Static n As Integer n = n + 1 a = Text1.Text b = Text2.Text If a = "wanglili" And b = "12345" And n <= 3 Then MsgBox "欢迎您进入本系统！" n = 0 Else If n < 3 Then MsgBox "对不起您不能进入！请重新输入认证信息！" Else MsgBox "对不起。

2、您不能进入本系统！" End If End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub。

本文为大家分享到这里，希望小伙伴们有帮助。