2. 计算机
  3. 阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。 [说明] 以下是一账号和密码输入的检验程序。对输入的账号和密码规定如下所述。 (1)账号为不超过6位的数字，密码为4位字符，在本题中，密码假定为“Pass

阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。 [说明] 以下是一账号和密码输入的检验程序。对输入的账号和密码规定如下所述。 (1)账号为不超过6位的数字，密码为4位字符，在本题中，密码假定为“Pass

admin2009-02-15  31
问题 阅读以下说明及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
选项
答案(1) End If (2) en (txt No. Text) (3) Asc(s)＜ Asc("0") (4) Asc(s) ＞ Asc("9") (5) txtNo. Text= " "
解析
转载请注明原文地址:https://kaotiyun.com/show/bojZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)