算阶乘的vbs小程序
2017-03-14 11:33:36
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)
《算阶乘的vbs小程序》阅读地址：http://www.haoshilao.net/14775/
已有0条评论，点击查看发表评论