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