微信公开课小程序热门讨论「简单的vb小程序」最新回复-PrivateSubCommand1_Click()StaticnAsIntegern=n+1a=Text1.Textb=Text2.TextIfa=wangliliAndb=12345Andn=3ThenMsgBox欢迎您进入本系统!n=0ElseIfn3ThenMsgBox对不起您不能进入!请重新输入认证信息!ElseMsgBox对不起,您不能进入本系统!EndIfEndIfEndSubPrivateSubCommand2_Click()EndEndSub
PrivateSubCommand1_Click()登录StaticiAsInteger姓名text1密码text2IfText1=wangliliAndText2=12345ThenMsgBox欢迎您进入本系统!Elsei=i+1Ifi=3ThenIfMsgBox(您不能进入!请重新输入认证信息!,vbCritical+vbRetryCancel)=vbCancelThenUnloadMeElseText1.SetFocusEndIfElseMsgBox对不起,您不能进入本系统!EndIfEndIfEndSubPrivateSubCommand2_Click()关闭UnloadMeEndSub 更多有关「简单的vb小程序」的疑问请扫码关注微信公开课+小程序!了解更多