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