VB中怎样实现一个二维数组的手动输入！

注意：此数组的上界不确定（n）请各位高手不吝赐教！

2025-03-05 00:56:11

推荐回答（3个）

回答1：

Private Sub Command1_Click()
M% = InputBox("第一维上界M=")
N% = InputBox("第二维上界N=")
ReDim x(M, N) as Integer
For i = 0 To M - 1
For j = 0 To N - 1
x(i, j) = InputBox("x(" & i & "," & j & ")=")
Next j
Next i
End Sub
标准答案

回答2：

用input box 比如输入2*2 维的话可以这样做：
for i=1 to 4
a=intputbox（请输入数）
for c=1 to 2
if i mod 2 =0 then b=b+1 '用于控制行数
a(b,c)= a
next c
next i

回答3：

n=9

dim d()
redim d(n,n)