Question

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

Answer 1

必须用过程吗？用函数也许比较好。
'先举例用函数实现：
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）。