【程序说明】假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。命令按钮“登录”的Click事件中的代码如下。【程序】USE 口令表GO TOPflag＝0DO WHILE (3)IF Alltrim (用户名)= ＝Alltrim(Thisform. Text1. Value)IF Alltrim (口令)＝＝Alltrim(Thisform. Text2，Value)WAIT

题目

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

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=-1B．flag=0C．flag=1D．flag=2

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

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

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

  • 第1题：

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


    正确答案：B
    解析：本题在DO循环的第一个IF条件语句中，如果判断文本框中输入的用户名和数据表中的用户名一致，则给变量 flag赋值为1，反之，变量flag的值仍然为0。然后通过最后一个IF条件语句判断，如果flag的值为0的话，则表示 用户输入的用户名在表中不存在，提示用户名错误。

  • 第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


    正确答案：B

  • 第3题：

    3、用户登录时必须输入用户名和口令，只有该用户名、口令验证正确时，用户才能被允许进入Linux系统。


    正确

  • 第4题：

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


    正确答案：
    (1)【操作步骤】
    步骤1：单击工具栏中的“打开”按钮，打开考生文件夹下的数据库文件“课程管理”。
    步骤2：单击工具栏中的“新建”按钮，新建一个程序，输人如下代码。
    CREATE sql VIEW salary AS SELECT教师表．系号，AVG(教师表．工资)As平均工资FROM教师表；
    GROUP BY教师表．系号0RDER BY 2 DESC 步骤3：保存程序为four．prg，并运行该程序。
    (2)【操作步骤】
    步骤1：单击工具栏中的“打开”按钮，打开考生文件夹下的表单six．sex，“登录”按钮中的代码如下。
    ************“登录”按钮的Click事件代码************
    USE用户表
    GO TOPflag=0
    ＆＆下面语句有错误
    wHILE．NOT．EOF
    IF Alhrim(用户名)==Alltrim(This form．Text1．Value)IF Alltrim(口令)==Alltrim(Thisform．Text2．Value)WAIT”欢迎使用”WINDOW TIMEOUT 2
    ELSE
    WAIT”口令错误”WINDOW TIMEOUT 2ENDIF
    flag=1EXITENDIF＆＆下面语句有错误
    NEXTENDD0＆＆下面语句有错误
    CASE FLAG=0
    WAIT”用户名错误”WINDOW TIMEOUT 2FNnTF
    ************************
    步骤2：修改程序中的错误如下。
    错误l：将“WHILE”改为“DO WHILE”。
    错误2：将“NEXT”改为“SKIP”。
    错误3：将“CASE”改为“IF”。
    步骤3：保存并运行表单。

  • 第5题：

    用户登录时必须输入用户名和口令，只有该用户名、口令验证正确时，用户才能被允许进入Linux系统。


    正确

相关内容