计算从1到13230之间所有的能同时整除3,7,9的整数的个数.

dim i as integer
dim a as integer
a=3*7*9
for i=1 to 13230
if i mod a=0 then
'这里你要对i干什么?,我就打印到立即窗口上
debug.print i
end if
next