标题: 【VBS练习题1】计算阶乘 [打印本页]
作者: rat 时间: 2008-12-16 16:54 标题: 【VBS练习题1】计算阶乘
根据值n，计算其阶乘。
相关概念请看：http://baike.baidu.com/view/245476.htm。
酌情给分。
[ 本帖最后由 rat 于 2009-1-20 21:45 编辑 ]
作者: zhouyongjun 时间: 2008-12-17 00:17
- dim n,m,s
- n=inputbox("输入一个正整数:","输入")
- n=int(n)
- s=1
- for m=1 to n
- s=s*m
- next
- msgbox(s)
作者: zhouyongjun 时间: 2008-12-17 00:54
呵呵，多谢版主提醒，很久没学数学都忘了，改下！- 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
作者: slore 时间: 2009-1-23 21:21
if n=0 then
多于
| 欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |