請問一下VB2005的矩陣相減.有小地方不會懇請前輩幫忙一下

Module Module1

Sub Main()

Dim a(3, 3), b(3, 3), c(3, 3) As Integer

Dim i, j As Integer

a(1, 1) = 9

a(1, 2) = 8

a(1, 3) = 7

a(2, 1) = 6

a(2, 2) = 5

a(2, 3) = 4

a(3, 1) = 3

a(3, 2) = 2

a(3, 3) = 1

b(1, 1) = 1

b(1, 2) = 2

b(1, 3) = 3

b(2, 1) = 4

b(2, 2) = 5

b(2, 3) = 6

b(3, 1) = 7

b(3, 2) = 8

b(3, 3) = 9

For i = 1 To 3

For j = 1 To 3

c(i, j) = a(i, j) - b(i, j)

Next

Next

For i = 1 To 3

For j = 1 To 3

Next

Next

Console.WriteLine()

Console.ReadKey()

End Sub

End Module

==================================

前輩們你們好喔

他矩陣是A矩陣

9 8 7

6 5 4

3 2 1

要跟B矩陣

1 2 3

4 5 6

7 8 9

相減

變成答案的C矩陣

因為我不是資管本科系的無從問人...老師也比較忙

想請問我使用主控台(DOS)來寫

我是缺少了什麼語碼...因為在執行的時候都沒反應...

好像有計算但是沒有顯示再DOS上面

就全部黑黑的...

請問要怎麼打C矩陣的答案才會正常的顯示出來呢?

已更新項目:

雨中兄

可以了!!

原來是這樣阿>"<

非常謝謝你....

實在是一雨點醒我夢中人阿!!

1 個解答

評分
  • 1 0 年前
    最佳解答

    你程式都寫對了

    但為什麼畫面會沒有顯示結果呢

    原因是.你根本就沒有要他幫你顯示結果出來丫^^

    請在程式中加這段

    For i = 1 To 3

    For j = 1 To 3

    c(i, j) = a(i, j) - b(i, j)

    Next

    Next

    For i = 1 To 3

    For j = 1 To 3

    '=你少了這一段

    '=幫你顯示結果

    '=c(i, j).ToString.PadLeft(5)這個只是為了美觀.會保留5個空格.數字會靠左對齊

    '=你也可直接 Console.Write("{0}", c(i, j))

    Console.Write("{0}", c(i, j).ToString.PadLeft(5))

    Next

    '=這也是為了美觀.每次顯示一排後.會自動換行

    Console.WriteLine()

    Next

    測試過沒問題.參考看看吧

    參考資料: 自己
還有問題?馬上發問,尋求解答。