dim i as long
dim m as long
m=0
for i=200 to 400
if (i mod 3)=0 then '判断能被3整除
if (i mod 7)<>0 then '判断不能被7整除
m=m+1 '找到了，个数累加1
end if
end if
next i
msgbox "200-400之间（含200和400），能被3整除但不能被7整除的个数为：" & m
56个
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024