2. 计算机
  3. 现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20秒内完成，如果在20秒内没有完成登录操作，则倒计时达到0秒时自动关闭本窗体，窗体的右上角是显示倒计时的标签labtime。事件代码如下，请填空。 Dim flag As Boole

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

admin2013-01-07  34
问题 现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20秒内完成，如果在20秒内没有完成登录操作，则倒计时达到0秒时自动关闭本窗体，窗体的右上角是显示倒计时的标签labtime。事件代码如下，请填空。

Dim flag As Boolean
Dim i As Integer
Private Sub Form_Load()
flag=_________
Me．TimerInterval=1 000
i=0
End Sub
Private Sub Form Timer()
If flag=True And i＜20 Then
Me!labtime．Caption=20-i
i=________
Else
DoCmd．Close
End If
End Sub
Private Sub OK Click()
登录程序略
如果用户名和密码输入正确，则：falg=False
End Sub
选项
答案True i+1
解析 在窗体属性中有一个计时器时间间隔属性，该属性默认为O表示计时器未启用。一旦将其设置为非O值，将会启用计时器，每隔指定的时间间隔自动执行计时器事件。窗体的计时器事件的过程名为Form—Timer()，该事件在本题中用于完成20秒倒计时功能，由于TimerInterval属性值为1000，所以Form—Tlmer()事件每1000毫秒即每秒被自动执行一次。在此事件中，计时器工作的条件是“flag—True”且“i＜20”，所以flag标记应初始化为true，故第一空应为True。变量1用于记录用户打开登录操作窗体后已经进行的，所以在每隔一秒后i的值应该加1，故本题第二空应填“i+1”。
转载请注明原文地址:https://kaotiyun.com/show/b3up777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)