vb14
来源：互联网 发布：联合石油数据库 在哪看 编辑：程序博客网 时间：2024/06/08 07:07
Private Sub Command1_Click()
Font.Size = 30
Print 阶乘(1)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n - 1)
End If
Font.Size = 30
Print 阶乘(1)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n - 1)
End If
End Function
0 0
