itgle.com
有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“User-PassWOrd”，用于进行倒计时显示文本框名为“Tnum”窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击按钮确认。输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用!”信息。要求整个登录过程在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过
题目
有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“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
相似考题
更多“ 有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“User-PassWOrd”，用于进行倒计时显示”相关问题
-
第1题：
现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在 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
正确答案：
-
第2题：
试题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
正确答案：
试题12分析
题目设计了一个登陆窗体，要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过程。Private Sub Form_Timer()过程首先判断时间是否超过30秒，超过则发出警告，如果没有则显示还剩多少时间，然后second时间增1，所以第12空应天“second+1”，如果出现错误，要终止Timer事件继续发生，将Me.TimerInterval重新设置，第13空天False。
试题12答案
[12]second+1
[13]False -
第3题：
15、设计一个登录界面如图，现要实现登录按钮的单击事件，单击按钮时，读取用户输入的用户名，密码，并判断用户名密码是否为有效用户名“ szit”和密码“12345”。如果登录成功将用户名保存到 session 中，并跳转到主页 index.aspx 。请完成按钮单击事件。 注：用户名后的 textbox 控件ID 为txt_userName ，密码后的textbox 控件ID 为txt_pwd ， 写入session 对象中的变量名为 userName。
4.2.1【例一】-1.txt -
第4题：
（ 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
正确答案：
-
第5题：
设计一个登录界面如图，现要实现登录按钮的单击事件，单击按钮时，读取用户输入的用户名，密码，并判断用户名密码是否为有效用户名“ szit”和密码“12345”。如果登录成功将用户名保存到 session 中，并跳转到主页 index.aspx 。请完成按钮单击事件。 注：用户名后的 textbox 控件ID 为txt_userName ，密码后的textbox 控件ID 为txt_pwd ， 写入session 对象中的变量名为 userName。
错