高考问答gridline:VB程序问题
来源：百度文库 编辑：高考问答 时间：2024/05/08 18:09:03
Private Sub Form_Click()
a = InputBox("请输a入的值:")
a = Val(a)
b = InputBox("请输b入的值:")
b = Val(b)
c = InputBox("请输c入的值:")
c = Val（c）
If b ^ 2 - 4 * a * c > 0 Then
x = ((-b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
y = ((-b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
Print "当"; "a = "; a, "b = "; b, "c = "; c; "时", Chr$(13) + Chr$(10) _
; "方程ax^2+bx+c=0的解:"; " x = "; x, "; y = "; y; ""
Else
Print "输入错误?????,方程无解"
End If
End Sub
a = InputBox("请输a入的值:")
a = Val(a)
b = InputBox("请输b入的值:")
b = Val(b)
c = InputBox("请输c入的值:")
c = Val（c）
If b ^ 2 - 4 * a * c > 0 Then
x = ((-b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
y = ((-b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
Print "当"; "a = "; a, "b = "; b, "c = "; c; "时", Chr$(13) + Chr$(10) _
; "方程ax^2+bx+c=0的解:"; " x = "; x, "; y = "; y; ""
Else
Print "输入错误?????,方程无解"
End If
End Sub
这部分改成：
If b ^ 2 - 4 * a * c >= 0 Then
X1 = ((-b) + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) '你漏了括号
X2 = ((-b) - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Print "当a = " & a & "b =" & b & "c = " & c & "时" & vbCrLf _
; "方程ax^2+bx+c=0的解:"; "x1 = " & X1 & ","; "x2 = " & X2
Else
Print "输入错误?????,方程无解"
End If
你要问什么啊？