亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

用選擇法按遞增順序排序

  Private Sub Command1_Click()

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

    For i=1 to 6

      a(i)=InputBox(“給數(shù)組元素賦值”)

      [ 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