排序

Private sub command1_click

Cls

Font.size=30

Dim n as integer

Dim size asinteger

Size=int(val(me.text1.text))

Dim sierdun() asinteger

Redim sierdun(size)

N=lbound(sierdun)

While n <=ubound(sizedun)

Sierdun(n)=int(rnd*1000)

n=n+1

wend

dim swap as integer

m=lbound (sierdun)

while m<=ubound(sierdun)

n=lbound(sierdun)

while n <=ubound(sierdun)-m

if sierdun (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=lbound(sierdun)

while n<=ubound(sierdun)

print sierdun(n)

n=n+1

wend

end sub