数组的声明和赋值-VisualBasic案例化程序设计

(1)声明数组的格式为Dim数组名(〈维数定义〉)[As〈类型〉]。

<维数定义>指定数组的维数以及各维的范围:

[〈下标下界1〉To]〈下标上界1〉[,[〈下标下界2〉To]〈下标上界2〉]…

一维数组声明举例。

Dim Sum(10)As Long　　　　　　　　'下标号从0～10,共11个元素

Dim Ary(1 to 20)As Integer　　　'下标号从1～20,共20个元素

一般默认数组的下标界是0,如果在代码文件的开头加上语句“Option Base 1”,则缺省下界为1。

设定下界的方法如下。

Option Base 1　　　　　　　　　'设定下界为1

Dim Data(10)As Single　　　　'下标号从1～10

对于一维数组平常我们接触得比较多,比较容易理解,这儿值得一提的是在实际应用中,如矩阵运算、成绩表处理等,不仅要指出数据元素的行位置,而且还要指出数据元素的列位置,需要有两个下标的二维数组甚至三维数组来描述。

如声明:Dim S(1 to 3,1 to 4)As Integer

则定义了一个3行4列的二维数组S,数组元素有:

S(1,1)　S(1,2)　S(1,3)　S(1,4)(www.xing528.com)

S(2,1)　S(2,2)　S(2,3)　S(2,4)

S(3,1)　S(3,2)　S(3,3)　S(3,4)

(2)使用Array函数可以为一维数组元素赋值。

Dim D()As Variant　　　　'定义数组名(变体类型)

D=Array(1,2,3,4)

执行结果:1→D(0),2→D(1),3→D(2),4→D(3)

(3)数组元素的常见赋值方式如下。

一个一个赋值,如:score(1)=90　　name(1)="张三"

所有元素取相同值,也要一个一个赋值,可以用循环:

For i=1 to 100

score(i)=85

next i