VB编程求1到1000中能被3整除的数的个数

dim num3,num7 as integer
for i=1 to 1000
if i mod 3=0 then
num3=num3+1
end if
if i mod 7=0 then
num7=num7+1
end if
next
最后num3就是能被3整除的数的个数.num7是能被7整除的个数.