Question

Sky

h=1.g=1でh＝h＋h＝1+1というのはわかるのですが、その後gに1+1を代入する理由とLoopのやり方がわかりません。式や理由込みで教えて欲しいです。

Sub pro40
Dim g As Integer
Dim h As Integer
h = 1
g=1
Do While g < 5
h=h+h
g=g+1
Loop
MsgBox "g=" & g
MsgBox "h=" & h
End Sub
g
h

pro4g_ 5,h 16
[解説] ①hに1、gに1を代入
②g<5の間、繰り返す
③hに 1+1 を代入、gに1+1 を代入
④gには2が代入されているので繰り返す
⑤h2+2 を代入、gに2+1 を代入
⑥gには3が代入されているので繰り返す
⑦hに4+4 を代入、gに3+1 を代入
⑧gには4が代入されているので、繰り返す
⑨hに8+8 を代入、gに4+1 を代入
⑩0g <5ではなくなったので繰り返し終了
①1g, h を表示

Answer 1

結

まず、Loopに該当するのは
6から9行目のことです。

そして、Loopは
ある条件（今回は 1<= g < 5）の間
ぐるぐるぐるぐる回り続ける（＝Loopし続ける）ことです。

送付写真、字が汚くて申し訳ありませんが
1回目のループ:h=2,g=2（←gが5より小さいので2回目のループに入る）
2回目のループ:h=4,g=3 （←gが5より小さいので3回目のループに入る）
・・・
で、gが5より大きくなったらループの外に出て終了です。