上课时交的

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 可以看到全部内容

谢谢你的分享啰 ~
或许有人不会这题, 你正好可以分享这答案 !

^^