230问答网 > vb编程：求在[1~1000]区间中的所有整数中能被3整除的数的个数及能被7整除的数的个数，用循环语句；

vb编程：求在[1~1000]区间中的所有整数中能被3整除的数的个数及能被7整除的数的个数，用循环语句；

2024-12-17 05:25:20

推荐回答（1个）

回答1：

private sub command1_click()
dim i,a,b
for i=1 to 1000
if i mod 3=0 then a=a+1
if i mod 7=0 then b=b+1
next
print "1~1000中能被3整除的数的个数=" & a
print "1~1000中能被7整除的数的个数=" & b
end sub