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

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