阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码，将应填入(n)处的字句写在对应栏内。【应用说明】某应用的登录界面如下：登录界面中的文本框txtUserID和txtPassword分别用于接受用户输入的用户名和口令，命令按钮为“确定(cmdOk)”和“取消(cmdCancel)”。ADO数据控件Adodc1与数据库EmployeeData连接。在EmployeeData中，表“Users”的字段“UserID”和“Pswd”分别记录了所有的合法用户名和口令。在登录界面中，输入正确的

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

【说明】

本应用程序是一个乘法计算器，其运行窗口如图2所示。

在该界面中，“被乘数”、“乘数”以及“积”等文字为标签，相应的3个输入输出数据框为文本框，此外还有3个命令按钮。用户在“被乘数”和“乘数”相应的文本框内输入数据，再单击“运算”按钮，便能在“积”对应的文本框中看到相乘的结果；当用户单击“清除”按钮时，就会清除各文本框中的数据；当用户单击“关闭”按钮时就会关闭该窗口并退出应用程序。用户不能在“积”对应的文本框中输入数据。

【属性设置】

各个对象、有关的属性名以及需要修改的属性值设计如下：

【程序】

Private Sub cmdMultiply_Click( )

txt3. Text =Trim(Str＄ ((3)) '加法运算获得和数

End Sub

Private Sub (4) (

txt1. Text=" " '空字符串赋值给文本框txt1的内容

txt2. Text=" " '空字符串赋值给文本框txt2的内容

txt3. Text=" " '空字符串赋值给文本框txt3的内容

End Sub

Private Sub cmdClose_Click( )

(5) '退出应用程序

End Sub

A.登录的过程与申请邮箱的过程完全一致

B.申请电子邮箱后就可以登录使用了

C.先启动浏览器，进入网站首页

D.在图示位置的“用户名”框中输入电子邮箱的用户名，在密码框中输入密码，在下拉列表中选择邮箱的类型后，单击登录按钮则进入电子邮箱界面

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

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

[说明]

设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别等基本信息。下面的应用程序利用数据控件(Data)实现了对这张表中记录的增加、删除和修改操作。其运行界面如下：

在开发过程中，数据控件Data1与员工数据表相连接，各文本框、“性别”组合列表框Combo1、“政治面貌”组合列表框Combo2都分别与数据表的相应字段绑定，界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate和CmdExit。

[Visual Basic代码]

Private Sub Form_Load( ) ' 加载窗体

Combo1. (1) "男"

Combo1. (1) "女"

Combo2. (1) "党员"

Combo2. (1) "团员"

Combo2. (1) "群众"

End Sub

Private Sub CmdAdd_Cliek( ) '增加记录

Datal. Recordset. AddNew

End Sub

Private Sub CmdDel_Click( ) '删除记录

Datal. Recordset. (2)

Datal. Recordset. MoveNext

End Sub

Private Sub CmdUpdate_Click( ) '修改记录

If Datal. ReadOnly = (3) And Datal. Recordset. Updatable Then

Datal. Recordset. Edit

Datal. Recordset. (4)

Else

MsgBox "数据表不允许修改!"

End If

End Sub

Private Sub CmdExit_Click ( ) '退出程序

Dim ret As Long

ret : MsgBox("真的要退出吗?", vbQuestion + vbYesNo, "退出" )

If (5) Then

Datal. Reeordset. Close

End

End ff

End Sub

（ 13 ）现有用户登录界面如下：

窗体中名为 username 的文本框用于输入用户名 ， 名为 pass 的文本框用于输入用户的密码 。 用户输入用户名和密码后 ， 单击 “ 登录 ” 名为 login 的按钮 ， 系统查找名为 “ 密码表 ” 的数据表 ， 如果密码表中有指定的用户名且密码正确，则系统根据用户的 “ 权限 ” 分别进入 “ 管理员窗体 ” 和 “ 用户窗体 ” ：如果用户名或密码输入错误，则给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。

单击 “ 登录 ” 按钮后相关的事件代码如下，请补充完整。

Private Sub login_Click( )

Dim str As String

Dim rs As New ADODB.Recordset

Dim fd As ADODB.Field

Set cn=CurrentProject.Connection

logname=Trim(Me!uscrname)

pass=Trim(Mc!pass)

If Len(Nz(logname))=0 Then

MsgBox " 请输入用户名 "

ElseIf Len(Nz(pass))=0 Then

MsgBox " 请输入密码 "

Else

str="select*from 密码表 where 用户名 =' " & logname &

" ' and 密码 =' " & pass & " ' "

rs.Open str, cn, adOpenDynamic, adLockOptimistic, adCmdText

If ___ 【 14 】 ________ Then

MsgBox " 没有这个用户名或密码输入错误，请重新输入 "

Me.username=""

Mc.pass=""

Else

Set _____ 【 15 】 ______ =rs.Fields(" 权限 ")

If fd=" 管理员 " Then

DoCmd.Close

DoCmd.OpenForm. " 管理员窗体 "

MsgBox " 欢迎您，管理员 "

Else

DoCmd.Close

DoCmd.OpenForm. " 用户窗体 "

MsgBox " 欢迎使用会员管理系统 "

End If

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 TIMEOUT2 ENDIF 则在横线处应填写的代码是

A．flag=-1

B．flag=0

C．flag=1

D．flag=2

阅读以下应用说明以及用Visual Basic开发过程中进行的属性设置和所编写的程序代码，将应填入(n)处。

[应用说明]

启动某应用程序运行的登录窗口如下：

其中的标签(Label1)“用户名(U)”对应文本框Username，标签(Label2)“密 码(P)”对应文本框Password。当用户在Username文本框中输入用户名“ali88”，在Password文本框中输入“zmkm”(显示的字符均为“*”)，并单击“确定”按钮时，就会弹出应用程序的主窗口frmAPP，而该登录窗口就会卸载。

如果用户名或密码输入错误，则会弹出报警信息框。当用户单击其中的“确定”按钮后，登录窗口中Password文本框的内容就会消失，光标停留在该框内，以便用户重新输入密码，必要时用户还可以再修改用户名，再次做登录尝试。本应用程序允许发生3次输入错误。在第3次输入错误后，就会立即退出该应用程序。

在弹出登录窗口后，当按组合键“Alt+U”时光标就会停留在Username文本框中：当按组合键“Alt+P”时光标就会停留在Password文本框中。当用户按Enter键时，就相当于单击“确定”按钮：当用户按Esc键时，就相当于单击“取消”按钮，立即退出该应用程序。

[属性设置]

在开发过程中，部分控件及属性设置如下：

[程序代码]

Private Sub cmdOK_Click()

(3) As Integer ' 静态变量times的说明

If (4) Then

Unload Me ' 卸载本登录窗口

(5) ' 弹出应用程序主窗口frmAPP

Else

MsgBox ("用户名或密码错! ")

times=times+1

Password.Text="" ' 清除密码框中的内容

Password.SetFocus ' 将光标定位于密码框

If times=3 Then End

End If

End Sub

Private Sub cmdCanee1_Click()

End

End Sub

一个系统的登录操作规格说明如下：

登录对话框有两个数据输入：用户名和密码，登录操作对两个输入数据进行检查，要求用户名中只能包含字母和数字(字母不区分大小写)，密码可以包含任何字符，用户名和密码都不能为空且长度不限。当用户名或密码为空时，则登录失败并提示对应的出错信息；当用户名不正确或用户名不存在的或密码错误时，则登录失败并提示以下三种相应的出错信息：用户名不合法(即包含有非字母、非数字字符)，或用户名不存在，或密码错误；当用户名和密码都正确时，则显示登录成功信息，完成登录。

假设正确的用户名是abcd123，密码是123456。

使用等价类方法为上述规格说明设计等价类表。

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

在相关系统登录界面，勾选“保持登录状态”后，下次登录的时候会是什么情况?( )

A.输入用户名和密码进行登录

B.输入用户名即可登录系统

C.下次登陆将直接进入系统

●试题五

阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入(n)处在字句写在答题纸的对应栏内。

【说明】

本应用程序的运行窗口如图2所示。

只要用户单击"闪烁"按钮，文字"欢迎光临"就会以0．3秒消失、0．3秒显示反复进行闪烁；单击"停止"按钮时，闪烁停止，恢复图示的初态。

在开发过程中，需要设置的属性如表1所示。

在开发过程中，需要编写的程序代码如下：

【程序】

Private Sub CmdF_Click()

Timer1． (3) =True

Labe1．Visible=False

End Sub

Private Sub Timer1_Timer()

(4) =not Label.Visible

End Sub

Private Sub CmdT_Click()

Timer1．Enabled= (5)

Labe1．Visible=true

End Sub