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