阶乘在VB 中怎么写呀,VB编程，求阶乘的过程

网友回答

建一个Command1。中间那部分就是运算程序。
　　代码如下。
　　＝＝＝＝＝＝＝＝＝＝＝＝＝
　　Private Sub Command1_Click()
　　Dim a As Integer, i As Integer, s As Double
　　s = 1
　　a = InputBox("输入数")
　　For i = 2 To a
　　s = s * i
　　Next
　　MsgBox a & "的阶乘是：" & s
　　End Sub

网友回答

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