|
▼Roi さん:
宿題、間に合いますか?私なりの偏見で作ってみました。
> 'Dim n As Integer
>Dim Ans As Integer
Ans = 1 '・・・nは1からスタート
>Do until Ans = 300 '・・・答えが300まで
'Do While (Ans >= 300)
> ’n = n + 1
>Ans = Ans + 1 ’・・・1ずつ足して
>Loop
Msgbox(Ans)
> 'MsgBox (n)
>End Sub
>
>自分なりに考えた結果、こうなりました。でもnは0となってしまいます。
私なりに考えた結果、こうなりました。あなたのコードを少しだけ変えました。
貼り付けて「>」を取ってください。「’」はコメント処理しています。
・・・貴重な貴方のコードを残すためです。
これで宿題にまにあいますか?
次はIfのコードの作成をされては?私も考えるから。今月63歳になるので、
また闘志が湧きそうです。
もし数字の変化が見たかったら「Range("A1") = Ans」を
Ans=1の次の行と
Ans=Ans+1の次の行に入れると動きが分かるのでは?
F8を叩いて調べてみてください。
識者が沢山おられるので遠慮せず聞きつづけられては如何でしょう。
|
|