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

题目

输出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