Option Explicit ‘强制对模块内所有变量进行声明Option Compare Text ‘字符串不区分大小写Option Base 1 ‘指定数组的第一个下标为1(只能指定0或1)Sub s1()On Error GoTo ErrorHandler    Dim a(10) As String    a(0) = 1ErrorHandler:    Debug.Print "Error"End Sub