试题12有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别是“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“UserPassword”，用于进行倒计时显示的文本框名为“Tnum”，窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击此按钮确认。输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用！”信息，要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动

现有用户登录界面如下：

窗体中名为usemame的文本框用于输入用户名：名为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!username)

pass=Trim(Me!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【 】Then

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

Me．usemame＝" "

Me．pass＝" "

Else

Set【 】＝rs.Fields("权限")

If fd="管理员"Then

DoCmd．Close

DoCmd．OpenForm"管理员窗体"

MsgBox "欢迎您，管理员"

Else

DoCmd．Close

DoCmd．OpenForm. "用户窗体"

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

End If

End If

End If

End Sub

有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“User-PassWOrd”，用于进行倒计时显示文本框名为“Tnum”窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击按钮确认。输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用!”信息。要求整个登录过程在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过程。 OptionCompare SatabaseDim Second As Integer PrivateSub Form_Open(Cancel As Integer) Second=0 End Sub PrivateSub Form. Timer（ ） If Second>30 Then MsgBox”请在30秒中登录”，vbCrcal，”警告” Doemd．Close Else Me!Tnum=30-Second倒计时 End If Second=__________ End Sub PrivateSub OK Click（ ） If Me．UsetName<>”123”or Me．UserPassword<>”456”Then MsgBox”错误!¨+”您还有”&30-Second&”秒”，vbCritical，”提示” Else Me．TimerInterval=__________ 终止Timer事件继续发生MsgBox” 欢迎使用!”vbInformation，”成功” DoCmd．Close End If End Sub 横线处应填写的内容是（ ）。

A.second-1,0

B.second-30,0

C.second+1，0

D.second+13，0

考生文件夹下存在一个数据库文件“samp3．mdb”，里面已经设计好窗体对象“fSys”。请在此基础上按照以下要求补充“fSys”窗体的设计：

(1)将窗体的边框样式设置为“对话框边框”，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮(导航按钮)、分隔线、控制框、关闭按钮、最大化按钮和最小化按钮。

(2)将窗体标题栏显示文本设置为“系统登录”。

(3)将窗体中“用户名称”(名称为“1User”)和“用户密码”(名称为“Pass”)两个标签上的文字颜色改为浅综色(浅综色代码为128)、字体粗细改为“加粗”。

(4)将窗体中名称为“&ass”的文本框控件的内容以密码形式显示。

(5)按照以下窗体功能，补充事件代码设计。

在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“cmdQuit”。在“tIJser”和“&ass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”，则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，欢迎进入系统!”，提示框中只有一个“确定”按钮，当单击“确定”按钮后，关闭该窗体：如果输入不正确，则提示框显示内容为“密码错误！”，同时清除“tUser”和“tPass”两个文本框中的内容，并将光标置于“tUser”文本框中。当单击窗体上的“退出”按钮后，关闭当前窗体。

注意：不允许修改窗体对象“fSys”中未涉及的控件、属性和任何VBA代码。

只允许在“*****Add*****”与“*****Ad*****”之间的空行内补充一条语句，不允许增删和修改其他位置已存在的语句。

（1）在名为Form1的窗体上绘制两个标签（名称分别为Label1和Label2，标题分别为“长”和“宽”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“输入”）。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。

（2）在名为Form1的窗体上绘制一个标签（名称为Label1，标题为“输入”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”）。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。

注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。

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

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

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

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

（ 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

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

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

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

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

在名为Form1的窗体上绘制一个标签，名为Lab1，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为Text1，其宽、高分别为1500和300。设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord窗口”。运行时的窗体如下图所示。

注意：

以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为execise89.vbp，窗体文件名为execise89.frm。

在名为Foma1的窗体上绘制一个标签(名称为Lab1，标题为Input)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Cmd1，标题为Display)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入Visual Basic，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如下图所示。

注意：

要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise69.vbp，窗体文件名为exeCise69.frm。

现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在 20 秒内完成，如果在 20 秒内没有完成登录操作，则倒计时到达 0 秒时自动关闭登录窗体，窗体的右下角是显示倒计时的文本框 Itime 。事件代码如下，要求填空完成事件过程。

Option Compare Database

Dim flag As Boolean

DIM i As Integer

Private Sub Form_Load()

flag = 【 14 】

Me.TimerInterval = 1000

i = 0

End Sub

Private Sub Form_Timer()

If flag = True And i<20 Then

Me!Time.Caption = 20-i

i = 【 15 】

Else

DoCmd.Close

End If

End Sub

Private Sub OK_Click()

' 登录程序略

' 如果用户名和密码输入正确，则： flag=False

End Sub