Private
sub form_click()
Dim
n%,s&,i%
n=0
s=0
for i=100 to 200 step 2
n=n+1
s=s+i
next i
print “个数是:”;n,“和是:”;s
end sub