问题
填空题
现有一个登录窗体如下图所示。打开窗体后输入用户名和密码,登录操作要求在20秒内完成,如果在20秒内没有完成登录操作,则倒计时到达0秒时自动关闭登录窗体,窗体的右上角是显示倒计时的文本框Itime。事件代码如下,要求填空完成事件过程。
Option Compare Database
Dim flag As Boolean
Dim i As Integer
Private Sub Form_Load()
flag=______
Me.Timednterval=1000
i=0
End Sub
Private Sub Form_Timer()
If flag=True And i<20 Then
Me!Time.Caption=20-i
i=______
Else
DoCmd.Close
End If
End Sub
Private Sub ok_Click()
登录程序略
如果用户名和密码输入正确,则flag=False
End Sub
答案
参考答案:True i+1
解析: 当窗体刚刚运行时,应该允许倒计时,而当flag为True的时候才会倒计时,所以第一个空白处应填“True”;在计时器事件中,i<20时,标签的标题应该显示倒计时的秒数,此时i的值每次应该自动增加1,所以第二个空白处应填“i+1”。