※ 引述《a886759 (我的世界很美麗)》之銘言：
: 宣告一個二維陣列後，例如；x(2,3)
: 用for next做回圈
Private Sub Command1_Click()
Dim x(2, 3)
For i = 0 To 2
Sum = 0
For j = 0 To 3
a = "請依序輸入第" & i + 1 &" 項第" & j + 1 & "個的數值"
x(i, j) = Val(InputBox(a))
b = x(i, j) / x(i, " j" - 1)
Print "第"; i + 1; "="; b
Next
Next i
End Sub
以上在i=0時 j=1、2、3時要求依序輸入3個數值，設為400、200、50
即x(0,0)=400 x(0,1)=200 x(0,2)=50
我希望可以計算200/400、50/200
然後print出來
:i=1 i=2時
以此類推
: 可是會失敗
: 拜託各位了> <
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.229.112.168