【VBS练习题1】计算阶乘

rat

根据值n，计算其阶乘。
相关概念请看：http://baike.baidu.com/view/245476.htm。

酌情给分。

[ 本帖最后由 rat 于 2009-1-20 21:45 编辑 ]

slore

if n=0 then
多于

zhouyongjun

呵呵，多谢版主提醒，很久没学数学都忘了，改下！

dim n,m,s
n=inputbox("输入一个正整数:","输入")
n=int(n)
s=1
if n<0 then
   msgbox("输入有误")
 elseif n=0 then
    msgbox(s)
   else
  for m=1 to n
    s=s*m
  next
msgbox(s)
end if
复制代码

zhouyongjun

dim n,m,s
n=inputbox("输入一个正整数:","输入")
n=int(n)
s=1
for m=1 to n
    s=s*m
next
msgbox(s)
复制代码