VB高手救命啊～～～～～～帮我写个流程～～急～～～

来源：百度知道 编辑：UC知道 时间：2024/06/04 15:32:48
ax^2+bx+c value ofx
写一个能计算2次方程的VBFORM
写出来。。。不用制作出来
就写个流程在回复里～～无比完整啊～～谢谢～

Private Sub command1_click()
Dim a, b, c, x1, x2, d As sigle
a = Val(textl.Text)
b = Val(text2.Text)
c = Val(text3.Text)
d = b ^ 2 - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
ElseIf d = 0 Then
x1 = (-b / 2 * a)
x2 = x1
Else: MsgBox "方程没有实根"
End If
text4.text= "x1=" & x1 & "" & "x2=" & x2
End Sub