VB中定义数组的起始下标默认从0开始。用Option Base 1语句将数组默认起始下标设置为 1。
创新互联建站专注为客户提供全方位的互联网综合服务，包含不限于网站设计、成都做网站、向阳网络推广、微信小程序、向阳网络营销、向阳企业策划、向阳品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联建站为所有大学生创业者提供向阳建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com
（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，其他值是非法的。
2种方法
1. 直接赋值，此法只适合和小数组
Dim myArray() as Integer ={1,2,3,4,5}
或Dim myArray(5)as integer
myArray(0)=1
myArray(1)=2
myArray(2)=3
myArray(3)=3
myArray(4)=5
myArray(5)=6
2.最常用的for next循环赋值
Dim myArray()as integer
For intCount as Integer= 0 to 5
myArray(intCount)=你要赋值的东西
Next
如果你要每个都不同那就这样：
Dim myArray()as integer
Dim FuZhi as integer
For Fuzhi as 0 to 5
For intCount as Integer= 0 to 5
myArray(intCount)=fuzhi
Next intCount
Next fuzhi
Dim n, i, j As Integer
'这里你用的是默认的值,所以N是0,这样,下面的那句话就成了
Dim a(n - 1, n - 1) As Long
'Dim a(0-1,0-1) As Long 也就是 Dim a(-1,-1) As Long
以后调用的时候肯定会出错
