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