for..next

Sub fornext循环()
Dim i!, j!
For i = 1 To 100 step 1(1可以默认不写)
j = j + i
Next
MsgBox j
End Sub