用选择法按递增顺序排序

  Private Sub Command1_Click()

    Dim a(1 to 6) as integer,i%,j%,amin%,t%

    For i=1 to 6

      a(i)=InputBox(“给数组元素赋值”)

      [ 6 ] 

    n=6

    For i=1 to   [ 7 ] 

     amin=   [ 8 ] 

     For j=  [ 9 ]   to n

       If a(j)<a(amin) then   [ 10 ] 

     Next j

     t=a(i)

     a(i)=a(amin)

     a(amin)=t

    Next i

  End Sub

 [1]   End If    [2]  m mod n    [3]   Exit Do    [4]   n=r   [5] n                                     [6]   End for  [7]     n-1       [8]  i     [9]   i+1    [10]   amin=j