VB编程求1到1000中能被3整除的数的个数在[1~1000]区间中的所有整数中,分别计算能被3整除的数的个数及能被7整除的数的个数,结果显示如题所示.要求:必须使用循环语句实现

问题描述:

VB编程求1到1000中能被3整除的数的个数
在[1~1000]区间中的所有整数中,分别计算能被3整除的数的个数及能被7整除的数的个数,结果显示如题所示.要求:必须使用循环语句实现

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