プロが教えるわが家の防犯対策術!

再帰を使わず、For文による繰り返しにより、階乗を求めるプログラムを作成したいのです。

↓ここからどうすれば良いか、ご教授お願い致します。

Dim n , i As Integer
n = Textbox1.Text
For i = 1 To n
n = n * ( n - 1 )
Next
Textbox2.Text = n

A 回答 (2件)

Dim n as integer, i As integer


Dim mul as long = 1
n = Textbox1.Text
For i = 1 To n
mul = mul * i
Next
Textbox2.Text = mul
    • good
    • 3

でその結果は思った通りに出ていないのですか?


nの値を手計算かデバッガーで追ってみたらどうですか?

nの値は変わりますよ。
それをfor文のループ判定に使えないでしょう。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!