5的阶乘

1

VB程序设计－多种方法求阶乘

（作者：草原飞狼2014年5月26日）

声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。

布局

运行界面（1）

2

运行界面（2）

源代码如下：

PrivateSubCommand1_Click()

Rem求任意数阶乘，不大于171

DimmulAsDouble

DimiAsInteger

DimkAsInteger

mul=1'赋初值

k=Val(InputBox("请输入一个正整数，不大于171！","输入提示","5"))

Rem以下算法是求指定数的阶乘，典型的算法

Fori=1Tok

mul=mul*i

Nexti

Printk&"的阶乘结果是：";mul

EndSub

PrivateSubCommand2_Click()

Rem清空

EndSub

PrivateSubCommand3_Click()

Rem退出

UnloadMe

EndSub

PrivateSubCommand4_Click()

3

Rem普通过程求阶乘

DimmulAsDouble

DimiAsInteger

DimkAsInteger

mul=1'赋初值

k=Val(InputBox("请输入一个正整数，不大于171！","输入提示","5"))

Rem以下算法是求指定数的阶乘

Callfac(k)'函数调用，注意调用方法

Printk&"的阶乘结果是：";fac(k)

EndSub

PrivateFunctionfac(ByValkAsInteger)AsDouble'byval表示参数按值传递

Rem普通的函数过程

DimiAsInteger

DimmulAsDouble

mul=1

Fori=1Tok

mul=mul*i

Nexti

fac=mul'结果返回给函数，典型的用法

EndFunction

PrivateSubCommand5_Click()

Rem递归过程求阶乘

DimiAsInteger

DimkAsInteger

DimmulAsDouble

mul=1'赋初值

k=Val(InputBox("请输入一个正整数，不大于171！","输入提示","5"))

Rem以下递归函数的调用

Callfac_digui(k)

Printk&"的阶乘结果是：";fac_digui(k)

EndSub

PrivateFunctionfac_digui(ByValkAsInteger)AsDouble

Rem递归过程求阶

Rem以下是递归算法求阶乘，注意写法，编写递归算法时，方法类似

Ifk=1Then

fac_digui=1

El

fac_digui=fac_digui(k-1)*k

EndIf

EndFunction