导读 大家好,今天小六子来为大家解答以下的问题，关于vb趣味小程序实例，简单的vb小程序这个很多人还不知道，现在让我们一起来看看吧！1、Privat

大家好,今天小六子来为大家解答以下的问题，关于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。

本文分享完毕，希望对你有所帮助。