1. 标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
2. 标记 【功能说明】计算多边形有多少条对角线
3. 标记 【使用说明】只能输入数字才有效使用
4. 标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定变量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
5. dim a
6. dim b
7. 标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
8. 标记 〖脚本开始〗
9. 弹出窗口 "此为计算多边形有多少条对角线的脚本，感谢使用！！！"
10. 调用外部VBScript子程序 a=InputBox("请输入您要算几边形？ （只需输入边数，3边形就输入3··· 无内容输入时直接按[确定]或[取消]退出！！！）")
11. 标记 〖这个StrComp(x)是字符串对比〗
12. 如果表达式 (StrComp("",a)=0) 为真,则
13. 脚本停止运行
14. 条件结束
15. 标记 〖这个cint(x)是把变量值转换成数字〗
16. a=cint(a)
17. 如果表达式 (a<3) 为真,则
18.     调用外部VBScript子程序 a=InputBox("请输入您要算几边形？ （只需输入边数，3边形就输入3··· 无内容输入时直接按[确定]或[取消]退出！！！）")
19. 脚本停止运行
20. 条件结束
21. 标记 〖这个是计算公式〗
22. b=(a-3)*a/2
23. 调用外部VBScript子程序 a=InputBox("请输入您要算几边形？ （只需输入边数，3边形就输入3··· 无内容输入时直接按[确定]或[取消]退出！！！）")
24. 标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
25. 标记 【脚本制作】一只鱼♂
26. 标记 【创作日期】2005
27. 标记 【数字记号】①②③④⑤⑥⑦⑧⑨⑩
28. 标记 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓