统计从100-10000中,既能被7整除,也能被3整除的所有数字的个数. vb题

---

Dim i, tj As Integer
tj = 0
For i = 100 To 10000
If i Mod 7 = 0 And i Mod 3 = 0 Then tj = tj + 1

Next
MsgBox "卜举个核晌数为"型氏碧 & tj

---