Question

vb 数组维数错误，求vb大神帮助！

Dim a%(1 To 4), b%(1 To 4), c%(1 To 4)
Private Sub Form_Load()
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 41 + 35)
b(i, j) = Int(Rnd * 35 + 101)
Next j
Next i
End Sub
提示维数错误，黄色标示在Private Sub Form_Load()
请问这是怎么回事儿呀？
还有，这个题目是利用随机数生成两个矩阵AB
要求：
(1)将AB两个矩阵相加结果存入C矩阵中
(2)将A矩阵转置
(3)统计C矩阵中最大值和下标
（4）以下三角形式显示A矩阵、上三角形式限制B矩阵
。。。还有几条，是每一个事件都写一个private sub form_click吗
好像不太对，说二义性名称，应该怎么写？

Answer 1

a%(1 To 4)这是二维数组吗？在我印象里二维数组要这样定义a(1to 4,1 to 4) as integer.
你那个是一唯数组的定义。

追问

恩恩，谢谢，下面的问题呢><
还有

只要有黄色标示就是有错吗？
改了以后调试还是有黄色标示

追答

下面的问题你自己不是已经解决了吗？变通下，例：相加
For i = 1 To 4
For j = 1 To 4
　　c(i,j)=a(i, j)+b(i,j)
Next j
Next i

Answer 2

定义数组时，你定义的是一维数组，而程序中使用的是二维数组，当然不行

追问

Dim, b%(1 To 4, 1 To 4), c%(1 To 4, 1 To 4)
这样子对吗？
但是光标在上面的时候总是显示a%(0 To 4, 0 To 4)

追答

Dim a%(1 To 4, 1 To 4), b%(1 To 4, 1 To 4), c%(1 To 4, 1 To 4)
这一行定义改成如上，就不会有问题了吧

追问

嗯，不报错了，但是只要有黄色标示就是有错吗？
改了以后调试还是有黄色标示

追答

有黄色的，说明代码有问题，需要调试，运行中出错或死循环，可能用Ctrl+break强行中断，中断后也有黄色提示，你可以按F8再一条一条调试，可以看到问题出在什么地方。希望对你有帮助。