vb设计一个程序,统计1000以内能被7整除的正整数的个数.
问题描述：
vb设计一个程序,统计1000以内能被7整除的正整数的个数.
可以快点吗,有劳了- -
答
private sub form_click()
dim n as integer,i as integer
for i =7 to 1000
if i mod 7 = 0 then n=n+1
next
print n
end sub