怎样计算阶乘
周末忘做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
完畢~總結
- 上一篇: linux中rpm、yum、apt-ge
- 下一篇: 度量相似性数学建模_一种基于粒子群位置更