上課時交的

Private Sub Form_Activate()
Dim i, j, k, m, n As Integer
Dim a(4, 4), x(4) As Double
n = 3
a(1, 1) = 1#: a(1, 2) = -1#: a(1, 3) = 3#: a(1, 4) = 2#
a(2, 1) = 2#: a(2, 2) = 0#: a(2, 3) = -3#: a(2, 4) = 1#
a(3, 1) = 1#: a(3, 2) = 1#: a(3, 3) = 1#: a(3, 4) = 0#
Print "n="; n
For i = 1 To n
For j = 1 To n + 1
Print Format(a(i, j), "0.0");
..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

謝謝你的分享囉 ~
或許有人不會這題, 你正好可以分享這答案 !

^^