算階乘的vbs小程序

字號(hào):


    保存為.vbs文件即可
    dim n,ans,i
    n=inputbox("n(0<=n<=170)=")
    ans=1
    for i=1 to n
    ans=ans*i
    next
    msgbox(ans)