展開(kāi)全部

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

你好，窩剛學(xué)e5a48de588b63231313335323631343130323136353331333332623938VB不久，所以很多地方請(qǐng)多多指教，以下是我程序的代碼及窗口，【很煩啊，我是列出公式做的，如果有程序什么問(wèn)題，請(qǐng)指出，要怪就要怪我是小白了

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("請(qǐng)輸入a" & i))

b(i) = Val(InputBox("請(qǐng)輸入b" & i))

c(i) = Val(InputBox("請(qǐng)輸入c" & i))

n(i) = Val(InputBox("請(qǐng)輸入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 "未知數(shù)中存在變量"

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

總結(jié)

以上是生活随笔為你收集整理的python三元一次方程代码_求三元一次方程计算器代码的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。