Question

EXCEL VBA中 给数组赋值的一个小问题

请看这两句代码:
dim ma(10) as integer
ma=array (37, 11, 3, 0, 1, 5, 31, 10, 35, 16）系统提示:不能给数组赋值。
我的意思就是想用个简单的办法给数组元素赋初值，不想笨拙地用10条赋值语句来挨个赋值，请问错在哪里？

Answer 1

VBA数组赋值方式：

1. 字符串数组的定义：

   Dim arr(1 to 3) as string

   如此定义，但是不能直接给数组赋值

2. 如果想直接给数组直接赋值，需要如下操作：

   Dim arr() as Variant

   arr=Array("a","b","c")

3. 赋值格式：

   例如，给变量a赋值一个数为12，则格式为：a = 12 [注意：变量（即a）只能是一字母，而赋予的值可以是一个式子，当它是式子时，a的值就是这个式子的结果。

Answer 2

很简单的，你只距成功差一点
Dim ma
ma = Array(37, 11, 3, 0, 1, 5, 31, 10, 35, 16)
MsgBox ma(0)
这样试试看！！！