1. 标记 定变量
2. （VBScript语句） Dim a
3. （VBScript语句） Dim b
4. （VBScript语句） Dim c
5. 标记 ==============主程序开始================
6. 标记 弹出欢迎框
7. 弹出窗口 "欢迎使用！本脚本用于简单的二元一次方程计算"
8. 标记 输入变量a，b，c的值
9. 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
10. 如果表达式 (StrComp("",a)=0) 为真,则
11.     调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
12. 脚本停止运行
13. 条件结束
14. 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
15. 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
16. 如果表达式 (a=0) 为真,则
17.     标记 判断是不是一元二次方程
18.     调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
19. 脚本停止运行
20. 条件结束
21. 标记 〖这个cint(x)是把变量值转换成数字〗
22. （VBScript语句） a=cint(a)
23. （VBScript语句） b=cint(b)
24. （VBScript语句） c=cint(c)
25. 标记 开始用求根公式求解
26. 标记 先判断方程的根的情况
27. 如果表达式 ((b*b-4*a*c)<0) 为真,则
28.     调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
29. 脚本停止运行
30. 条件结束
31. （VBScript语句） e=Sqr(b*b-4*a*c)
32. （VBScript语句） d1=(-b-e)/(2*a)
33. （VBScript语句） d2=(-b+e)/(2*a)
34. 标记 显示方程的解
35. 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
36. 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
37. 脚本停止运行