假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的Click事件中的代码如下： USE 口令表 GO TOP flag =0 DO WHILE .not.EOF（） IF Alltrim（用户名）==Alltrim（Thisform.Text1.value） If Alltrim（口令）＝＝Alltrim（Thisform.Text2.value） WAIT

假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的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

【程序说明】假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。命令按钮“登录”的Click事件中的代码如下。

【程序】

USE 口令表

GO TOP

flag＝0

DO WHILE (3)

IF Alltrim (用户名)= ＝Alltrim(Thisform. Text1. Value)

IF Alltrim (口令)＝＝Alltrim(Thisform. Text2，Value)

WAIT“欢迎使用”WINDOW TTMEOUT2

ELSE

WATT“口令错误” WINDOW TIMEOUT2

ENDIF

flag＝1

EXIT

ENDIF

SKIF

ENDDO

IF (4)

WAIT“用户名错误”WINDOW TIMEOUT2

ENPIF

(3)

A．BOF()

B．.NOT.BOF()

C．EOF()

D．.NOT.EOF()

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

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

假定用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提 示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的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