مقایسه ایتم های لیست باکس

[goldpower]

چه طور می شه ایتم های موجود در لیست باکس رو با هم مقایسه کرد و به صورت صعودی مرتب کرد و در یه لیست باکس دیگه به صورت مرتب شده نشون داد؟

[m.4.r.m]

Dim i As Integer
For i = 1 To 10
List1.AddItem Left((Rnd(5)) / 1000, 4)
Next i


حالت sorted لیست باکس رو هم True کن همین

روش دیگه استفاده از الگوریتم های مرتب سازی مثل : حبابی ، و....


Private Sub Form_Load()
List1.Clear
End Sub


Private Sub sort_Click()
Dim a(1 To 6)
For i = 1 To 6
prompt = "Enter Number " + Str(i)
a(i) = Val(InputBox(prompt, "Enter Data Box", ""))
Next i
For i = 1 To 6
For j = i To 6
If a(i) > a(j) Then
temp = a(j)
a(j) = a(i)
a(i) = temp
End If
Next j, i
List1.Clear
For i = 1 To 6
List1.AddItem Str(a(i))
Next i
End Sub

[goldpower]

چه طور باید ایتم های این لیست باکس رو با توجه به شرایط زیر :

http://axgig.com/images/03854045881865774023.jpg

همون طور که در شکل با کادر قرمز مشخص شده. چهار تا مختصات وجود داره. من می خواهم اون مختصاتی که y های یکسانی دارند x هاشون با هم مقایسه بشن و اگه اختلافشون 3 تا نبود از لیست باکس حذف بشن .

نمونه :
از چهار مختصات (293,26) و (296,26) و (302,26) و (305,26) همون طور که مشخصه y=26 در همشون برابر و x اون دو تایی که ابی رنگ هستن 3 تا فاصله دارند و چون با اون سبزها فاصله 3 تایی ندارند و از اونا کوچکترند مورد قبول هستند.

[goldpower]

کسی نمی تونه کمک کنه ؟؟؟