[amgad525]

PHP كود :

Dim aray1D As Integer() = New Integer() {4, 2, 3, 9, 6, 5, 4, 7}
Array.Sort(aray1D) 


PHP كود :

Dim aray2D(,) As Double = {{4, 2}, {3, 9}, {6, 5}, {4, 7}}
Sort2DArray(aray2D) 


PHP كود :

Sub Sort2DArray(ByRef arr2D As Double(,))
    Dim key(arr2D.GetLongLength(0) - 1) As Double
    Dim item(arr2D.GetLongLength(0) - 1) As Double
    For i = 0 To arr2D.GetLongLength(0) - 1
        key(i) = arr2D(i, 0)
        item(i) = arr2D(i, 1)
    Next
    Array.Sort(key, item)
    For i = 0 To arr2D.GetLongLength(0) - 1
        arr2D(i, 0) = key(i)
        arr2D(i, 1) = item(i)
    Next
End Sub