1. 为什么不用 if ？
2. 什么叫逻辑排序？

dim s(10000)

do
   i=i+1
   read s(i)
loop until s(i)=0
data 1,33,23,6534,344,0

for j=1 to i-1
    for k=j+1 to i
        do while s(k)>s(j)
           swap s(k),s(j)
        loop
next k,j
       
for j=1 to i
    print s(j)
next

用 do while 来代替 if ，这有什么意义？