在vb 中利用函数在事件过程中计算3!+5!+6!

在vb 中利用函数在事件过程中计算3!+5!+6!

public function N(num as integer) as integer
dim i as integer
N=1
for i=1 to num
N=N*i
next
end function

private sub command1_click()
msgbox N(3)+N(5)+N(6)
end sub

具体代码可联系我，返回该参数的阶乘就行了，函数的参数是整形参数写一个按钮事件 button click事件 再写一个函数

private function getresult(m as integer, n as integer, p as integer) as double dim i as integer dim tempa, tempb, tempc as integer tempa = 0 tempb = 0 tempc = 0 for i = 1 to m tempa = tempa + i next i for i = 1 to n tempb = tempa + i next i for i = 1 to p tempc = tempa + i next i getresult = (tempa + tempb) / tempc end function

Option Explicit Private Sub Command1_Click()     Dim Num1 As Integer     Num1 = 3     MsgBox Num1 & "的阶乘为：" & Factorial(Num1) End Sub Function Factorial(ByVal Num As Integer) As Long    '参数按值传递     Dim i As Integer     If Num > 0 Then Factorial = 1         For i = 1 To Num             Factorial = Factorial * i         Next i End Function 上面的代码是计算一个数的阶乘，LZ稍微改下即可 满意请采纳，有问题请追问