您好,常识编辑小木鱼就为亲们解答关于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。

vb实用小程序 简单的vb小程序就讲到这里，希望亲们会喜欢。