窗體的階乘代碼怎麼編程

『壹』 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