Question

按键精灵的一个二维数组赋值程式，因为二维数组的下标不确定，这个程式错误，请高手帮助改改

ZDS = inputbox("请输入总栋数！")
Dim JS(i,j)
m = 1
n = 1
For i = 1 To ZDS
CS = inputbox("请输入" & m & "栋总层数！")
For j = 1 To CS
JS(i,j) =inputbox("请输入"&m &"栋"&n &"层间数")
j = j + 1
n = n + 1
Next
i = i + 1
m = m + 1
Next

我想要的结果是：JS（i,j)做为一个二维数组变量存储用户输入的数据，但是i,j 是不确定的数。例如：1栋1层间数j(1,1)=用户输入的数5；1栋2层间数j(1,2)=用户输入的数4；。。。。。2栋1层间数J(2,1)=用户输入的数10.

Answer 1

ZDS = inputbox("请输入总栋数！")
Dim JS()
ReDim JS(0)
m = 1
n = 1
If ZDS > "" Then
ZDS = int(ZDS)
i = 1
For ZDS
CS = inputbox("请输入" & m & "栋总层数！")
cs = int(cs)
j = 1
每栋层数 = "第" & m & "栋楼共" & CS & "层,"
For CS
o=int(i & j)
If o > p Then
Redim Preserve JS(o)
Else
End If
p=int(i & j)
JS(p) = int(inputbox("请输入" & m & "栋" & n & "层间数"))
每栋间数 = 每栋间数 & n & "层" & js(p) & "间、 "
j = j + 1
n = n + 1
Next
数据 = 数据 & 每栋层数 & 每栋间数
每栋间数=""
n=1
i = i + 1
m = m + 1
Next
数据="共"&ZDS&"栋 "&数据
Else
数据="答题提高签到天数，这是第3次回答，非常感谢你发同样的问题"
End If
MessageBox 数据

追问

每一次得到的数据能不能单独存储，以便后面的程序调用。

追答

已经是单独存了不过是存在数组里了。你仔细研究一下吧。提醒你一下你这样JS(i,j) 是不对的，括号内必须是数字，如i=1 j=1 i,j不会等于11. ij=int(i & j)给予赋值后就可以JS(i,j)