按键精灵一元二次方程计算脚本源码

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师012009/3/19

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