请问,解一个n元一次方程组，一定有解，如何求解？急

Question

[A]X=B
[A]是n维矩阵，X是（x1,x2,x3,x4……xn）的转置（x1,x2,x3,x4……xn）'，B是（b1,b2,b3,b4……bn）的转置（b1,b2,b3,b4……bn）'，已知[A]和B，求解X，请问：用VB编一个这样的求解程序，如何编？有些着急！

Answer 1

建议你用MATLAB，一下就算出来了

Answer 2

matlab没用过，不会编啊，用matlab可以用vb调用吗？能说清楚些吗？有没有编好的程序？

Answer 3

不知道楼主想干什么，matlab,mathcad,Mathematica等数学软件解决这种问题非常方便的。别说是线性方程组，就是微分方程组也没问题。而且支持编程哦！

Answer 4

VB也可以做到,只是比较麻烦,matlab之类固然能得到答案或编程,但不是VB的东西,我认为大家还试着用VB做一下,还是有好处的

Answer 5

vb好象调用不了matlab的结果啊，怎么编啊？知道的快提供的代码~~~

Answer 6

Option Explicit
'解N元一次方程式
'Arr 中保存的是N元一次方程的矩阵
'如:
' 3X+4Y+5Z=26
' 6X+7Y+9Z=47
' 4X+8Y+6Z=38
'则 Arr 的数据是:
'Arr(1 to 3 ,1 to 4)
'Arr(1,1)=3  Arr(1,2)=4  Arr(1,3)=5 Arr(1,4)=26
'Arr(2,1)=6  Arr(2,2)=7  Arr(2,3)=9 Arr(2,4)=47
'Arr(3,1)=4  Arr(3,2)=8  Arr(3,3)=6 Arr(3,4)=38
Private Function Formulasolu(ByVal Arr, ByVal n As Long) As Double()
   Dim i As Long
   Dim j As Long
   Dim dbTop  As Double
   Dim dbButtom As Double
   
   Dim Index As Long
 For Index = 1 To n
   For i = 1 To n
     If i <> Index Then
        dbTop = Arr(Index, Index)
        dbButtom = Arr(i, Index)
        For j = 1 To n + 1
           Arr(i, j) = Arr(i, j) * dbTop - Arr(Index, j) * dbButtom
        Next
     End If
   Next
 Next
 
 For i = 1 To n
    Arr(i, n + 1) = Arr(i, n + 1) / Arr(i, i)
    Arr(i, i) = 1
 Next
 
 
 Dim Formul() As Double
 ReDim Formul(n) As Double
 
 For i = 1 To 3
   Formul(i) = Arr(i, n + 1)
 Next
 
 Formulasolu = Formul
 
End FunctionPrivate Sub Command1_Click()
  
  
Dim Arr(1 To 3, 1 To 4)
Arr(1, 1) = 3
Arr(1, 2) = 4
Arr(1, 3) = 5
Arr(1, 4) = 26Arr(2, 1) = 6
Arr(2, 2) = 7
Arr(2, 3) = 9
Arr(2, 4) = 47Arr(3, 1) = 4
Arr(3, 2) = 8
Arr(3, 3) = 6
Arr(3, 4) = 38
Dim solu() As Doublesolu = Formulasolu(Arr, 3)Dim i As Long
For i = 1 To UBound(solu)
   MsgBox "第" & i & "个解是:" & solu(i)
NextEnd Sub

Answer 7

您好!请问您在吗?有关你上次提供的解n元一次方程组的代码，我测试了一下，但是只能解小于14个未知数的方程组，当未知数个数大于14时，就解不了了，错误提示：下标越界 
For i = 1 To n 
Arr(i, n + 1) = Arr(i, n + 1) / Arr(i, i) '下标越界 
Arr(i, i) = 1 
Next 
请问：你提供那段代码是只能解14个未知数吗？那大于14个未知数的方程组要怎么求解呢？？请您指教，谢谢！