算阶乘的vbs小程序


  本文标签:阶乘,vbs

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