用VB做二次函数程序

复制以下代码到记事本，另存为“二次函数.vbs”
------------------------------开始----------------------------------------
Dim a,b,c,ans,x1,x2
msgbox "二次函数的形式为ax²+bx+c",0+4096+48,"注意："
InputBox "请输入a的值"
InputBox "请输入b的值"
InputBox "请输入c的值"
ans = b ^ 2 - 4 * a * c
if ans < 0 then
msgbox "该方程无实数根",0+4096+16,""
else
x1= (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2= (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
msgbox ("二次函数的解是：" & x1 & "和" & x2)
end if
---------------------------结束--------------------------------------------

求采纳

Dim a As Single, b As Single, c As Single, X1 As Double, X2 As Double, T As Double
Private Sub Command1_Click()
InputBox "请输入a的值"
InputBox "请输入b的值"
InputBox "请输入c的值"
T = b ^ 2 - 4 * a * c
If T < 0 Then
MsgBox ("该方程无实数根")
Else
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
MsgBox ("方程的解是：" & X1 & "和" & X2)
End If
End Sub

Dim a As Single, b As Single, c As Single, X1 As Double, X2 As Double, T As Double
Private Sub Command1_Click()
InputBox ("请输入a的值")
InputBox ("请输入b的值")
InputBox ("请输入c的值")
T = b ^ 2 - 4 * a * c
select case
case T < 0
MsgBox ("该方程无实数根")
Else
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
MsgBox ("方程的解是str( X1) & "和" str( X2))
End select
End Sub