vb程序编写输出从一到十的阶乘

用VB求1到100阶乘的代码~

我在习惯上做一个块，供事件方法调用。
它灵活在，你可以传递参数，可以是其它数的阶乘！！

Private Sub Command1_Click()
MsgBox "100!= " & Total(100) ’从此入口，调用下面的函数，并返回值
End Sub

Function Total (num as Double)
Dim i As Iinteger
num = 1
For i = 1 To 100
num = num * i
Next
return Total
End Function

========================================
您的问题==我的课题 奉献知识==辉煌生命
黑龙江省 张志晨
========================================

Public Function f(m As Integer) As Long
Dim i As Integer, s As Long
s = 1
For i = 1 To m
s = s * i
Next i
f = s
End Function

Private Sub Command1_Click()
Dim i As Integer, s As Long
s = 0
For i = 1 To 10
s = s + f(i)
Next
Print s
End Sub

Private Sub Command1_Click()
n! = 1
For i = 1 To 10
n! = n! * i
Print i & "的阶乘是:" & n!
Next i
End Sub

Private Sub Command1_Click()
n! = 1
For i = 1 To 10
n! = n! * i
MsgBox i & "的阶乘是:" & n!
Next i
End Sub

---

vb程序编写输出从一到十的阶乘视频