dim a(50) as integer
dim i,j as integer 
for i = 1 to 50
input a(i)
next i
for i= 1 to 49 
   for j= i+1 to 50
      if a(j)<a(i) then 
         t=a(j)
         a(i)=a(j)
         a(j)=t
      end if
   next j
next i
for i= 1 to 50
print a(i);
next i
end 

我不是高手，来看看

一楼代码基本可行，楼主只要把输入语句改好，把全体代码放进某一合适的事件里就行了。
当然，dim语句改一下也行，不改也不会出错。