do while list1.listcount<20n=int(100*rnd)+1for i=0 to list1,listcount-1if list1(i)=n then exit fornextif i=list1.listcount then list1.additem nloop
