【程序说明】假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，

(1l)假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示。“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的Click事件中的代码如下：USE 口令表GO TOPFlag=0DO WHILE.not.EOFIF Alltrim(用户名)= =Alltrim(Thisfrom.Text1.Value)IF Alltrim(口令)= =Alltrim(Thisfrom.Text2.Value)WAIT"欢迎使用" WINDOW TIMEOUT2ELSEWAIT"口令错误" WINDOW TIMEOUT2ENDIFFlag=1EXITENDIFSKIPENDDOIF ________WAIT"用户名错误"WINDOW TIMEOUT2ENDIF则在横线处应填写的代码是A）flag=-1 B）flag=0 C) flag=1 D）flag=2

入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的Click事件中的代码如下： USE 口令表 GO TOP flag=0 DO WHILE.not.EOF() IF Alltrim(用户名)==Alltrim(Thisform.Text1.Value) IF Alltrim(口令)==Alltrim(Thisform.Text2.Value) WAIT“欢迎使用”WINDOW TIMEOUT2 ELSE WAIT“口令错误”WINDOW TIMEOUT2 ENDIF flag=l EXIT ENDIF SKIP ENDDO IF______ WAIT“用户名错误”WINDOW TIMEOUT2 ENDIF 则在横线处应填写的代码是

A．flag=-1

B．flag=0

C．flag=l

D．flag=2

错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的click事件中的代码如 USE 口令表 GO TOP flag=0 DO WHILE.not.EOF0 IF Ailtrim(用户名)=Alltrim(This form.Text1.Value) IF Alltrim(口令)=Alltrim(Thisform.Text2.Value) WA1T"欢迎使用"WIN DOW TIMEOUT2 ELSE WAIT"口令错误" WINDOW TIMEOUT2 ENDIF flag=1 EXIT ENDIF SKIP ENDDO IF______ WAIT"用户名错误"WINDOW TIMEOUT2 ENDIF 则在横线处应填写的代码是

A．flag=-1

B．flag=0

C．flag=1

D．flag=2

用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的Click事件中的代码如下： USE 口令表 GO TOP flag =0 DO WHILE .not.EOF（） IF Alltrim（用户名）==Alltrim（Thisform.Text1.value） If Alltrim（口令）＝＝Alltrim（Thisform.Text2.value） WAIT\"欢迎使用\"WINDOW TIMEOUT2 ELSE WAIT\"口令错误\"WINDOW TIMEOUT2 ENDIF flag=1 EXIT ENDIF SKIP ENDDO IF —————— WAIT\"用户名错误\"WINDOW TIMEOUT2 ENDIF 则在横线处应填写的代码是

A．flag=-1

B．flag=0

C．flag=1

D．flag=2

图包括系号和平均工资两个字段，并且按平均工资降序排列。将该SQL语句存储在four．prg文件中。 2．打开考生文件夹下的表单six，如下图所示。其中，“登录”命令按钮的功能是：当用户输入用户名和口令以后，单击“登录”按钮时，程序在自由表“用户表”中进行查找，若找不到相应的用户名，则提示“用户名错误”，若用户名输入正确，而口令输入错误，则提示“口令错误”。修改“登录”命令按钮Click事件中标有错误的语句，使其能够正确运行。注意：不得做其他修改。

入错误，则提 示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的Click事件中的代码 如下： USE口令表 GO TOP flag=0 DO WHILE．not．EOF() IF Alltrim(用户名)==Alltrim(Thisform．Text1．Value) IF Alltrim(口令)==Alltrim(Thisform．Text2．Value) WAIT"欢迎使用”WINDOW TIMEOUT2 ELSE WAIT“口令错误”WINDOW TIMEOUT2 ENDIF flag=1 EXIT ENDIF SKIP ENDDO IF________ WAIT“用户名错误”WINDOW TIMEOUT 2 ENDIF 则在横线处应填写的代码是

A．flag=-1

B．flag=0

C．flag=1

D．flag=2

阅读以下说明和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;

}

}

阅读以下应用说明以及用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;Data

Source=D:\data\EmployeeData.mdb;Persist Security Info=False"

Adodcl.RecordSource = "select *(1)"

Adodcl.Refresh

Do

usrname =(2)

pwd = Adodc1.Recordset("Pswd")

Adodc1.Recordset.MoveNext

Loop Until (usrname =(3)) Or (Adodc1.Recordset.EOF)

If usrname ＜＞ txtUserID.Text Then

MsgBox "无效的用户ID, 请重新输入!", , "提示信息"

Else

If (4)Then

MsgBox "欢迎进入系统主界面!", , "提示信息"

Unload me

(5)

Else

MsgBox "无效的用户密码, 请重新输入!", , "提示信息"

End If

End If

End Sub

阅读以下说明和java代码，将应填入(n)处的字句写在对应栏内。

[说明]

本程序中预设了若干个用户名和口令。用户输入正确的用户名后，可以查找对应的口令，一旦输入结束标记“end”，程序结束。

[Java代码]

import java. io. *:

public class User {

public String user;

public Siring pass;

public User() { }

public User(String u,String p) {

user=u;

pass=p;

}

public String (1) () { return this. user; }

public String (2) () { return this. pass; }

public static void main(String[] args) {

User ua[]={new User("Li","123456"), new User("wang","654321"),

new User("Song","666666")};

while(true) {

InputStreamReader reader = new InputStreamReader(System. in);

BufferedReader inpul = new BnfferedReader(reader);

System. out. print("Enter your name:");

String name = null;

try { name = input. readLine();}

catch (IOException ex) {}

if((3)) break;

int i;

for (i=0;i＜3;i++) {

if (name. equals(ua[i]. getUser())){

System. out. println("密码:"+ua[i].getPass());

(4);

}

}

if ((5)) System. out. println("该用户不存在!");

}

}

}

阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

[说明]

某公司的服务器上为每位员工提供了一定大小的存储空间，用于数据的备份。下面的程序面向公司员工，提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下：

(1)连接服务器：员工需要输入用户名和口令才能连接到服务器端，checkUser函数用于检查用户名和口令是否合法，返回真假值。

(2)上传文件：从本地计算机上传文件到服务器。员工可以在本地文件列表中选择一个或多个文件，这些文件通过上传操作被复制到服务器端指定的某个文件夹中；

(3)下载文件：从服务器端下载文件到本地。

在开发过程中，本地驱动器列表框名为Drive1，本地和服务器端目录列表框分别名为Dir1和 Dir2，本地和服务器端文件列表框分别名为File1和File2，界面上有上至下四个按钮分别名为Command1至Command4。

[Visual Basic代码]

Private Sub Drive1_Change()

(1) ’更新目录列表框的路径

End Sub

Private Sub Dir1_Change()

File1.Path=Dir1.Path ’更新文件列表框file1的路径

End Sub

Private Sub Dir2_Change()

File2.Path=Dir2.Path ’更新文件列表框file2的路径

End Sub

’连接服务器

Private Sub Command1_Click()

Dim user,password As String

user=(2) (“请输入用户名：”)

password=(2) (“请输入口令：”)

If check User(user,password)Then ’若用户名和口令正确

Dir2.Path=…… ’打开服务器上某一指定目录

Else: MsgBox“口令错误，请重试!”

End If

End Sub

’上传文件

Private Sub Command2_Click()

Dim fso As new FileSystemObject,f As File,i As Integer

If File1.FileName=""Then ’判断是否已经选中文件

MsgBox“请选择本地的文件!”

Exit Sub

End If

’创建文件系统对象

Set fso=CreateObject(“Scripting.FileSystemObject”)

’上传文件

For i=0 To (3) ’遍历文件列表框File1中的全体文件

If (4) Then’若该文件被选中

Set f=fso. (5) (Dir1.Path & “\” & File1.List(i))

f.Copy Dir2.Path & “\” & File1.List(i),True ’复制文件至服务器端

End If

Next

File2.Refresh

End Sub

’下载文件

Private Sub Command3_Click()

……

End Sub

’退出程序

Private Sub Command4_Click()

End

End Sub