第７講 ファンクションプロシージャの学習
第４話 ｎの階乗の計算
　
Private Sub CommandButton1_Click()
　　CommandButton2_Click '社員CommandButton2_Clickに仕事を依頼
　　Dim n As Byte
　　n = Cells(3, 3)
　　Cells(4, 2) = "１×２×３×・・・×ｎ = "
　　Cells(4, 8) = f(n) '社員fに仕事を依頼した
End Sub
Function f(n As Byte)
　　Dim i As Byte
　　f = 1 'fを1に初期化
　　For i = 1 To n
　　　　f = f * i
　　Next
End Function
Private Sub CommandButton2_Click()
　　Rows("4:2000").Select
　　Selection.ClearContents
　　Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル






第３話へ　第５話へ