dim s3 as long ,s7 as longdim i as longfor i=1 to 100 if i mod 3 = 0 then s3 = s3 + 1 if i mod 7 = 0 then s7 = s7 + 1next i's3,s7即所求答案
