主题：关于强制变量声明

给下面的代码，增加强制变量声明，但是总是报错，错误信息：“ 缺少语句”

baidu上查询半天，不知道什么原因

试过Option Explicit on 和 Option Explicit

 

Option Explicit on
'Option Explicit

 

Sub APPLICATION_VBAStart()
 call Application.SetTimer(1,5*1000)
 call Application.SetTimer(2,10*1000)
End Sub

'定时器事件
Sub APPLICATION_Timer(ID)   

  MsgBox "当前时间2:"&now
 if id=2 then 
  MsgBox "当前时间:"&now
    end if

end sub

此主题相关图片如下：3.jpg