Re: [VB6 ] 關於二維陣列的問題

看板Visual_Basic作者 (albb)時間16年前 (2007/11/29 23:11), 編輯推噓1(1推 0噓 0→)
留言1則, 1人參與, 最新討論串4/4 (看更多)
※ 引述《a886759 (我的世界很美麗)》之銘言： : ※ 引述《a886759 (我的世界很美麗)》之銘言： : : 宣告一個二維陣列後，例如；x(2,3) : : 用for next做回圈 : Private Sub Command1_Click() : Dim x(2, 3) : For i = 0 To 2 : 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 =================================== 改成 =================================== If j > 0 then b = x(i, j) / x(i,j - 1) Print "第" & (i + 1) & "=" & b End IF ================================== : 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: 59.112.37.69
推
12/01 00:51, , 1F
感謝 我會了^^
12/01 00:51, 1F
‣ 更多 albb0920 的文章
文章代碼(AID): #17JjQBay (Visual_Basic)
‣ 更多 albb0920 的文章
文章代碼(AID): #17JjQBay (Visual_Basic)