怎样把随机输入的20个数从大到小的顺序排列出来

option base 1 是什么意思

option base 1 可写可不写，没什么出入的

不知道我这是什么算法,因老师排高低的方法模拟的算法,CLSDIM A(999)DATA 23213123,12,34,5,1,7,2,21312max = 8FOR k = 1 TO maxREAD A(k)NEXT kb(1) = A(1)FOR COMP = 2 TO max: inB = 0Bincr: inB = inB + 1: IF inB = COMP THEN b(COMP) = A(COMP): GOTO RECIF A(COMP) < b(inB) THEN GOTO BincrFOR savB = inB TO COMP - 1c(savB) = b(savB)NEXT savBb(inB) = A(COMP)FOR lodB = inB + 1 TO COMPb(lodB) = c(lodB - 1)NEXT lodBREC: NEXT COMPFOR i = 1 TO maxPRINT b(i)NEXT i

dim blue(20) as integerRandomize (37255)For i = 0 To 19blue(i) = Fix(Rnd * 100) + 1Nextstart = 0DoFor j = start To 19If blue(j) > blue(start) Thent = blue(start)blue(start) = blue(j)blue(j) = tEnd IfNextPrint blue(start)start = start + 1If start > 19 Then Exit DoLoop