算阶乘的vbs小程序
程序员文章站
2022-11-14 11:10:13
dim n,ans,i n=inputbox("n(0<=n<=170)=") ans=1 for i=1 to n ans=ans*i next msgbox...
dim n,ans,i
n=inputbox("n(0<=n<=170)=")
ans=1
for i=1 to n
ans=ans*i
next
msgbox(ans)
n=inputbox("n(0<=n<=170)=")
ans=1
for i=1 to n
ans=ans*i
next
msgbox(ans)