[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته




إن شاء الله يكون المطلوب


ترتيب تصاعدي

PHP كود :

Dim a() As Integer = {2, 6, 9, 7, 5, 8}
Array.Sort(a)
For Each t In a
    MsgBox(t)
Next 


ترتيب تنازلي

PHP كود :

Dim a() As Integer = {2, 6, 9, 7, 5, 8}
Array.Sort(a)
Array.Reverse(a)
For Each t In a
    MsgBox(t)
Next 


[COLOR="#FF0000"]تم التعديل


[/COLOR]
السلام عليكم ورحمة الله وبركاته