| |
▼neptune さん：
>考え方を書きます。・・・といっても殆ど答えですが。
>>【問】1から10000までを加算した結果をメッセージボックスに表示するプロシージャを作成せよ。
>と言う設問ですから、その処理は２つに分かれますね。
>
>処理１：【問】1から10000までを加算した結果出す
>処理２：メッセージボックスに表示せよ。
>
>計算範囲が1から10000と明確に指定されています。
>従って、このケースの場合はfor〜next繰り返し文を使います。
>
>dim i as long 'インクリメント用変数
>dim counter as long '計算に使用する
>
>for i=1 to 1000
>' 計算
>next i
>で計算結果は出てきますね。
>
>後は表示するだけです。表示にはmsgboxが指定されているので
>それを使用するだけです。
早速のご意見をどうも有難う御座います。
下記の通り作成しましたがうまくいきません。もし、よろしければ、もう一度ご教示をお願いいたします。
答=1+2+3+4+・・・というふうにやりたいのですが・・・。
>Sub テスト問5()
Dim i As Long
Dim counter As Long
For i = 1 To 10000
MsgBox ("計算結果は" & i & "です。")
Next i
End Sub
|
|
００２４
- 07/7/31(火) 23:23 -
