求助！大侠们谁知道如何给十个任意数排序？急求！！！

什么叫做“冒泡法”？

对不起拉，我学QB就仅仅会用PRINT 什么的
因为学校根本就不�

QB书上不是有3种方法吗�

DATA 1,45,69,23,12,3,37,22,19
DIM B(69)
FOR I=1 TO 9
READ A
B(A)=B(A+1)
NEXT I
FOR I=1 TO 69
FOR J=1 TO B(I)
PRINT J;" ";
NEXT J
NEXT I
END

InsertSort
ShellSort
QuickSort
HeapSort
…�

对不起拉，我学QB就仅仅会用PRINT 什么的
因为学校根本就不教 
 什么学校啊? 再就是选择法了!

我习惯用 交换法
不超过10的数组元素，不需定义
 for i=1 to 10 '产生10个随机数
 a(i)=rnd*100
 nexit i
 for m=1 to 10 ，交换法排列 
 for n=m+1 to 10
 if a(m)<a(n) then swap a(m),a(n)
next n,m
 for i =1 to 10 ' 显示出 5个数 是不是按大小顺序排列
 print a(i)
next i
 end
《交换法》，《冒泡法》，效率低，但易懂些 而《选择法》 虽效率高，但不易看懂，容易出错，反正现在的机子快的很。

DATA 1,45,69,23,12,3,37,22,19
DIM B(69)
FOR I=1 TO 9
READ A
B(A)=B(A+1)
NEXT I
FOR I=1 TO 69
FOR J=1 TO B(I)
PRINT J;" ";
NEXT J
NEXT I
END 
 老大你的 程序是不是有问题啊！？？？
 可以加我的QQ306801246 聊聊�

...搂住你的两个冒泡法有什么区别...

把内循环改为:for n=i+1to 10
不是更好吗?

let c =a(n) 
 let a(n) = a(n+1) 
 let a(n+1) = c 

这里不能用SWAP�

数组应该DIM上限吧
最上面加个
OPTION BASE 1

z=10000
for j=1 to 10
 y=0
 for i=1 to 10
 read x
 if z>x and y<x then y=x
 next i
 z=y
 print y,
next j
end

排序很多方法拉 希尔，冒泡，快速，选择．
很多�