此题为判断题(对,错)。
第1题:
实现简单的密码检测程序:用户输入正确的密码可以继续;密码输入错误,要求重新输入密码;输入三次错误密码则退出程序。假设正确密码为“1234”。
第2题:
TextBox控件可以用来制作文本框、密码框和多行文本框。可以用来显示文本,也可以用于输入文本。通过将 属性设置为true可以将文本框设置为只读。
第3题:
在程序运行期间,用户可以用文本框显示信息。文本框接收输入的内容的属性是 ()。
第4题:
试题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
第5题:
( 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
第6题:
有一个标题为“登录”的用户登录窗体,窗体上有两个标签,标题分别为“用户名:”和“密码:”,用于输入用户名的文本框名为“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
第7题:
现有用户登录界面如下:
窗体中名为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
第8题:
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会在输入的内容;超出文本框出宽度时自动换行。
A、MultiLinE
B、ScrollBars
C、Text
D、EnableD
第9题:
A、MultiLine
B、ScrollBars
C、 Text
D、Enabled