作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 10:30:39
vb编程:求在[1~1000]区间中的所有整数中能被3整除的数的个数及能被7整除的数的个数,用循环语句;
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 su