算阶乘的vbs小程序

(编辑：jimmy 日期: 2024/9/20 浏览：2)

dim n,ans,i
n=inputbox("n(0<=n<=170)=")
ans=1
for i=1 to n
ans=ans*i
next
msgbox(ans)