Rem 定变量
VBS Dim a
VBS Dim b
VBS Dim c
Rem ==============主程序开始================
Rem 弹出欢迎框
MessageBox "欢迎使用！本脚本用于简单的二元一次方程计算"
Rem 输入变量a，b，c的值
VBSCall a=InputBox("请输入a(一般形式a不为零)")
If StrComp("",a)=0
    VBSCall MessageBox("谢谢使用")
EndScript 
EndIf 
VBSCall b=InputBox("请输入b")
VBSCall c=InputBox("请输入c")
If a=0
    Rem 判断是不是一元二次方程
    VBSCall Call MessageBox("这不是一元二次方程")
EndScript 
EndIf 
Rem 〖这个cint(x)是把变量值转换成数字〗
VBS a=cint(a)
VBS b=cint(b)
VBS c=cint(c)
Rem 开始用求根公式求解
Rem 先判断方程的根的情况
If (b*b-4*a*c)<0
    VBSCall Call MessageBox("无解")
EndScript 
EndIf 
VBS e=Sqr(b*b-4*a*c)
VBS d1=(-b-e)/(2*a)
VBS d2=(-b+e)/(2*a)
Rem 显示方程的解
VBSCall Call MessageBox("此方程的解为"&d1&"和"&d2&"")
VBSCall MessageBox("谢谢使用")
EndScript