VB。打印出100-200不能被3整除的数

Private Sub Command1_Click()
For i = 100 To 200
If i Mod 3 <> 0 Then
Print i;
j = j + 1
If j Mod 5 = 0 Then
j = 0
Print
End If
End If
Next
End Sub

sub form_click()
for i&=100 to 200
if i mod 3 then
c=c&+1
print i & iif(c mod 5,vbtab,vbcrlf);
end if
next
end sub

For i = 100 To 200
If i Mod 3 <> 0 Then
Text1.Text = Text1.Text & " " & i & " "
End If
Next i