输出150-200的能被7但不能被3整除的数.VB程序

问题描述:

输出150-200的能被7但不能被3整除的数.
VB程序

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