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

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

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

@兄弟工程师01 2009/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 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓