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 版权协议,转载请附上原文出处链接和本声明。
