算阶乘的vbs小程序
发布时间：2016-12-28 来源：查字典编辑
摘要：dimn,ans,in=inputbox("n(0
dim n,ans,i
n=inputbox("n(0<=n<=170)=")
ans=1
for i=1 to n
ans=ans*i
next
msgbox(ans)
dim n,ans,i
n=inputbox("n(0<=n<=170)=")
ans=1
for i=1 to n
ans=ans*i
next
msgbox(ans)