【アルゴリズム】 1から５までの和


Private Sub CommandButton1_Click()
Dim i As Long
Dim wa As Long

' 初期化。
i = 0
wa = 0

' ループ開始。
For i = 1 To 5
wa = wa + i
Next

' セル番地A1に変数waの現在値を表示。
Range("A1").Value = wa

End Sub