算阶乘的vbs小程序

1. dim n,ans,i  
2. n=inputbox("n(0<=n<=170)=")  
3. ans=1  
4. for i=1 to n  
5. ans=ans*i  
6. next  
7. msgbox(ans)