主题:求助各位大侠，怎么用VB写个解三元一次方程的程序？

Private Sub Form_Load()

'高斯消元法

Form1.AutoRedraw = True

n = InputBox("n=") 'n是未知数

ReDim a(1 To n, 1 To n) As Double 'a(i,j)是系数

ReDim b(1 To n) As Double 'b(i)是右端项

For i = 1 To n

For j = 1 To n

a(i, j) = InputBox("a(" + Str(i) + "," + Str(j) + ")=")

Next j

b(i) = InputBox("b(" + Str(i) + ")=")

Next i '以上输入n,a(i,j),b(i)的值

For k = 1 To n - 1

For i = k + 1 To n

l = a(i, k) / a(k, k)

For j = k + 1 To n

a(i, j) = a(i, j) - l * a(k, j)

Next j

b(i) = b(i) - l * b(k)

Next i

Next k '以上是消元过程

b(n) = b(n) / a(n, n)

For i = n - 1 To 1 Step -1

Sum = 0

For j = i + 1 To n

Sum = Sum + a(i, j) * b(j)

Next j

b(i) = (b(i) - Sum) / a(i, i)

Next i '以上是回代过程

For i = 1 To n

Print ("x(" + Str(i) + ")=" + Str(b(i)));

Print

Next i '以上输出X(i)

End Sub

这个家伙很懒，什么也没留下......

建议先去把线性代数好好看看



你应该到数学论坛去问这个问题

这个家伙很懒，什么也没留下......