bal(Public):说明该数组变量为全局的。?一维数组? 格式: Dim 数组名([第一维下标下界 To]第一维下标上界) As 类型?二维数组? 格式:Dim 数组名([第一维下标下界To]第一维下标上界,? [第二维下标下界To]第二维下标上界) As 类型?示例: Dim a(1 to 3,1 to 4) , b(3,0 to 4) , c(4,5)Р3: 数组的定义Р定义格式: Dim 数组名(下标1 to 下标2) As 类型Р共有 4×5个元素?等价于: Dim abc(3, 4) As integerР注意: 在数组声明中的下标说明了数组的整体,即每维的大小;? 在程序其他地方出现的下标表示数组中的一个元素。? 两者写法形式相同,但意义不同。?例如: Dim a(10) As Integer ‘声明了a数组有11个元素? a(10)=100 ‘对a(10)这个数组元素赋值Р示例: Dim abc(0 to 3, 0 to 4) as integerРAbc(0,0)РAbc(0,1)РAbc(0,2)РAbc(0,3)РAbc(0,4)РAbc(1,0)РAbc(1,1)РAbc(1,2)РAbc(1,3)РAbc(1,4)РAbc(2,0)РAbc(2,1)РAbc(2,2)РAbc(2,3)РAbc(2,4)РAbc(3,0)РAbc(3,1)РAbc(3,2)РAbc(3,3)РAbc(3,4)Р多维数组的定义方法:?Dim 数组名([第一维下标下界 To]第一维下标上界,? [第二维下标下界To]第二维下标上界,? [第三维下标下界To]第三维下标上界,…) ? As 类型名称РVB提供一对确定下标上界、下界值的函数:?下界: LBound(数组[, 维])?上界: UBound(数组[, 维])?(其中“数组”是一个数组名,“维”是指要测试的维)