三元一次方程计算器软件（三元一次方程计算器）

1、死算啊，列出公式，死算啊..你好。

2、窝刚学VB不久，所以很多地方请多多指教，以下是我程序的代码及窗口。

3、【很烦啊，我是列出公式做的，如果有程序什么问题。

4、请指出，要怪就要怪我是小白了Private Sub Command1_Click()Dim a(1 To 3), b(1 To 3), c(1 To 3)  As SingleDim n(1 To 3) As SingleFor 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 ThenMsgBox "未知数中存在变量"ElseEnd Ifz = (四 * 三 - 一 * 六) / (二 * 四 - 一 * 五)y = (四 * 三 - 二 * 四 * z) / (一 * 四)x = (n(1) - c(1) * z - b(1) * y) / a(1)Text1.Text = "x=" & xText2.Text = "y=" & yText3.Text = "z=" & zEnd Sub很抱歉，回答者上传的附件已失效。

本文到此分享完毕，希望对大家有所帮助。