比较大小

Cls

Font.Size=24

Dim n as integer

dim sierdum(15) as integer

n=1

while n<=15

sierdun(n)=int(rnd*1000)

n=n+1

wend

dim swap as integer

m=1

while m<=14

n=1

while n<=15-m

if ierdun(n<sierdun(n+1) then

swap=sierdun(n)

sierdun(n)=sierdun(n+1)

sierdun(n+1)=swap

end if

n=n+1

wend

m=m+1

wend

n=1

while n<=15

print sierdun(n)

n=n+1

wend

end  sub

丢掉手机不知道还会多少，，，，，