编写一个函数jiecheng,用以求解某个整数的阶乘,然后通过函数调用求出1+2!+3!+4!+5

Question

程序设计题。求过程，用vb写哦，谢谢大神，急用！！！
在线等啊，

Answer 1

使用递归方法：

Private Sub Command1_Click()
    Dim i As Integer
    Dim sum As Long
    sum = 0
    For i = 1 To 5
        sum = sum + JieCheng(i)
    Next
    Print sum
End Sub

Private Function JieCheng(i As Integer) As Long
    Select Case i
        Case Is <= 0
            JieCheng = 0
        Case 1
            JieCheng = 1
        Case Else
            JieCheng = JieCheng(i - 1) * i
    End Select
End Function

追问

因为我是一点也不懂，只要把上面的步骤写在试卷上就行了是吧？下面这个图片是另一种方法了？

追答

应该是抄写下来就行了

★你不觉得图片上的代码和上面的文字是一样的吗？