Private Sub Command1_Click()
Dim n As Integer, d As String
For n = 100 To 300
    If n Mod 3 <> 0 Then
   Print n;
    End If
Next n
End Sub

Private Sub Command1_Click()
自己解决了，哇咔咔~

Dim n As Integer, d As String, m As Integer
For n = 100 To 200
    If n Mod 3 <> 0 Then
        Print n;
        m = m + 1  '定义m，m的初始值为0
      If m Mod 10 = 0 Then
           Print vbCrLf   '输出10个数后打印回车键，使得一行以10个数输出
      End If
    End If
Next n
End Sub