Question

用VB编一帐号和密码检验程序。 10 帐号不超过6位数字，若输入有错误，

用VB编一帐号和密码检验程序。 10
帐号不超过6位数字，若输入有错误，清除原内容重新输入。
密码输入时在屏幕上以 “*”代替；若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。
分析：帐号6位，MaxLength为6；LostFocus事件判断数字IsNumeric函数；密码PassWordChar为“*”；MsgBox函数设置密码错对话框。

Answer 1

'进入VB直接弹出inputbox输入密码()'如果输入正确就用MSGBOX说("输入正确")'如果错误就用MSGBOX说("输入错误")'然后自动弹出inputbox重新输入()'直到输入正确()'最多输入三次()'如果三次还没对()'就msgbox“非法用户”然后退出PrivateSubForm_Load()DimnAsString,aAsString,kAsIntegera=520'假如密码为520Whileka'同时满足k<3和n不等于a时才执行以下的循环n=InputBox("请输入密码！")Ifn=aThenMsgBox("输入正确！")ElseMsgBox("输入错误！")k=k+1'这里的变量k用来记录输入错误的次数EndIfEndWhileIfk=3Then'如果三次还没对就msgbox“非法用户”然后退出MsgBox("非法用户")Unload(Me)'这里是卸载本窗体的意思EndIfEndSub