VB中定義陣列的起始下標預設從0開始。用Option Base 1語句將陣列預設起始下標設定為 1。

（1）不使用Optioan Base 語句，陣列起始下標預設為 0

Option Explicit

" 沒有用 Option Base 語句，陣列下標從0開始

" 因此，陣列 a 包含了 11 個元素

Dim a(10) As Integer

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 10

a(i) = i

Next

End Sub

（2）用Optioan Base 1 語句，陣列起始下標預設為 1

Option Explicit

Option Base 1

" 使用了 Option Base 1語句，陣列下標從1開始

" 因此，陣列 a 包含了 10 個元素

Dim a(10) As Integer

Private Sub Form_Load()

Dim i As Integer

For i = 1 To 10 "如果 i=0，則會出現“下標越界”錯誤！

a(i) = i

Next

End Sub

（3）在VB Option Base 語句中引數只能是 0 或 1，其他值是非法的。