如何给一个二维数组赋初值
编号：QA004343
建立日期: 2001年8月5日 最后修改日期：2001年8月5日
所属类别：
张:
操作系统: win2000
编程工具: vb
问题:
我在用VB编一个通讯程序，程序中需要查一些表格，于是我想把表格的值付给一个固定的二维数组，在程序里根据二维数组的标号来获得其值。我在公共模块中先定义一个公共数组如：pubic
carray(15,15) as variant,或者，dim carray(15,15) as
variant,然后在主窗口form_load时给它赋初值，array=[1,2,.......,5],结果不行，程序通不过。又试过用array()函数给他赋初值，但定义时为动态数组dim
carray(),form_load时carray=array(1,2,......,5),随后想用redim
carray(15,15),还是不行。请教，如何给一个二位数组赋初值？
回答:
在给二维数组赋初值时,不能象C语言里那样,而必须用循环。
For i = Lbound(carray,1) to Ubound(carray,1)
For j = Lbound(carray,2) to Ubound(carray,2)
carray(i,j) = ??
Next j
Next i
此问题由贺兴伟回答。
| |
|
|
| |
|
|
