窗体的阶乘代码怎么编程

『壹』 VB编程，求阶乘的过程

VB求阶乘需要Function 过程来实现。

Function 语句，声明 Function 过程的名称，参数以及构成其主体的代码。

以下是求输入数的阶乘代码：

OptionExplicit
DimSumAsDouble
DimNAsInteger
DimiAsInteger

PrivateFunctionfact(NAsInteger)AsDouble
fact=1
DoWhileN>0
fact=fact*N
N=N-1
Loop
EndFunction

PrivateSubCommand1_Click()
N=Val(Text1.Text)
Sum=fact(N)
Text2=Sum
EndSub

PrivateSubForm_Load()
Text1="":Text2=""
EndSub

『贰』 visual basic 中阶乘怎么表示

在VB中没有直接的运算符或是函数能算一个正整数的阶乘。在这里需要你自己定义一个函专数来算阶乘属：
Function TimeStep(Numer As Integer) As Long
TimeStep = 1
For i = 1 To Number
TimeStep = TimeStep * i
Next
End Function
把上述代码复制到这个窗体中所有代码的最上面，即通用(声明)的位置。此后，在代码中你就可以像用其他正常的函数一样用TimeStep()函数来算阶乘了。

『叁』 怎么写vb的阶乘代码

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

(3)窗体的阶乘代码怎么编程扩展阅读：

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