例: For statement

' Compute factorials for numbers from 1 to 10
Dim m As Long
Dim j As Integer
m& = 1
For j% = 1 To 10 
   m& = m& * j%
   Print m&
Next
' Output:
' 1  2  6  24  120  720  5040  40320  362880  3628800