Question

vb 数组定义与赋值

我想定义一个数组，里面共含有五个元素，然后给其赋值
long cnt1(5) as long
cnt1=array(1600,0,0,0,0)
系统报错了，请问如何修改。

Answer 1

Dim cnt1 as Variant
cnt1=array(1600,0,0,0,0)
================================
Array 函数

返回一个包含数组的 Variant。

语法

Array(arglist)

所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。

说明

用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。

Dim A As Variant
A = Array(10,20,30)
B = A(2)

使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库（例如 VBA.Array )名称限定。如果是由类型库名称限定，则 Array 不受 Option Base 的影响。

注意 没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。

Answer 2

Dim A As Variant
A = Array(10,20,30)
B = A(2)

array函数返回的是变体型 你要用该函数是不能给数组变量赋值

Answer 3

Dim cnt1
cnt1 = Array(1600, 0, 0, 0, 0)
或者
dim cnt1(1 to 5) as long
cnt1(1)=1600