Question

高手进！把下面的流程图翻译成vb语言！

Answer 1

Dim a, b, c, x1, x2, d

a = InputBox("请输入a=")

b = InputBox("请输入b=")

c = InputBox("请输入c=")

d = b * b - 4 * a * c

If d > 0 Then

  If d = 0 Then

    MsgBox "有两个相等的解=" & -b / 2 * a

  Else

    MsgBox "有两个不等的解，分别如下：" & vbCrLf & "解1=" & (-b + Sqr(d)) / 2 * a & vbCrLf & "解2=" & (-b - Sqr(d)) / 2 * a

  End If

Else

  MsgBox "无解"

End If

Answer 2

很多年没有碰过Vb了。。应该没写错吧。。

这题好像是数学里的那个啥啥啥来着 还真想不起来了

Dim a, b, c, x1, x2, d

Private Sub Form_Load()
a = InputBox("请输入a的值？", "输入对话框")

b = InputBox("请输入b的值？", "输入对话框")

c = InputBox("请输入c的值？", "输入对话框")

d = b * b - 4 * a * c

If (d >= 0) Then

If (d = 0) Then
x1 = -b / 2 * a
Text1 = x1
Else
x1 = (-b + Sqr(d)) / 2 * a
x2 = (-b - Sqr(d)) / 2 * a
Text1 = x1 & " " & x2
End If
Else

Text1 = "无解"
End If
End Sub