Sorting Integer Array Menurut Indeks Posisi

Ada berbagai metode pengurutan data dalam aplikasi Visual Basic ®. Artikel ini menjelaskan cara untuk mengurutkan array bilangan bulat sambil menjaga urutan asli array.

Saat menulis aplikasi dalam Visual Basic ®, Anda dapat menyimpan nilai numerik atau string dalam kontrol List Box. Urutkan properti List Box dapat diatur ke True untuk secara otomatis mengurutkan entri seperti yang ditambahkan dengan kontrol. Namun, jika Anda perlu untuk menyortir, misalnya, sebuah array bilangan bulat sehingga posisi dari setiap item dalam array yang diawetkan, Anda harus menulis prosedur semacam Anda sendiri.

Kode berikut menunjukkan bagaimana mengurutkan array nilai integer sesuai dengan posisi integer dalam array. Dalam program contoh (di bawah), bilangan bulat yang disimpan dalam array sebagai berikut:

Code:

Mat(1)=5
Mat(2)=7
Mat(3)=4
Mat(4)=6
Mat(5)=3

Jika kita diurutkan nilai-nilai ini dalam urutan numerik, hasilnya akan menjadi:

Code:

Mat(1)=7
Mat(2)=6
Mat(3)=5
Mat(4)=4
Mat(5)=3

Namun, kami ingin dapat mengurutkan array sesuai dengan nilai indeks integer dalam array. Oleh karena itu, program contoh macam array ini sebagai:

Code:

Mat(1)=2
Mat(2)=4
Mat(3)=1
Mat(4)=3
Mat(5)=5

Example

Code:

Sub Form_Load()
Dim X As Integer
Dim Mat(1 To 5) As Integer
Dim Temp As Integer
Dim Order As String
Dim Tempstr As String
Mat(1) = 5
Mat(2) = 7
Mat(3) = 4
Mat(4) = 6
Mat(5) = 3

For X = 1 To 5
List1.AddItem "Number " + Str$(Mat(X))
Next X

Order = 12345
X = 1
Y = 1
For X = 1 To 5
For Y = 1 To 5
If X = Y Or X < Y Then
GoTo NextOne
End If

If Mat(Y) > Mat(X) Then
Temp = Mat(X)
Mat(X) = Mat(Y)
Mat(Y) = Temp
Tempstr = Mid$(Order, X, 1)
Mid$(Order, X, 1) = Mid$(Order, Y, 1)
Mid$(Order, Y, 1) = Tempstr
End If
NextOne:
Next Y

Next X
'Display results in List Box #2
For X = 5 To 1 Step -1
List2.AddItem "Array" + Str$(Mid$(Order, X, 1))
Next X
End Sub