Private Sub Command1_Click() Dim b (1 To 10) As Integer Print \"随机产生的数据：\" For i = 1 To 10
b(i) = Int ( Rnd * 11 + 20) Print b(I) ; Next i
Print paixu ( b() , 10 )End Sub
b()=>a() paixu<=paixu Next iEnd Function从小到大排序
Public Function paixu( a() As Integer, n) As String Dim I , j , t , iMin as Integer For i = 1 To n - 1 iMin =i
For j = i +1 To n If a(j) <= a(iMin) Then iMin =j Next j
t=a(iMin): a(iMin) = a(i): a(i) =t Next i
Print “最终排序结果是：” paixu = “ ” For i = 1 To n
paixu = paixu & \" \" & a(i) Next iEnd Function
