python三元一次方程代码_求三元一次方程计算器代码

展开全部

死算啊，列出公式，死算啊..

你好，窝刚学e5a48de588b63231313335323631343130323136353331333332623938VB不久，所以很多地方请多多指教，以下是我程序的代码及窗口，【很烦啊，我是列出公式做的，如果有程序什么问题，请指出，要怪就要怪我是小白了

Private Sub Command1_Click()

Dim a(1 To 3), b(1 To 3), c(1 To 3)  As Single

Dim n(1 To 3) As Single

For i = 1 To 3

a(i) = Val(InputBox("请输入a" & i))

b(i) = Val(InputBox("请输入b" & i))

c(i) = Val(InputBox("请输入c" & i))

n(i) = Val(InputBox("请输入n" & i))

Next i

一 = b(1) * a(2) - a(1) * b(2)

Debug.Print 一

二 = c(1) * a(2) - a(1) * c(2)

Debug.Print 二

三 = a(2) * n(1) - a(1) * n(2)

Debug.Print 三

四 = b(2) * a(3) - a(2) * b(3)

Debug.Print 四

五 = a(3) * c(2) - a(2) * c(3)

Debug.Print 五

六 = a(3) * n(2) - a(2) * n(3)

Debug.Print 六

If (二 * 四 - 一 * 五) = 0 Then

MsgBox "未知数中存在变量"

Else

End If

z = (四 * 三 - 一 * 六) / (二 * 四 - 一 * 五)

y = (四 * 三 - 二 * 四 * z) / (一 * 四)

x = (n(1) - c(1) * z - b(1) * y) / a(1)

Text1.Text = "x=" & x

Text2.Text = "y=" & y

Text3.Text = "z=" & z

End Sub