12的阶乘

来源:互联网 发布:淘宝图片举报撤销吗 编辑:程序博客网 时间:2024/04/29 18:02

终于把三个作业都做完啦大笑


Private Sub Command1_Click()

    Font.Size = 70
    Print 阶乘(12)
End Sub
Private Function 阶乘(n As Integer) As Long
   If n = 1 Then
   阶乘 = 1
   Else
   阶乘 = n * 阶乘(n - 1)
   End If

End Function




0 0