Question

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

Answer 1

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稍微改下即可
满意请采纳，有问题请追问

追问

lz怎么改啊，

追答

MsgBox Num1 & "的阶乘为：" & Factorial(Num1)
这句代码改下即可

Answer 2

写一个按钮事件

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

Answer 3

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

Answer 4

写个自定义函数'再调用就行了