阅读以下说明及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" ThenLoad frmNotePadfrmNotePad. ShowfrmPass.HideElseMsgBox "密码错误! ", vbExclamation + vbRetryCancel, "重输入密码"txtPas. Text= " "txtPas. SetFocus(1)End SubPrivate Sub Form_ Load ( )txtPas.PasswordChar = "*"xtNo.MaxLength = 6End SubPrivate Sub txtNo LostFocus (Dim i As Integer, s As String * 1Fori= 1 To (2)s = Mid ( txtNo.Text, i, 1 )If (3) Or (4) ThenMsgBox "账号有非数字符号! ", vbExclamation + vbRetryCancel, "1 输入账号"(5)txtNo. SetFocusExit SubEnd IfNext iEnd Sub
阅读以下说明及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
相关考题：
●试题六阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【说明】单击窗体上的"测试"(cmdTest)按钮，出现一个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框(txtShow)中。【程序代码】Private Sub cmdTest_Click()Dim strT1，strT2 As StringDim strCh As (1)Dim intL As IntegerDim intI As IntegerstrT1= (2) ("请输入一串字符"，"字符串输入")intL= (3)strT2=″″For intI=l To intLstrCh=Mid(strT1，intI，1)If(strCh"A"And (4) ) Or (strCh"a" And suCh"z")ThenstrT2=strT2+strChEnd IfNext intItxtShow．Text= (5)End sub
阅读以下说明和流程图，将应填入(n)处的字句写在对应栏内。【说明】已知头指针分别为La和lb的有序单链表，其数据元素都是按值非递减排列。现要归并La和Lb得到单链表Lc，使得Lc中的元素按值非递减排列。程序流程图如下所示：
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。【说明】以下程序为求行列式X(5,5)的值S。【Visual Basic代码】Private Function col ( byval x ( 5,5 ) as integer ) as longdim fesult as longdim temp as longdim I as integerdim j as integerdim k as imegerresult = 0for I = to 5(1)for j = 1 to 5if I+j＞6 thenk= ( 1+j ) mod 5elsek=1endiftemp=temp*x ( k,j )(2)result=(3)(4)(5)End function
阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。[程序5.1说明]下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Ase和Chr函数，Select Case语句中禁用枚举值。[Visual Basic代码]Private Sub Form. Load ()Dim x As String*1X=(1) (“请输入单个字符”，“字符”)Select Case UCase ( (2) )Case (3)。Print X+“是字母字符”Case (4)Print X+ “是数字字符”Case ElsePrint X+“是其他字符”End Select[程序5.2说明]在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后，将在标签中显示当前时间的数字时钟(包括时：分：秒)。[Visual Basic代码]Private Sub Fom_Load ()Timer1.Interval=1000EndSubPrivate Sub Timer1_ timer() (5)EndSub
阅读以下说明和C++程序，将应填入(n)处的字句写在对应栏内。[说明]本程序中预设了若干个用户名和口令。用户输入正确的用户名后，可以查找对应的口令，一旦输入结束标记“end”，程序结束。[C++程序]include ＜iostream. h＞include ＜string. h＞class User{ protected:char user[10];char pass[7];public:User(char[ ],char[]);(1) {return user;}(2) {return pass;}};User::User(char u[],char p[]){ strcpy(user,u);strcpy(pass,p); }void main(){ User ua[]={User("Li","123456"),User("wang","654321"),User("Song","666666")char name[10];while(1)cout＜ ＜ "输入用户名:";cin＞ ＞name;if((3)= =0) break;for(int i=0;i＜3;i+ +)if(strcmp(name,ua[i].getuser()) = =0){cout＜ ＜"密码:" ＜ ＜ ua[i].getpass() ＜ ＜endl;(4);if((5))cout＜ ＜"该用户不存在!" ＜ ＜endl;}}
阅读以下函数说明和C语言函数，将应填入(n)处的字句写在对应栏内。【说明】给定函数fun的功能是：将从键盘上输入的每个单词的第一个字母转换为大写字母，输入时各单词必须用空格隔开，用“.”结束输入。【函数】int fun(char *c,int status){if((1)=='')return 1;else{if((2)(3)(4))(5)='A'-'a';return 0;}}main(){int flag=1;char ch;printf("请输入一字符串，用点号结束输入!\n");do {ch=getchar();flag=fun(ch,flag);putchar(ch);}while(ch!='.');printf("\n");}
阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码，将应填入(n)处的字句写在对应栏内。【应用说明】某应用的登录界面如下：登录界面中的文本框txtUserID和txtPassword分别用于接受用户输入的用户名和口令，命令按钮为“确定(cmdOk)”和“取消(cmdCancel)”。ADO数据控件Adodc1与数据库EmployeeData连接。在EmployeeData中，表“Users”的字段“UserID”和“Pswd”分别记录了所有的合法用户名和口令。在登录界面中，输入正确的用户名和口令并单击“确定”按钮后，就会打开应用程序的主窗口fxmApp。用户名或密码输入错误时，给出提示信息并返回登录界面。【Visual Basic程序代码】Private Sub cmdOK Click()Adodcl.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\data\EmployeeData.mdb;Persist Security Info=False"Adodcl.RecordSource = "select *(1)"Adodcl.RefreshDousrname =(2)pwd = Adodc1.Recordset("Pswd")Adodc1.Recordset.MoveNextLoop Until (usrname =(3)) Or (Adodc1.Recordset.EOF)If usrname ＜＞ txtUserID.Text ThenMsgBox "无效的用户ID, 请重新输入!", , "提示信息"ElseIf (4)ThenMsgBox "欢迎进入系统主界面!", , "提示信息"Unload me(5)ElseMsgBox "无效的用户密码, 请重新输入!", , "提示信息"End IfEnd IfEnd Sub
阅读下列程序说明和C程序，将应填入(n)处的字句写在对应栏内。[函数2.1说明]下面程序的功能是计算x和y的最小公倍数。[函数2.1]main(){ int m,n,d,r;seanf("%d %d",m,n);if(m＜n) {r=m;m=n;n=r;}(1);while (d%n! =0) (2);printf("%d\n",d);}[函数2.2说明]下述程序接收键盘输入，直到句点“.”时结束。输入的字符被原样输出，但连续的空格输入将转换成一个空格。[函数2.2]include ＜stdio.h＞main(){ char c,preChar='\0';c = getchar();while(c! = '.'){if((3)) putchar(c);else if(preChar! =' ') putchar(c);(4);c=(5);}}
试题三（共 15 分）阅读以下说明和 C 程序，将应填入 （n） 处的字句写在答题纸的对应栏内。