標題: 排序陣列的方法 [打印本頁]

---

作者: blueteddy    時間: 2011-10-25 16:03     標題: 排序陣列的方法

大家好
想請問要如何排序一個陣列呢(數字由小到大)
dim rbc6 () as doulbe
    For T = 1 To 1000
           For k = 1 To 12
                       RBC6(k) = RBC4(T, k)
           Next k
          在此處想要將rbc6 排序 再進行處理   
     Next T
謝謝大家了

---

作者: kimbal    時間: 2011-10-25 20:54

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    時間: 2011-10-26 17:01

回復 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

複製代碼

---

作者: blueteddy    時間: 2011-10-28 09:13

回復 3# GBKEE


    感謝拉~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)