for..next

Sub fornext循環()
Dim i!, j!
For i = 1 To 100 step 1(1能夠默認不寫)
j = j + i
Next
MsgBox j
End Sub