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