Private Sub Command1_Click()
Cls
Print 阶乘(10)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n – 1)
End If
End Function
还可以，自己能接受
Cls
Print 阶乘(10)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n – 1)
End If
End Function
还可以，自己能接受
版权声明：本文为eguntianshi原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。