在vbs中如何对数组赋值直接赋值？

你定义的是一个二维数组，在VB中最多可以定义六十维。你定义了16个变量数组（VB数组是从0开始的）方法如下：

Dim a(3,3) As Integer
a(0,0) = 12
a(0,1) = 23
a(0,2) = 12
a(0,3) = 77
a(1,0) = 47
a(1,1) = 55
a(1,2) = 12
a(1,3) = 23
a(2,0) = 12
a(2,1) = 23
a(2,2) = 12
a(2,3) = 23
a(3,0) = 12
a(3,1) = 23
a(3,2) = 12
a(3,3) = 23

VB好象没有此一次全部赋值的功能，至少我没见过。

可以的..
如果是对1维数组就很容易,可以使用array或是split..
比如:
a=array("a","b","c")
或是
a=split("a,b,c",",")

都可以实现让数组a赋值.. 其中
a(0)="a"
a(1)="b"
a(2)="c"

如果是2维数组,或是多维的,就要使用变通的方法,比如:
Private Sub Command1_Click()
Dim a%(2, 2), b$, i, j%
b = "12 23 12 77 47 55 11 22 22"
For Each i In a
i = Split(b)(j)
j = j + 1
Next
End Sub

vb 数组没有一次赋值
但是可以把数组赋值给数组