Question

请你在帮忙看看：按键精灵的一个二维数组赋值程式。。。。。。

ZDS = inputbox("请输入总栋数")
Dim JS()
Dim CS()
Redim JS(0)
ReDim CS(0)
m = 1
n = 1
If ZDS > "" Then
ZDS = int(ZDS)
i = 1
h = 1
For ZDS
k = int(h)
If k > g Then
Redim Preserve CS(k)
Else
End If
g = int(h)
CS(g) = inputbox("请输入" & m & "栋总层数")
j = 1
For CS(g)
o = int(i & j)
If o > p Then
Redim Preserve JS(o)
Else
End If
p = int(i & j)
MessageBox "p="& p
JS(p) = int(inputbox("请输入" & m & "栋" & n & "层间数"))
MessageBox "js="& JS(p)
j = j + 1
n = n + 1
Next
n = 1
i = i + 1
m = m + 1
h = h + 1

Next
End If
// 调用输入的值
i = 1
h = 1
For ZDS
k = int(h)
If k > g Then
Redim Preserve CS(k)
Else
End If
g = int(h)
j = 1
For CS(g)
o = int(i & j)
If o > p Then
Redim Preserve JS(o)
Else
End If
p = int(i & j)
MessageBox "p=" & p
kk=int(JS(p))
MessageBox "js="& kk //出现问题：在运行第3次时，KK的值变为了0
j = j + 1
Next
n = 1
i = i + 1
m = m + 1
h = h + 1
Next
下半部是我根据你写的改的，我的目的是要把到得到的数值按照输入时的顺序一个个调用出来，以便进行另一个程序。如1栋1层进行JS(11)次操作。1栋2层进行JS(12)次操作。出问题的地方已写在上面了。

Answer 1

上次有个地方我写错了下面是对的

p = int(i & j)'搜索
If p > UBound(JS) Then
Redim Preserve JS(p)
End If
MessageBox "p="& p
JS(p) = int(inputbox("请输入" & m & "栋" & n & "层间数"))
另外
如果你这断代码放到子程序时注意
sub a
Dim JS()
Dim CS()
Redim JS(0)
ReDim CS(0)
‘你的代码
end sub
上面不对
下面是正确的，错误原因我也不明白
sub a
Redim JS(0)
ReDim CS(0)
‘你的代码
end sub