摇滚乐队需要什么乐器:谁知道怎么用vb编解二元一次方程的软件啊

用矩阵：(解N元一次方程组，当然2元一次也可以)
Public Sub 解方程(ByRef InDat() As Double, ByVal InDatCount As Long, ByRef OutDat() As Double, ByRef OutDatCount As Long)
Dim Xt() As Double
Dim Dt As Double
Dim Ss As Long
Dim OtSCount As Long
Dim XtOut() As Double
If InDatCount > 1 Then
ReDim Xt(1 To InDatCount - 1, 1 To InDatCount) As Double
For j = 1 To InDatCount - 1 '行
For i = 2 To InDatCount + 1 '列
Xt(j, i - 1) = InDat(j, i) * InDat(InDatCount, 1) / InDat(1, 1) - InDat(InDatCount, i)
Next i
Next j
OtSCount = 0
解方程 Xt, InDatCount - 1, XtOut, OtSCount
Dt = 0
For i = 1 To InDatCount - 1
Dt = Dt + InDat(InDatCount, i + 1) * XtOut(i)
Next i
Dt = Dt + InDat(InDatCount, i + 1)
ReDim Preserve OutDat(1 To 1 + OtSCount) As Double
OutDat(1) = -Dt / InDat(InDatCount, 1)
For i = 2 To OtSCount + 1
OutDat(i) = XtOut(i - 1)
Next i
OutDatCount = 1 + OtSCount
Else
ReDim OutDat(1 To 1) As Double
If InDat(1, 1) <> 0 Then
OutDat(1) = -InDat(1, 2) / InDat(1, 1)
Else
OutDat(1) = 0
End If
OutDatCount = 1
End If
End Sub
示例：（以下测试代码用程序生成，符号可能有问题）
X1=0.30415,X2=0.44485,X3=0.12345,X4=0.99513,X5=0.18588
5.795*X1+-3.019*X2+0.140*X3+8.145*X4+0.454*X5+-8.626=0
3.735*X1+8.714*X2+-9.496*X3+-5.249*X4+0.535*X5+4.687=0
-6.227*X1+2.638*X2+-8.298*X3+5.892*X4+9.110*X5+-6.951=0
2.439*X1+1.064*X2+6.762*X3+-5.752*X4+-1.030*X5+2.845=0
-2.958*X1+-3.010*X2+9.798*X3+-2.783*X4+-1.628*X5+4.101=0

这个很简单，一般初学的都会，你可以查找一下相关教材