VBA

大学一年でプログラミングを勉強しているものです。来週の情報の授業で以下の問題のプログラムを勉強するのですが、予習する上で、予めどのようなプログラム表記になるのか気になったので、質問させて頂きました。何方か分かる方がいれば宜しくお願いします！

1から100までの全ての整数の2乗和をfor〜next構文、while〜wend構文、Do Until〜Loop構文を用いて計算して、結果を表示せよ。ただし2乗和の変数はLong型で宣言すること。

No.1 ベストアンサー 回答者： kamejiro 回答日時： 2023/01/14 14:31

1から100までの全ての整数の2乗和をfor〜next構文

Sub a()
Dim s As Long
Dim i As Long
s = 0
For i = 1 To 100
s = s + i * i
Next i
MsgBox s
End Sub

1から100までの全ての整数の2乗和をwhile〜wend構文
Sub c()
Dim s As Long
Dim i As Long
s = 0
i = 1
While i <= 100
s = s + i * i
i = i + 1
Wend
MsgBox s
End Sub

1から100までの全ての整数の2乗和をDo Until〜Loop構文
Sub b()
Dim s As Long
Dim i As Long
s = 0
i = 1
Do Until i > 100
s = s + i * i
i = i + 1
Loop
MsgBox s

この回答へのお礼

この度はご回答いただきありがとうございます。参考にさせていただきます！

お礼日時：2023/01/15 10:38

No.2 回答者： めぐみん_ 回答日時： 2023/01/14 15:17

２×２をべき乗でなら 2^2 かな。

http://excelvba.pc-users.net/fol5/5_3.html