填空题

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


Option Compare Database
Dim flag As Boolean
Dim i As Integer
Private Sub Form_Load()
flag= (14)
MP TimerTnfPrvH]=1000
i=0
End Sub
Private Sub Form_Timer()
If flag=True And i＜20 Then
Me!ITime．Caption=20-i
i= (15)
Else
DoCmd．Close
End If
End Sub
Private Sub OK_Click()
’登录程序略
’如果用户名和密码输入正确，则falg=False

点击查看答案&解析