(1)帐号为不超过6位数字，密码为6位字符，在本题中，密码假定为“123456”. (2)密码输入时在屏幕上不显示输入的字符，而以“常”代梦 (3)当输入不正确， 如帐号为非数字字符或密码不正确时， 显示有关信息 (4)当输入正确时，关闭密码窗口， 显示Windows操作系统的记事本窗口 按要求完成有关控件的属性的设置，编写确定按纽的单击事件过程。相关界面如图24所示。 回☒ 入密 8 应现特误 确定 取油 图24登录窗口，输入密码对话框 解答： (1)新建工程，在窗体上添加2个文本框，2个标签框，2个命令按钮，并参照上图设 置标签框和命令按钮的Caption屈性 (2)编写以下事件代码： Private Sub Form Load() Textl.MaxLength-6 Text2.PasswordChar End Sub Private Sub Textl_LostFocus() DimiAs Integer,s As String1 If Not IsNum ric(Text1.Text)Then MsgBox"账号有非数字符号”vbExclamation+vbRetyCancel,输入账号 Textl.Text= Textl.SetFocus Exit Sub End If If Len(Text1.Text)>6Then MsgBox"账号不能多于6位！+vbRetryCancel,.输入账号 Textl.Text = Text1.SetFocus End If End Sub Private Sub Command1_Click( If Text2.Text ="123456"Then Me Hide Shell "c:\winnt notepad exe"vbMaximizedFocus Else MsgBox"密码错误"，vbCritical-+vbRetryCancel,."输入密码 Text2.Text Text2.SetFocus HI…†@hŠt = ÕdÚ ‡r@ = ÕÚí [¼šR ‡r‹C@M
>=O, H
I‡rÊÀ}[Œ\h±²ÊÀÚí ‰·M?OqŽ, HIÊÀh£ ö…†@dÚÚíY‡rh£} ±²iÌÍ, HIÊÀ£} ‡rp ±² '$(! ýþ‘ ¼p, (Š‹i$ ! åC()QV t,’Ö×ö­
8 ², ­
8 p ÊÀ‡rY+ TJ HIUN [\ST
*¼+
"#+
&'() ôc•\­ !"#+&'()   , HrIå· qrJ #- %+5) $    )/07=   
# !!($0 79?9 2$%+ #- %+ 5)!!   *,!"/ !,!%/?   "1"!   0      !/9†idÚí†9 -+2  @-+A&  9ÊÀ†9       799      %!      2%+   2$"1   "1)  ;= 0     !/9†hŽî = Õ9 -+2  @-+A&  9ÊÀ†9      799     %!   2$"1 2$%+ #- %+ $5 "1 
79
>=9 0   .$   %09BC(C $9 -+ D$! 2!   !/9‡r79 -+ @-+A&  9ÊÀ‡r9   
799   
%!