作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/27 10:48:42
设计不等式 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  '结束