帮忙写段代码

来源：百度知道 编辑：UC知道 时间：2024/06/20 03:45:45
单击输入并计算按钮调用InputBox函数，分别将任意的三个数字赋值给二次方程ax2+bx+c=0中的三个系数，输入完毕后将三个数字分别显示在三个text控件中，程序自动判断三个数字能否构成二次方程，如果能则在Msgbox中计算得出方程的实根，如果不能构成二次方程则利用Msgbox提示“此方程不是二次方程”；如果方程没有实根，也利用Msgbox提示“此方程没有实根”
不能用哦 最后要附值给 command

Private Sub Command1_Click()
On Error GoTo Err
Dim a, b, c, d
Dim e, f, g
a = InputBox("输入二次方程： ax^2+bx+c=0 如 4x^2+6x+9=0", "", "4x^2+6x+9=0")
a = LCase(a)
e = InStr(1, a, "x^2")
f = InStr(e + 3, a, "x")
g = InStr(1, a, "=")
b = CDec(Mid(a, 1, e - 1))
c = CDec(Mid(a, e + 3, f - e - 3))
d = CDec(Mid(a, f + 1, g - f - 1))
'-------------------提取值
Dim Delta
Delta = c ^ 2 - 4 * b * d
If Delta < 0 Then MsgBox "方程无实根" Else MsgBox "根为" & (-1 * c + Delta) / (2 * b) & " 和 " & (-1 * c - Delta) / (2 * b)
'-------------------计算
text1 = b
text2 = c
text3 = d
'-------------------显示到textbox
Exit Sub
Err:
MsgBox "输入的为无效方程。"
End Sub

Private Sub Command1_Click()
Dim a#, b#, c#
a = InputBox("输入a值")
b = InputBox(&