求vb的编程 解二元一次方程
- 提问者网友：遮云壑
- 2021-07-16 19:28
- 五星知识达人网友：北方的南先生
- 2021-07-16 20:40
dim a as double
dim b as double
dim c as double
dim d as double
dim e as double
dim f as double
dim x as double
dim y as double
Private Sub Command1_Click()
a = text1.text
b = text2.text
c = text3.text
d = text4.text
e = text5.text
f = text6.text
x = (e*c-b*f)/(a*e-b*d)
y = (a*f-c*d)/(e*a-b*d)
lable1.caption = x
lable2.caption = y
End Sub
这样应该就可以了，希望对你有用
- 1楼网友：山河有幸埋战骨
- 2021-07-17 00:12
- 2楼网友：摆渡翁
- 2021-07-16 23:36
暂时不能实现！
问这个问题的人可以试试
我数学不错，推出了一个公式
但是编译的时候会出现溢出
所以这种还是不能一不实现
你可以分部来做。最后自己算几个地方就行了
- 3楼网友：孤老序
- 2021-07-16 23:05
可以吗
- 4楼网友：玩家
- 2021-07-16 21:58
求解方程组形式为
a1*x+b1*y+c1=0
a2*x+b2*y+c2=0
只需将下面代码复制到窗体中测试即可 Private Sub Form_Load() Dim a1 As Single Dim b2 As Single Dim a2 As Single Dim b1 As Single Dim c1 As Single Dim c2 As Single Dim rootX As Single Dim rootY As Single a1 = InputBox("请输入第一个方程的x的系数：") b1 = InputBox("请输入第一个方程的y的系数：") c1 = InputBox("请输入第一个方程的常数项：") c1 = -c1 a2 = InputBox("请输入第二个方程的x的系数：") b2 = InputBox("请输入第二个方程的y的系数：") c2 = InputBox("请输入第二个方程的常数项：") c2 = -c2 rootY = (a1 * c2 - a2 * c1) / (a1 * b2 - a2 * b1) rootX = (c1 - b1 * rootY) / a1 MsgBox "原方程组的解为：" & vbCrLf & "x=" & rootX & vbCrLf & "y=" & rootY & vbCrLf End Sub