Question

VB不能给数组赋值

Private Sub CommandButton1_Click()
Dim q(1 To 3, 1 To 3), k(1 To 9) As Variant
k = Array(4, 2, 2, 2, 8, 4, 2, 4, 4)
For i = 1 To 3
For j = 1 To 3
q(i, j) = k(3 * (i - 1) + j)
Next j
Next i
MsgBox q(1, 3)
End Sub
哪里错了？

Answer 1

“不能给数组赋值”这个错误是由于想要改变固定数组的大小引起的，有些函数、方法的返回值是一个数组，它们会自动设置用于接受数据的数组的大小，如果你用固定数组去接受就会产生这个错误。
Array 函数返回一个包含数组的 Variant，所以你定义K的时候不能指定大小，要写成k As Variant或者k() As Variant。
另外，149005501 表述有误，VB不限制数组下标从哪里开始。使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定，在form模块开头加入Option Base 1循环里的代码就不用改，不加的话要写成k(3 * (i - 1) + j-1) 。

Answer 2

两个问题，
一个是数组是从0开始的，所以你从1开始就错了。
第二个是Array 函数，这个是返回一个包含数组的 Variant。
语法 Array(arglist)
所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。
你又要指定内容，又要指定数组长度，肯定出错。
再一个，这个改了下面的q(i, j) = k(3 * (i - 1) + j)也要改，不能超过数组，否则要超出下标的，正确如下：

Private Sub CommandButton1_Click()
Dim q(0 To 2, 0 To 2), k As Variant
k = Array(4, 2, 2, 2, 8, 4, 2, 4, 4)
For i = 0 To 2
For j = 0 To 2
q(i, j) = k(3 * i + j)
Next j
Next i
MsgBox q(0, 2)
End Sub

Answer 3

Private Sub CommandButton1_Click()
Dim q(1 To 3, 1 To 3) As Integer, k As Variant
k = Array(4, 2, 2, 2, 8, 4, 2, 4, 4)
For i = 1 To 3
For j = 1 To 3
q(i, j) = k(3 * (i - 1) + j - 1)
Next j
Next i
MsgBox q(1, 3)
End Sub