急急急！VB编程求解线性方程组，用高斯消去法

Question

我自己写的源代码如下：
Dim a() As Double, b() As Double, nIs As Integer, nJs As Integer, p As Double, t As Double, d As Double
Private Sub Form_Click()
Dim n As Integer, m As Integer
m = 0
n = Val(InputBox("输入线性方程组的阶数n"))
'输入系数矩阵
ReDim a(n, n) As Double
Form1.Print "系数矩阵："
For v = 1 To n
For w = 1 To n
a(v, w) = Val(InputBox("a(" & v & "," & w & ")"))
m = m + 1
Print a(v, w);
If m Mod n = 0 Then Print
Next w
Next v
Print
Print "常数向量："
ReDim b(n) As Double
For v = 1 To n
b(n) = Val(InputBox(输入常数向量 & "b(" & v & ")"))
Print b(n);
Next v
'寻找最大值元素
For k = 1 To n
t = 0#
For i = k To n
For j = k To n
d = Abs(a(i, j))
If a(i, j) > t Then
t = a(i, j)
nIs = i
nJs = j
End If
Next j, i
'交换最大值元素行
If nIs <> k Then
For j = 1 To n
p = a(k, j)
a(k, j) = a(nIs, j)
a(nIs, j) = p
Next j
p = b(k)
b(k) = b(nIs)
b(nIs) = p
End If
'交换最大值元素列
If nJs <> k Then
For i = 1 To n
p = a(i, k)
a(i, k) = a(i, nJs)
a(i, nJs) = p
Next i
End If
'消元
For i = k + 1 To n
For j = 1 To n
a(i, j) = a(i, j) * a(k, k) / a(i, k) - a(k, j)
Next j, i
Next k
'回代
b(n) = b(n) / a(n, n)
For i = n - 1 To 1 Step -1
t = 0
For j = i + 1 To n
t = t + a(i, j) * b(j)
Next j
b(i) = (b(i) - t) / a(i, i)
Next i
Print "解得结果为："
For i = 1 To n
Print b(i);
Next i
End Sub

Private Sub Form_Load()
Form1.AutoRedraw = True
Print "单击窗体开始"
End Sub
非专业的，只是需要，哪位能尽快帮忙指出哪错啦？怎么该？
非常感谢！

Answer 1

读你的程序，十分艰难，既没有注释，变量名称也没有字面意义。
我把自己写的一个给你，要不要？