阶乘在VB 中怎么写呀

Question

这题 让输入一个数求那个数的阶乘

Answer 1

建一个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

Answer 2

给你个思路如i=5
sum=sum*i
i=i-1

Answer 3

调用函数或过程。