保存為.vbs文件即可

 

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