Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50716 / 76733

←次へ　｜　前へ→


	【30902】Re:高校の情報Bの範囲

夜中まで考えたい - 05/11/6(日) 21:07 -


	引用なし

	パスワード

▼Roi さん：

宿題、間に合いますか？私なりの偏見で作ってみました。
>　　　　　'Dim n As Integer
>Dim Ans As Integer
Ans = 1 　'･･･nは１からスタート
>Do until Ans = 300　'･･･答えが300まで
　　　　　'Do While (Ans >= 300)
>　　　　　 ’n = n + 1

>Ans = Ans + １　’･･･１ずつ足して
>Loop
　Msgbox(Ans)
>　　　 'MsgBox (n)
>End Sub

>
>自分なりに考えた結果、こうなりました。でもｎは０となってしまいます。

私なりに考えた結果、こうなりました。あなたのコードを少しだけ変えました。
貼り付けて「＞」を取ってください。「’」はコメント処理しています。
･･･貴重な貴方のコードを残すためです。
これで宿題にまにあいますか？

次はIfのコードの作成をされては？私も考えるから。今月63歳になるので、
また闘志が湧きそうです。

もし数字の変化が見たかったら「Range("A1") = Ans」を

Ans=１の次の行と
Ans=Ans＋１の次の行に入れると動きが分かるのでは？
F8を叩いて調べてみてください。

識者が沢山おられるので遠慮せず聞きつづけられては如何でしょう。

4 hits

▼

【30852】高校の情報Bの範囲 Roi 05/11/5(土) 23:45