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 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓