Question

编写VB程序：求10！

Answer 1

VB6.0可通过编写自定义Funtion 过程达到求阶乘的运算。

Funtion 过程，Visual Basic 包含内置的、或内部的函数，如 Sqr、Cos 或 Chr。此外，还可用 Function 语句编写自己的 Function
过程。

在 Visual Basic 中调用 Function 过程的方法和调用任何内部函数的方法是一样的。

具体实施代码：

Private Function jc(ByVal Int_I As Integer) As Long
    jc = 1
    Dim i As Integer
    For i = 1 To Int_I
        jc = jc * i
    Next i
End Function

Private Sub Form_Click()
    Dim i As Integer
    i = InputBox("输入整数", i)
    MsgBox i & ("的阶乘=") & jc(i)
End Sub

Answer 2

Private Sub Command1_Click()
MsgBox JieCheng(10)
End Sub
Private Function JieCheng(ByVal Int_A As Integer) As Long
JieCheng = 1
Dim i As Integer
For i = 1 To Int_A
JieCheng = JieCheng * i
Next i
End Function

Answer 3

Function getFac(ByVal n As Integer) As Long
'
'
'
Dim v As Long
v = 1
For i = 1 To n
v = v * i
Next i
getFac = v
End Function

Answer 4

Private Sub Command1_Click()
MsgBox "10!=" & jc(10)
End Sub
Function jc(n)
If n > 1 Then jc = jc(n - 1) * n Else jc = 1
End Function