作业帮 > 综合 > 作业

建立一个过程来计算11的阶乘

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/22 20:46:14
建立一个过程来计算11的阶乘
建立一个过程来计算11的阶乘
必须用过程吗?用函数也许比较好.
'先举例用函数实现:
public function Factorial(byval n as long) as long
dim i as long
dim iRtn as long
iRtn=1
for i=1 to n
iRtn=iRtn * i
next i
Factorial=iRtn
end function
'下面是过程版的(阶乘的结果通过参数n返回):
public sub FactorialB(byref n as long)
dim i as long
dim iRtn as long
iRtn=1
for i=1 to n
iRtn=iRtn * i
next i
n=iRtn
end sub
'调用方法(把下面的程序放到某个事件里,如Command1_Click()事件):
'函数方法(比较简单):
msgbox Factorial(11)
'过程方法(比较麻烦):
dim n as long
n=11
FactorialB n
mgbox n
'若需要11以上的结果值(例如100的阶乘、10000的阶乘),这两段代码返回值可能受long数据类型的范围限制.若不够用,可以试试currency类型货double类型(把程序里的Long全部替换为Currency或Double).