阶乘在VB 中怎么写呀

来源：百度知道 编辑：UC知道 时间：2024/06/02 07:17:39
这题 让输入一个数求那个数的阶乘

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

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

调用函数或过程。