±Æ§Ç°}¦Cªº¤èªk SORT

blueteddy

¤j®a¦n
·Q½Ð°Ý­n¦p¦ó±Æ§Ç¤@­Ó°}¦C©O(¼Æ¦r¥Ñ¤p¨ì¤j)
dim rbc6 () as doulbe
    For T = 1 To 1000
           For k = 1 To 12
                       RBC6(k) = RBC4(T, k)
           Next k
          ¦b¦¹³B·Q­n±Nrbc6 ±Æ§Ç ¦A¶i¦æ³B²z   
     Next T
ÁÂÁ¤j®a¤F

kimbal

Option Explicit

Sub test()
     
    Dim rbc6(5) As Double

     rbc6(0) = 5
     rbc6(1) = 6
     rbc6(2) = 3
     rbc6(3) = 111
     rbc6(4) = 2
     rbc6(5) = 1

    Call BubbleSort(rbc6)
     
End Sub

Sub BubbleSort(MyArray() As Double)
     
    Dim First           As Integer
    Dim Last            As Integer
    Dim i               As Integer
    Dim j               As Integer
    Dim Temp            As Double
    Dim List            As Double
     
    First = LBound(MyArray)
    Last = UBound(MyArray)
    For i = First To Last - 1
        For j = i + 1 To Last
            If MyArray(i) > MyArray(j) Then
                Temp = MyArray(j)
                MyArray(j) = MyArray(i)
                MyArray(i) = Temp
            End If
        Next j
    Next i
   
End Sub

GBKEE

¦^´_ 1# blueteddy

1. Sub test()
   
2.     Dim rbc6(5) As Double
   
3.      rbc6(0) = 5
   
4.      rbc6(1) = 6
   
5.      rbc6(2) = 3
   
6.      rbc6(3) = 111
   
7.      rbc6(4) = 2
   
8.      rbc6(5) = 1
   
9.     Ex(rbc6)
   
10. End Sub
    
11. Sub Ex(MyArray() As Double)
    
12.     Dim Ar, i As Integer
    
13.     Ar = MyArray
    
14.     For i = 0 To UBound(Ar)
    
15.         MyArray(i) = Application.WorksheetFunction.Small(Ar, i + 1)
    
16.     Next
    
17. End Sub

½Æ»s¥N½X

blueteddy

¦^´_ 3# GBKEE


    ·PÁ©Ô~~