请教诸位一个vb问题，为什么下列代码运行时出现下标越界

显示全部楼层 · 2011-5-16 06:02:15

PrivateSubForm_Load()
constm=5,n=5
Dima()AsInteger
DimiAsInteger,jAsInteger
Fori=1To5
Forj=1To5
Printa(i,j);i;j
Nextj
Nexti

EndSub

千问 · 2011-5-16 06:02:15

1，定义的是动态数组，并没有给出下标。不如原来就定义为Dima(5，5)AsInteger
或定义为Dima()AsInteger然后再添加ReDima（m，n）
2,你并没有给a（i,j）赋值。比如可以在print之前添加a(i,j)=Int(Rnd*9010)一句。
3，为使输出的二维数组行列分明，应在Nextj的下方添加一行print。即：
Nextj
print
Nexti