ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¤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

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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 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

TOP

¦^´_ 3# GBKEE


    ·PÁ©Ô~~

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD