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

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

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

@兄弟工程师01 2009/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