Question

VB里ARRAY函数能给二维数组赋值吗

菜鸟求救啊！如题。我需要做个表。不知道怎么弄。大概意思是选中列表框里的名字，则把名字对应的“年龄”“工龄”“基本工资”这三个值赋给三个变量进行计算，做二维数组合适吗？能否用ARRAY函数？
那个好像不是我想问的……我的意思是能否将每行的第一列表达为姓名，同行的第二列表达为年龄这种方式？

Answer 1

可以，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

可以用自定义类型：
Private Type abc
name As String
age As Integer
End Type

然后在程序中定义：
Dim a(100) As abc

赋值：
a(0).name = "xyz"
a(0).age = 28

调用：
MsgBox a(0).name

Answer 3

可以把数组按名字在列表框中的顺序进行赋值，array可以直接把所有数据整体赋值给数组，而且最好把上述的“年龄”“工龄”“基本工资”等信息全都使用二维数组保存，然后根据列表框选定的行号，list1.listindex，作为下标直接引用数组的相应内容即可。
你如果用excel表格来做，也可以用vba来实现上述过程的。

Answer 4

可以试一试以下的代码， 在 VB 内动态定义一个二维数据
关键字 [], {}, ; （ 不用 函数 array() ）
例
dim arr() as variant
arr = [{1, "陈达文" ; 2, "杨帆" ; 3, "李宗伟" }]
arr 被定义为一个二维数据，有 3 行数据
1 陈达文
2 杨帆
3 李宗伟
其他读取 arr 内数值的例子
? arr(1,2) 得出 陈达文
? arr(3,2) 得出 李宗伟
？ubound(arr,1) 得出 2 ' 二维数据
？ ubound(arr,2） 得出 3 ' 3 行数据