189 8069 5689
Option Base 语句 在模块级别中使用，用来声明数组下标的缺省下界。语法Option Base {0 | 1}说明由于下界的缺省设置是 0，因此无需使用 Option Base 语句。如果使用该语句，则必须写在模块的所有过程之前。一个模块中只能出现一次 Option Base，且必须位于带维数的数组声明之前。注意 Dim、Private、Public、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标。不过，如果没有使用 To 子句显式地指定下界，则可以使用 Option Base 将缺省下界设为 1。使用 Array 函数或 ParamArray 关键字创建的数组的下界为 0；Option Base 对 Array 或 ParamArray 不起作用。Option Base 语句只影响位于包含该语句的模块中的数组下界。
创新互联公司长期为1000多家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为长兴企业提供专业的网站设计、成都做网站，长兴网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。
数组的上标和下标用来说明数组的范围的，例如dim a(1 to 10)，那么1就是这个数组的上标，10是这个数的的下标，表明数组a共有10个元素，也可是叫做上界和下界。
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，其他值是非法的。
数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，在VB．NET中，为了和其他语言更加易于协同操作，数组的下界均设定为0，不允许声明一个下界为1的数组，因此Option Base语句不再被VB．NET支持。
只能做成一维数组，不过可以在此基础上做成二维的。比如有80个元素，先用Array把这80个数放到数组A中，再用下面的方法转换成二维数组:
for
i=1
to
8
for
j=1
to
10
B(i,j)=A((i-1)*8+j-1)
next
j
next
i
两种办法：
1、Dim arr(1 to 100) as string 定义时从1开始数组就从1开始
2、在代码的最上面加上 Option Base 1