批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

【VBS练习题1】计算阶乘

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

酌情给分。

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

  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)
复制代码
1

评分人数

    • rat: 好,不过好像0的阶乘应当等于1PB + 10

TOP

呵呵,多谢版主提醒,很久没学数学都忘了,改下!
  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
复制代码
1

评分人数

TOP

if n=0 then
多于

TOP

返回列表