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