=10*9*8*7*6*5*4*3*2*1=3628800 编写VB阶乘的函数 1、vb代码中，求一个数的阶乘的函数代码如下： PublicFunctionjiechengAsDouble DimjcAsDouble jc=1 Fori=1Ton 态扮jc=jc*i Next jiecheng=jc EndFunction 2、具体用法：首先打开VB6.0，新建一个标准exe工程； 3、在设计界面上添加一个Command控件，Command1的Caption属性设置为"N的阶乘"。VB编程，求阶乘的过程 VB求阶乘需要Function 过程来实现。
1、For语句蔽缓实现
Private Sub Command1_Click()
Dim s As Long, n As Integer, i As Integer
培并氏 ? n = Val(Text1.Text)
s = 1
For i = 1 To n
s = s * i
Next i
Label4.Caption = Str(s)
End Sub
2、Do While语句实现
Private Sub Command1_Click()
Dim s As Long, n As Integer, i As Integer
n = Val(Text1.Text)
s = 1
i = 1
配散 Do While i <= n
s = s * i
i = i + 1
Loop
Label4.Caption = Str(s)
End Sub
扩展资料：
1~10的阶乘的结果如下：
1!=1
2!=2*1=2
3!=3*2*1=6
4!=4*3*2*1=24
5!=5*4*3*2*1=120
6!=6*5*4*3*2*1=720
7!=7*6*5*4*3*2*1=5040
8!=8*7*6*5*4*3*2*1=40320
9!=9*8*7*6*5*4*3*2*1=362880
10!=10*9*8*7*6*5*4*3*2*1=3628800
1、vb代码中，求一个数的阶乘的函数代码如下：
Public?Function?jiecheng(ByVal?n?As?Integer)?As?Double
Dim?jc?As?Double
jc?=?1
For?i?=?1?To?n
态扮???jc?=?jc?*?i
Next
jiecheng?=?jc
End?Function
2、具体用法：首先打开VB6.0，新建一个标准exe工程；
3、在设计界面上添加一个Command控件，Command1的Caption属性设置为"N的阶乘"。
4、双击Command1控件进入代码编辑界面，编辑代码如下：
Public?敏禅Function?jiecheng(ByVal?n?As?Integer)?As?Double
Dim?jc?As?Double
jc?=?1
For?i?=?1?To?n
jc?=?jc?*?i
Next
jiecheng?=?jc
帆拿灶???End?Function
Private?Sub?Command1_Click()
Dim?sum?As?Double,?n?As?Integer
n?=?InputBox("计算的N的阶乘，请输入数字N")
sum?=?jiecheng(n)
MsgBox?(sum)
End?Sub
5、运行新建的工程，单击按钮，输入要计算的N的阶乘的数字N，得出阶乘结果。
VB求阶乘需要Function 过程来实现。
Function 语句，声明 Function 过程的名称，参数以及构成其主体的代码空局。
以下是求输入数的阶乘代码：
Option?Explicit
Dim?Sum?As?Double
Dim?N?As?Integer
Dim?i?As?Integer
Private?Function?fact(N?As?Integer)?As?Double
fact?=?1
则亏凯Do?While?N?>?0
fact?=?fact?*?N
N?=?N?-?1
孙唤??Loop
End?Function
Private?Sub?Command1_Click()
N?=?Val(Text1.Text)
Sum?=?fact(N)
Text2?=?Sum
End?Sub
Private?Sub?Form_Load()
Text1?=?"":?Text2?=?""
End?Sub
Dim?s?As?Double,?n?As?Integer
n?=?Val(InputBox("请输入n值，不要罩茄太大哦，否则出错"))
s?=?1
Do?While?n?>袜拆?1
s?=?s?*?n
n?=?物好察n?-?1
Loop
MsgBox?"这个数的阶乘为"?&?s
关于vb阶乘的内容，到这里就结束了。想要了解更多相关内容，请点击下方的推荐文章。
