VB 计算二元一次方程

来源：百度知道 编辑：UC知道 时间：2024/06/03 12:28:35
输入一元二次方程的系数 a,b,c, 计算并输出一元二次方程的两个根x1,x2。界面请设计者自己考虑。注：输入a,b,c三个数可由三个文本框来实现；也可通过使用三次InputBox()函数，先输入三个字符，然后再通过VAL(字符串)函数将字符串转换成数值。计算结果可通过文本框或MsgBox过程显示。

Dim a, b, c As Integer
Dim x, y As Single
Dim d As Double

a = Val(InputBox("输入二次项系数"))
b = Val(InputBox("输入一次项系数"))
c = Val(InputBox("输入常数项"))

d = b ^ 2 - 4 * a * c
If d < 0 Then
MsgBox "方程无解"
ElseIf d = 0 Then
x = -b / (2 * a)
MsgBox "方程有一个解：" & x
Else
x = (-b + Sqr(d)) / (2 * a)
y = (-b - Sqr(d)) / (2 * a)
MsgBox "方程有两个解：" & x & "和" & y
End If

新建工程。在窗体上添加一个Command按钮、三个Text文件框、五个Label标签

怎么设计你自己看吧。

代码如下：

Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim x1 As Single
Dim x2 As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b * b - 4 * a * c
If a = 0 Then
Label1.Caption = "不是二元一次方程！"
Text1.Text = ""
Tex