[سعود]

@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته








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

PHP كود :

Dim a() As Integer = {2, 6, 9, 7, 5, 8}Array.Sort(a) ' ترتيب تصاعديArray.Reverse(a) ' ترتيب تنازلي 


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

راائع جدا

كود :

Dim a() As Integer = {0, 1, 2, 3, 4, 5}        
Array.Sort(a) ' ترتيب تصاعدي
' Array.Reverse(a) ' ترتيب تنازلي  
For Each t In a
MsgBox(t)
Next