繰り返し

質問

フィボナッチ数列（１．１．２．３．５．８．１３．２１・・・）
のプログラム

項番用にinteger型の変数を１つと数列の値を順番に保持するlong型の変数を３つ宣言する。最初に２つの変数に１を記憶させる。次に繰り返し構文で第三項目以降の値を順次計算して表示するプログラムとせよ。ただし、繰り返し構文中ではmsgbox関数を１回だけ使用するものとして、４０項まで順番に表示せよ。

という問題の繰り返しの部分はどうやって表すんでしょうか？
１項と２項に１がはいっているのでよくわかんないんです。

自分ではこんな感じにまちがえているのですが・・・
Sub ex82()
Dim x As Integer, y As Long, z As Long, s As Long
For x = 3 To 40
y = 1
z = 1
s = 3 - y + 3 - z
s = s + (x - 1 + x - 2)
MsgBox (s)
Next x
End Sub

回答No.1

noname#77845 · ベストアンサー

初期化するのは1回だけ。
y=1
z=1
FOR x=3 TO 40
s=y+z
MsgBox(s)
y=z
z=s
NEXT x

でも、これじゃ3項目以降しか表示しないですよ？

補足

回答ありがとうございます。
１項目と２項目は無理っぽいですか？

回答No.2

noname#77845

＃１です。
「１項目と２項目は無理っぽいですか？」
じゃなくて、「表示させていない」と言うこと。
ループに入る前にｙとｚを表示させれば全部出ます。

お礼

そういうことですか。わかりました。

ありがとうございます。