Visual Basic の簡単な問題なのですが、分からないので教えてください＞＜

質問

私は大学の情報の講義で、Visual Basic を習っているのですがちょっとお聞きしたい問題があるのですが、VBに知識のある方回答お願いしますm(_ _"m)ペコリ
[問題]1から10までの2乗和を求めて値を表示する3つのプロシージャex1,ex2,ex3をFor～next構文、While～Wend構文、Do Until～Loop構文をそれぞれ用いて完成させよ。
上記のような問題なのですが、For~Next構文は分かりました！

Sub ex1()
Dim s,n As Integer
s=0
　　For n = 1 To 10
　　s = s + n^2
　　Next n
　Msgbox s
End sub

For~Nextは多分これであってますかね？しかし、While~Wend構文とDo Until~Loop構文でのプログラムが考えましたが分からなかったので、分かる方、回答お願いします。
よろしくお願いします<(_ _)>

回答No.2

imogasi · ベストアンサー

For i = 1 To 10
s = s + i * i
Next i
MsgBox s

End Sub
Sub test02()
i = 1
While i < 11
s = s + i * i
i = i + 1
Wend
MsgBox s

End Sub
Sub test03()
i = 1
Do Until i > 10
s = s + i * i
i = i + 1
Loop
MsgBox s
End Sub
このほかにも、たとえば
http://www001.upp.so-net.ne.jp/yoshihiro/gram3.htm
の「Ｄｏ文」の種類があります。

お礼

お礼が遅れてしまい大変申し訳ございません<(_ _)>
お陰で助かりました≦(._.)≧
URLまで載せていただき、本当ありがとうございました。

回答No.1

neKo_deux

構文に関しては、ヘルプで対象のキーワードを検索すれば、サンプルがありますよ。
それぞれの構文の繰り返し、判定順序に合わせて、初期状態や判定条件を決めてください。
後は間違いがあるのなら、実際に結果を見たり、ブレークポイントを指定して計算の順序を確かめたりしながら、間違いを修正します。

お礼

返事遅れてしまい、大変申し訳ございません。
ヘルプの検索機能ですか！覚えておきたいと思います。
ありがとうございました<(_ _)>