大家好,小探来为大家解答以上的问题。vb简单小程序制作教程，简单的vb小程序这个很多人还不知道,现在让我们一起来看看吧！

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。

本文到此分享完毕，希望对大家有所帮助。