dim a as integer
for i =100 to 999
if i mod 7 = 0 and i mod 2 0 then
print i
a = a + 1
end if
next
msgbox "能被7整除的三位奇数的总个数为:" & a