【VBS练习题1】计算阶乘

rat

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

酌情给分。

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

zhouyongjun

1. dim n,m,s
   
2. n=inputbox("输入一个正整数:","输入")
   
3. n=int(n)
   
4. s=1
   
5. for m=1 to n
   
6.     s=s*m
   
7. next
   
8. msgbox(s)

复制代码

zhouyongjun

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

1. dim n,m,s
   
2. n=inputbox("输入一个正整数:","输入")
   
3. n=int(n)
   
4. s=1
   
5. if n<0 then
   
6.    msgbox("输入有误")
   
7. elseif n=0 then
   
8.     msgbox(s)
   
9.    else
   
10.   for m=1 to n
    
11.     s=s*m
    
12.   next
    
13. msgbox(s)
    
14. end if

复制代码

slore

if n=0 then
多于