周末忘做VB作业了
现在来补
今天下雨了
突然降温的天
还是窝在寝室里比较舒服
跟往常一样
依旧先上图
改变“阶乘()”括号内的数字
就可以算出不同数的阶乘了
恩没错就是这样
它的程序如下
Private Sub Command1_Click()
Font.Size = 70
Print 阶乘(10)
End Sub
Private Function 阶乘(n As Integer) As Long
If n = 1 Then
阶乘 = 1
Else
阶乘 = n * 阶乘(n - 1)
End If
End Function
完毕~