在VB中怎么给数组一次性赋多个值?

Question

dim MyArray(100) as byteMyArray()= {1,2,4,6}这样编译通不过...

Answer 1

可以这样为数组赋值：
Dim MyArray() As Variant
MyArray = Array(1, 2, 3, 5)如果，你一定要：
dim MyArray(100) as byte
这样定义数组的话，就只能多写一点代码，逐个敷值了

Answer 2

dim MyArray as variantMyArray= array(1,2,4,6)

Answer 3

dim MyArray(100) as byteMyArray()= {1,2,4,6}
-----------------------------------------当然不行了
dim MyArray(6) as byteMyArray()= {1,2,4,6,0,0}
这还差不多.
也许还可以写成
dim MyArray(6) as byteMyArray()= {1,2,4,6,,}
我都没试.
对于你上面的数组,有100个元素,又只给其中的几个赋值.还不如指定下标,挨个赋值.

Answer 4

Dim MyArray() As string
MyArray = split("1, 2, 3, 5",",")