设计不等式 ax平方加bx加c大于0（a大于0）的方程框图

Rem 语言：Visual Basic 6.0
Sub Main()  '开始
  a = Val(InputBox("请输入a=","输入"))
  b = Val(InputBox("请输入b=","输入"))
  c = Val(InputBox("请输入c=","输入"))
  d = b ^ 2 - 4 * a * c
  If d > 0 Then
    x1 = (-b + sqr(d)) / (2 * a)
    x2 = (-b - sqr(d)) / (2 * a)
    MsgBox "解集为x>" & x1 & "或x<" & x2,vbInformation,"输出"
  Else
    If d = 0 Then
      x = -b / (2 * a)
      MsgBox "解集为x≠" & x,vbInformation,"输出"
    Else
      MsgBox "解集为R",vbInformation,"输出"
    End If
  End If
End Sub  '结束