２．階乗　Ｋａｉｊｙｏｕ（ｎ）
　
１）階乗とは

　５の階乗＝５！＝ １×２×３×４×５　である。
　
　　プログラムでこれを計算させるには








　

　 s = 1

　 For　i =2　To　5

　 　s = s　*　i

　 Next　i
　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　For　i=2 to 5　
　　この行を初めて通過する時　i 　は　２にセットされる。

　 　２回めからは、
　　　　もしiが５より大きくなったら飛び出してNextの下の行へ分岐する。
　　　　そうでなければNextまで実行する。　　　　　　　　　　　　　　

　Next i 　i を１増して　流れを　For　の行へ戻す。
　


やってみよう

　　（１）このプログラムのフローチャート
　　　　（流れ図）を描け
　
　　（２）実行とともに、ｉ，ｓ の値は
　　　　　どの様に変化するか
　　　　　フローチャートに記入制よ
　


２）関数Kaijyou(n)を作る

　ｎの階乗＝ｎ！＝ １×２×・・・×(ｎ−１)×ｎ　である。
　
　ユーザが　？Kaijyou(5) と命ずれば　５！ を関数の値として答えるようにしたい。
　　　　　　　　　　　　　　　　　　　　　　　　　　　


　Private Function Kaijyou(ｎ As Integer) As 　　　　　　　　　　←【ヒント　 階乗の答えは大きな数になるぞ！】

　　 Dim s As Double, i As Integer

　　 　　＝　　　　　　　　　　　　

　　 For 　　　　　　　　　 　　　

　　　 s = s * i

　　 Next　i

　　 　　　　　　　　　　　　　　　

　End Function

　

やってみよう
（１）Kkaijyou(n)を完成し、イミディエートペインで動作を確認せよ
　
（２）Commandボタンを押すと　テキストボックス内の数字をもとに、その階乗を計算する。
　　　ただし自分の作ったKaijyou(n)を利用すること。

【　再起呼び出し＿２　】