有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“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
有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“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
相关考题：
创建名称为Form1，标题名为“请输入密码”的窗体。在窗体上画一个标签，名称为 Label1，标题为“请输入您的密码”。在标签的下方画一个文本框，名称为“密码框”，其高度和宽度分别为2000和500。要求在输入密码时，文本框中显示“*”字符。以上这些设置必须在设计过程中进行，运行时的窗体如图1所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl．vbp，窗体文件名为ylcl.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
考生文件夹下存在一个数据库文件“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。
现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在 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
试题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
设计一个登录界面如图，现要实现登录按钮的单击事件，单击按钮时，读取用户输入的用户名，密码，并判断用户名密码是否为有效用户名“ szit”和密码“12345”。如果登录成功将用户名保存到 session 中，并跳转到主页 index.aspx 。请完成按钮单击事件。 注：用户名后的 textbox 控件ID 为txt_userName ，密码后的textbox 控件ID 为txt_pwd ， 写入session 对象中的变量名为 userName。
15、设计一个登录界面如图，现要实现登录按钮的单击事件，单击按钮时，读取用户输入的用户名，密码，并判断用户名密码是否为有效用户名“ szit”和密码“12345”。如果登录成功将用户名保存到 session 中，并跳转到主页 index.aspx 。请完成按钮单击事件。 注：用户名后的 textbox 控件ID 为txt_userName ，密码后的textbox 控件ID 为txt_pwd ， 写入session 对象中的变量名为 userName。