问题
填空题
现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在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
答案
参考答案：i+1
解析： 本题考查的是VBA编程基础、Form_Timer事件。Private Sub Form_Timer()事件用于完成20s倒计时功能，由Me.TimerInterval=1000可知Private Sub Forrn_Timer()事件每1000毫秒即每秒被自动执行一次。在此事件中，当满足“flag=True”，且满足“i＜20”条件时，则执行Me!ITime．Caption=20-i倒计时剩余时间显示语句，所以：flag标记应被初始化为true，故第[14]空填True。变量i用于记录用户打开登录操作窗体后已经进行的秒数，所以第[15]空应填i+1。