close
VB.net -- 數值代入陣列問題
目前我有一個程式求出的向量必須去代入表中的數字,假設有一個表組合~~~0~~~~~~~1~~~~~~2~~~~~~3~~~~~~4~~~~~~5~~~~~~6D1(1)~~0.002~~~0.003~~~0.005~~~0.010~~~0.130~~~0.650~~~0.20D1(0)~~0.230~~~0.600~~~0.100~~~0.055~~~0.012~~~0.003~~~0.0D2(1)~~0.001~~~0.002~~~0.010~~~0.020~~~0.100~~~0.700~~~0.167D2(0)~~0.200~~~0.670~~~0.110~~~0.012~~~0.007~~~0....顯示更多目前我有一個程式求出的向量必須去代入表中的數字,假設有一個表組合~~~0~~~~~~~1~~~~~~2~~~~~~3~~~~~~4~~~~~~5~~~~~~6D1(1)~~0.002~~~0.003~~~0.005~~~0.010~~~0.130~~~0.650~~~0.20D1(0)~~0.230~~~0.600~~~0.100~~~0.055~~~0.012~~~0.003~~~0.0D2(1)~~0.001~~~0.002~~~0.010~~~0.020~~~0.100~~~0.700~~~0.167D2(0)~~0.200~~~0.670~~~0.110~~~0.012~~~0.007~~~0.001~~~0.0D3(1)~~0.002~~~0.003~~~0.010~~~0.010~~~0.100~~~0.600~~~0.275D3(0)~~0.300~~~0.550~~~0.125~~~0.012~~~0.010~~~0.003~~~0.0如果需要D1(1)的5跟6相加也就是0.65跟0.20相加或是D2(0)的0加到6要怎麼用VB.net來寫呢??之前好像聽老師說過可以用ArrayList陣列的方式寫進陣列中讓執行的時候可以去陣列中抓數字出來加,不過我不知道怎麼寫~~可以請各位VB高手教教我嗎??因為知識家有字數的限制我沒有辦法把我目前的程式碼PO出來~~所以也請各位高手有任何問題想要我補充的都跟我說喔~~非常需要大家的幫忙~~謝謝.
'先宣告陣列，如果你的陣列更大就宣告更大 Dim D(3, 1, 6) As Single Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load D(1, 1, 0) = 0.002 D(1, 1, 1) = 0.003 D(1, 1, 2) = 0.005 D(1, 1, 3) = 0.01 D(1, 1, 4) = 0.13 D(1, 1, 5) = 0.65 D(1, 1, 6) = 0.2 D(1, 0, 0) = 0.23 D(1, 0, 1) = 0.6 D(1, 0, 2) = 0.1 D(1, 0, 3) = 0.055 D(1, 0, 4) = 0.012 D(1, 0, 5) = 0.003 D(1, 0, 6) = 0.0 '後面的自己補吧~~ End Sub 'D1(1)的5跟6相加就是D(1, 1, 5) + D(1, 1, 6) 'D2(0)的0加到6可以用D(2,0,0)+...+D(2,0,6) '或是用迴圈跑 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(D(1, 1, 5) + D(1, 1, 6)) End Sub
直接把數值丟到陣列裡面,再由陣列抓出來加,應該就ok了,不需要用到arraylist.
以上文章來自奇摩知識家，如有侵犯請留言告知
https://tw.answers.yahoo.com/question/index?qid=20100526000015KK01111