3、循环语句

1、

Sub 奇数()
Dim i As Integer
xrow = 1
For i = 1 To 100 Step 2
Cells(xrow, "A").Value = i
xrow = xrow + 1
Next
End Sub

2、

Sub 能被3整除的数()
Dim i As Integer
xrow = 1
For i = 1 To 100
If i Mod 3 = 0 Then
Cells(xrow, "B").Value = i
xrow = xrow + 1
End If
Next

End Sub

3、

Sub ss()

Dim i As Integer
xrow = 1
For i = 3 To 100 Step 3
Cells(xrow, "C").Value = i
xrow = xrow + 1
Next

End Sub