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
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款