算阶乘的vbs小程序
(编辑：jimmy 日期: 2024/11/15 浏览：3 次 )
dim n,ans,i
n=inputbox("n(0<=n<=170)=")
ans=1
for i=1 to n
ans=ans*i
next
msgbox(ans)
n=inputbox("n(0<=n<=170)=")
ans=1
for i=1 to n
ans=ans*i
next
msgbox(ans)
下一篇：用vbs实现选择颜色