试题12有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别是“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“UserPassword”，用于进行倒计时显示的文本框名为“Tnum”，窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击此按钮确认。输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用！”信息，要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过程。请在程序空白处填入适当的语句，使程序完成指定的功能。Option ,Compare DatabaseDim Second As IntegerPrivate Sub Form_open(Cancel As Integer)Second=0End SubPrivate Sub Form_Timer()If Second 30 ThenMsgBox “请在30秒中登录”， vbcritical, “警告”Docmd.closeElseMe!Tnum=30-SecondEnd IfSecond =___【12】__End SubPrivate Sub OK_Click()If Me.UserName “123” Or Me.UserPassword “456” ThenMsgBox “错误！”+“您还有” 30-Second “秒”，vbcritical，“提示”ElseMe.TimerInterval=___【13】____ ‘终止Timer事件继续发生End IfEnd Sub
试题12
有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别是“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“UserPassword”，用于进行倒计时显示的文本框名为“Tnum”，窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击此按钮确认。
输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用！”信息，要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过程。
请在程序空白处填入适当的语句，使程序完成指定的功能。
Option ,Compare Database
Dim Second As Integer
Private Sub Form_open(Cancel As Integer)
Second=0
End Sub
Private Sub Form_Timer()
If Second > 30 Then
MsgBox “请在30秒中登录”， vbcritical, “警告”
Docmd.close
Else
Me!Tnum=30-Second
End If
Second =___【12】__
End Sub
Private Sub OK_Click()
If Me.UserName< > “123” Or Me.UserPassword < > “456” Then
MsgBox “错误！”+“您还有”& 30-Second & “秒”，vbcritical，“提示”
Else
Me.TimerInterval=___【13】____ ‘终止Timer事件继续发生
End If
End Sub
相关考题：
创建名称为Form1，标题名为“请输入密码”的窗体。在窗体上画一个标签，名称为 Label1，标题为“请输入您的密码”。在标签的下方画一个文本框，名称为“密码框”，其高度和宽度分别为2000和500。要求在输入密码时，文本框中显示“*”字符。以上这些设置必须在设计过程中进行，运行时的窗体如图1所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl．vbp，窗体文件名为ylcl.frm。
阅读以下应用说明以及用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) ThenUnload Me ' 卸载本登录窗口(5) ' 弹出应用程序主窗口frmAPPElseMsgBox ("用户名或密码错! ")times=times+1Password.Text="" ' 清除密码框中的内容Password.SetFocus ' 将光标定位于密码框If times=3 Then EndEnd IfEnd SubPrivate Sub cmdCanee1_Click()EndEnd Sub
在名为Form1的窗体上绘制一个名为Lab1、标题为空白、BorderStyle属性为1、Visible属性为False的标签，一个名为Text1、Text属性为空白的文本框和一个名为Cmd1、标题为“显示”的命令按钮。然后编写命令按钮的Click事件过程，使程序运行后，在文本框中输入严计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的窗体如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise31.vbp，窗体文件名为execise31.frm。
现有用户登录界面如下：窗体中名为usemame的文本框用于输入用户名：名为pass的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为login的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”；如果用户名或密码输入错误，则给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。单击“登录”按钮后相关的事件代码如下，请补充完整。Private Sub login_Click()Dim str As StringDim rs As New ADODB.RecordsetDim fd As ADODB．FieldSet cn=CurrentProject.Connectionlogname=Trim(Me!username)pass=Trim(Me!pass)If Len(Nz(logname)＝0 ThenMsgBox"请输入用户名"ElseIf Len(Nz(pass))＝0 ThenMsgBox"请输入密码"Elsestr="select*from 密码表 where 用户名＝" logname ”，and 密码＝"' pass ""，rs.Open str,cn，adOpenDynamic，adLockOptimistic，adCmdTextIf【 】ThenMsgBox"没有这个用户名或密码输入错误，请重新输入"Me．usemame＝" "Me．pass＝" "ElseSet【 】＝rs.Fields("权限")If fd="管理员"ThenDoCmd．CloseDoCmd．OpenForm"管理员窗体"MsgBox "欢迎您，管理员"ElseDoCmd．CloseDoCmd．OpenForm. "用户窗体"MsSBox "欢迎使用会员管理系统"End IfEnd IfEnd IfEnd Sub
一个系统的登录操作规格说明如下：登录对话框有两个数据输入：用户名和密码，登录操作对两个输入数据进行检查，要求用户名中只能包含字母和数字(字母不区分大小写)，密码可以包含任何字符，用户名和密码都不能为空且长度不限。当用户名或密码为空时，则登录失败并提示对应的出错信息；当用户名不正确或用户名不存在的或密码错误时，则登录失败并提示以下三种相应的出错信息：用户名不合法(即包含有非字母、非数字字符)，或用户名不存在，或密码错误；当用户名和密码都正确时，则显示登录成功信息，完成登录。假设正确的用户名是abcd123，密码是123456。使用等价类方法为上述规格说明设计等价类表。
有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“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 Second30 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,0B.second-30,0C.second+1，0D.second+13，0
用户登录界面通常需要用户输入用户名和密码，以下是系统反馈信息的几条规则，请按照要求回答问题如果用户名和密码正确无误，则显示登录成功只要用户名为空，就提示用户名不能为空，清空密码框;用户名不为空，而密码为空，则提示密码不能为空;若用户名不正确，则提示用户名错误，清空用户名框和密码框;若用户名正确，密码不正确，则提示密码错误，清空密码框;(1)根据上述规则，设计判定表(2)根据判定表设计测试用例(假设有一用户名/密码：abc/123456，不存在名为xyz的用户)
考生文件夹下存在一个数据库文件“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*****”之间的空行内补充一条语句，不允许增删和修改其他位置已存在的语句。
在名为Form1的窗体上绘制一个标签，名为Lab1，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为Text1，其宽、高分别为1500和300。设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外再把窗体的标题设置为“PassWord窗口”。运行时的窗体如下图所示。注意：以上设置都只能在属性窗口中进行设置；文件必须存放在考生文件夹中，工程文件名为execise89.vbp，窗体文件名为execise89.frm。
（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。
在名为Foma1的窗体上绘制一个标签(名称为Lab1，标题为Input)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Cmd1，标题为Display)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入Visual Basic，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如下图所示。注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise69.vbp，窗体文件名为exeCise69.frm。
现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在 20 秒内完成，如果在 20 秒内没有完成登录操作，则倒计时到达 0 秒时自动关闭登录窗体，窗体的右下角是显示倒计时的文本框 Itime 。事件代码如下，要求填空完成事件过程。Option Compare DatabaseDim flag As BooleanDIM i As IntegerPrivate Sub Form_Load()flag = 【 14 】Me.TimerInterval = 1000i = 0End SubPrivate Sub Form_Timer()If flag = True And i20 ThenMe!Time.Caption = 20-ii = 【 15 】ElseDoCmd.CloseEnd IfEnd SubPrivate Sub OK_Click()' 登录程序略' 如果用户名和密码输入正确，则： flag=FalseEnd Sub
（ 13 ）现有用户登录界面如下：窗体中名为 username 的文本框用于输入用户名 ， 名为 pass 的文本框用于输入用户的密码 。 用户输入用户名和密码后 ， 单击 “ 登录 ” 名为 login 的按钮 ， 系统查找名为 “ 密码表 ” 的数据表 ， 如果密码表中有指定的用户名且密码正确，则系统根据用户的 “ 权限 ” 分别进入 “ 管理员窗体 ” 和 “ 用户窗体 ” ：如果用户名或密码输入错误，则给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。单击 “ 登录 ” 按钮后相关的事件代码如下，请补充完整。Private Sub login_Click( )Dim str As StringDim rs As New ADODB.RecordsetDim fd As ADODB.FieldSet cn=CurrentProject.Connectionlogname=Trim(Me!uscrname)pass=Trim(Mc!pass)If Len(Nz(logname))=0 ThenMsgBox " 请输入用户名 "ElseIf Len(Nz(pass))=0 ThenMsgBox " 请输入密码 "Elsestr="select*from 密码表 where 用户名 =' " logname " ' and 密码 =' " pass " ' "rs.Open str, cn, adOpenDynamic, adLockOptimistic, adCmdTextIf ___ 【 14 】 ________ ThenMsgBox " 没有这个用户名或密码输入错误，请重新输入 "Me.username=""Mc.pass=""ElseSet _____ 【 15 】 ______ =rs.Fields(" 权限 ")If fd=" 管理员 " ThenDoCmd.CloseDoCmd.OpenForm. " 管理员窗体 "MsgBox " 欢迎您，管理员 "ElseDoCmd.CloseDoCmd.OpenForm. " 用户窗体 "MsgBox " 欢迎使用会员管理系统 "End IfEnd IfEnd IfEnd Sub
判断题网银登录用户名用于用户初次登录网银，用户首次登录网银后必须重新设定用户名和登录密码（）A对B错