dim A(1 to 100) as integer,i as integer,j as integer,temp as integer
for i=1 to 100
randomize
a(i)=int(rnd()*1000+1)
next i
for i=1 to 99
for j=i+1 to 100
if A(i)>a(j) then
temp=a(i):a(i)=a(j):a(j)=temp
end if
next j
next i
for i=1 to 100
print a(i);
if i mod 10=0 then print
next i
a(i)=int(rnd()*1000+1)
a(i)=int(rnd()*999+1)