求VB的题解

来源：百度知道 编辑：UC知道 时间：2024/06/20 10:11:59
求1！+2！+……+10！，用function过程编写求阶乘函数。主程序写在form_click事件中.

希望大家帮忙写出，，，，，，，，，在线等！！！！！！！！！！！！

Private Sub Form_Click()
MsgBox JC(InputBox("起始数"), InputBox("终数"))
End Sub

Function JC(lower As Long, upper As Long)

Dim i1
Dim i2
Dim temp
temp = 0
For i2 = 1 To upper
JC = 1
For i1 = 1 To i2
JC = JC * i1
Next
temp = temp + JC
Next
JC = temp
End Function

ok，函数JC调用即可。

参数lower为 起始数 ，upper为 终数

分！