几何计算：计算多边形有多少条对角线脚本源码

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

@兄弟工程师012009/3/19

Rem 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓   Rem 【功能说明】计算多边形有多少条对角线   Rem 【使用说明】只能输入数字才有效使用   Rem 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定变量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓   dim a   dim b   Rem 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓   Rem 〖脚本开始〗   MessageBox "此为计算多边形有多少条对角线的脚本，感谢使用！！！"   VBSCall a=InputBox("请输入您要算几边形？     （只需输入边数，3边形就输入3··· 无内容输入时直接按[确定]或[取消]退出！！！）")   Rem 〖这个StrComp(x)是字符串对比〗   If StrComp("",a)=0   EndScript    EndIf    Rem 〖这个cint(x)是把变量值转换成数字〗   a=cint(a)   If a<3       VBSCall MessageBox("对不起，小于 3 边形没有对角线！！！")   EndScript    EndIf    Rem 〖这个是计算公式〗   b=(a-3)*a/2   VBSCall MessageBox("您需要算的是  "&a&"  边形，"&"它有  "&b&"  条对角线    谢谢使用！！！")   Rem 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓   Rem 【脚本制作】一只鱼♂   Rem 【创作日期】2005   Rem 【数字记号】①②③④⑤⑥⑦⑧⑨⑩   Rem 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓