阅读以下说明及Visual Basic 程序代码,将入(n)处的字句写在对应栏内。 [说明] 以下是一账号和密码输入的检验程序。对输入的账号和密码规定如下所述。 (1)账号为不超过6位的数字,密码为4位字符,在本题中,密码假定为“Pass”。 (2)密码输入时在屏幕上不显示输入的字符,而以“*”代替。 (3)当输入不正确,如账号为非数字字符或密码不正确时,显示有关信息。 (4)当输入正确时,关闭密码窗口,显示记事本窗口。 按要求完成有件的其他属性的设置,编写确定按的单击事件过程。相关界面如下: (可能要用到的单词:MultiLlne,ScrollBars,PasswordChar,MaxLength)密码窗口frmPass控件设置如下表所示。 记事本窗口frmNotepad 控件设置如下表所示。 在密码窗口的属性窗口,对密码文本框设置属性MuniLine 为False。 [Visual Basic 代码] Private Sub cmd OK_ Click ( ) If txtPas. Text= 'Pass' Then Load frmNotePad frmNotePad. Show frmPass.Hide Else MsgBox '密码错误! ', vbExclamation + vbRetryCancel, '重输入密码' txtPas. Text= ' ' txtPas. SetFocus (1) End Sub Private Sub Form_ Load ( ) txtPas.PasswordChar = '*' xtNo.MaxLength = 6 End Sub Private Sub txtNo LostFocus ( Dim i As Integer, s As String * 1 Fori= 1 To (2) s = Mid ( txtNo.Text, i, 1 ) If (3) Or (4) Then MsgBox '账号有非数字符号! ', vbExclamation + vbRetryCancel, '1 输入账号' (5) txtNo. SetFocus Exit Sub End If Next i End Sub