100-200间共有几个数是7的倍数,共有几个3的倍数.其中能被3,不能被7整除的有几个?

[-100,-200]区间内表示整数的点有-100,-101,-102,.,-200共101个；如不包括-100,-200有99个
表示奇数的点有-101,-103,-105,.,-199共50个

Private Sub Command1_Click()
Dim s As Integer
For i = 100 To 200
If i Mod 3 = 0 And i Mod 7 0 Then s = s + i
Next i
Print "所求的和为：" & s
End Su

I have studied English for many years.I really enjoy it.The main reason was that I can get a feeling of success from it.
When I was young ,I admired the people who spoke English fluently.So I fell in love with it and determined to work hard on it.In the beginning,I began to read English everyday and I always carried a little dictionary with me everywhere I went.Besides ,I often met the standards of the course and devoted myself to finishing assignment .I have made a lot of practice as well.I believe that practice makes perfect.
Learning a foreign language was a trying experience,but I treasure it very much .I have reaped the benefits of the hard work .What is more,I could talk with people in English freely and confidently.So I believe if we learn it as I mentioned ,we chould make our language learning better.

299,150