用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况：1,a=0,不是一元二次方程2,b^2-4ac=0,有两个相等的实根3,b^2-4ac>0,有两个不相等的实根

用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况：1,a=0,不是一元二次方程2,b^2-4ac=0,有两个相等的实根3,b^2-4ac>0,有两个不相等的实根
用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况：
1,a=0,不是一元二次方程
2,b^2-4ac=0,有两个相等的实根
3,b^2-4ac>0,有两个不相等的实根

用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况：1,a=0,不是一元二次方程2,b^2-4ac=0,有两个相等的实根3,b^2-4ac>0,有两个不相等的实根
Option Explicit
Private Sub Command1_Click()
Dim a,b,c
a = 1:b = -5:c = 6
Print a,b,c & vbNewLine & fc(a,b,c)
End Sub
Function fc(a,b,c)
Dim t
Select Case a
Case 0:fc = "不是一元二次方程"
Case Else
t = b ^ 2 - 4 * a * c
Select Case t
Case 0:fc = "有两个相等的实根：" & (-1) * b / 2 / a
Case Is > 0:fc = "有两个不相等的实根：" & ((-1) * b + Sqr(t)) / 2 / a & Space(4) & ((-1) * b - Sqr(t)) / 2 / a
Case Else
fc = "无实根"
End Select
End Select
End Function