用递归怎么做啊

发布网友发布时间：2022-08-21 01:11

共1个回答

热心网友时间：2023-11-14 08:34

Public Function jiecheng(ByVal n As Integer) As Integer
        Dim jc As Integer = 1
        For i = 1 To n
            jc = jc * i
        Next
        Return jc
End Function

Public Function jiecheng(ByVal n As Integer) As Double
        Dim jc As Double
        jc = 1
        For i = 1 To n
            jc = jc * i
        Next
        jiecheng = jc
End Function

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com