Private Sub Command1_Click()
For i = 150 To 200
If i Mod 7 = 0 And i Mod 3 > 0 Then Print i
Next i
End Sub
符合条件的数共有5个：154,161,175,182,196