将数组的缺省下边界定义为 0 或 1。
Option Base { 0 | 1}
option Base 1
Sub ExampleOptionBase
Dim sVar(20) As String
msgbox LBound(sVar() )
end sub