一节课同时完成多项作业，真的是有很大的成就感啊，啦啦啦
Private Sub Command2_Click()
Font.Size = 70
Print 阶乘(11)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n - 1)
End If
End Function
Print 阶乘(11)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n - 1)
End If
End Function
3987
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
