现有一个登录窗体如下图所示。打开窗体后输入用户名和密码,登录操作要求在20秒内完成,如果在20秒内没有完成登录操作,则倒计时达到0秒时自动关闭本窗体,窗体的右上角是显示倒计时的标签labtime。事件代码如下,请填空。
![](https://img.ixiawen.com/uploadfile/2018/0410/20180410064835921.jpg)
Dim flag As Boolean
Dim i As Integer
Private Sub Form_Load()
flag=______
Me.TimerInterval=1000
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