做VB题 悬赏积分20

来源：百度知道 编辑：UC知道 时间：2024/09/22 01:06:53
输入一元二次方程ax（平方）+bx+c=0的系数a,b,c,计算并输出一元二次方程的二个根x1 x2 .同时要求对a b c 分别考虑多种情况的处理，即无实根，重根或两个实根。（要求代码完整）

Private Sub Form_Click()
Dim A As Single, B As Single, C As Single, D As Single
Dim X1 As Single, X2 As Single
A = InputBox("方程二次项的系数 A", "输入", 1)
B = InputBox("方程一次项的系数 B", "输入", 3)
C = InputBox("方程常数项的系数 C", "输入", 2)
D = B * B - 4 * A * C
Print "方程：("; A; ")X^2 +("; B; ")X +("; C; ")= 0 "
Select Case D
Case Is > 0
X1 = (-B + Sqr(D)) / (2 * A)
X2 = (-B - Sqr(D)) / (2 * A)
Print "有两个不相等的实根：X1＝"; X1; "X2＝"; X2
Case 0
X1 = -B / (2 * A)
Print "有两个相等的实根：X1＝X2＝"; X1
Case Else
Print "没有实根！ ^o^"
End Select
End Sub

按照楼主的界面修正如下：
Dim X1 As String, X2 As String
Private Sub Command1_Click()
Dim A As Single, B As Single, C As Single, D As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
C