Вопрос:

Функция сортировки массива VBA?

arrays sorting vba vb6 ms-project

215401 просмотра

10 ответа

4452 Репутация автора

Я ищу достойную реализацию сортировки для массивов в VBA. Быстрая сортировка будет предпочтительнее. Или любой другой алгоритм сортировки, кроме пузыря или слияния будет достаточно.

Обратите внимание, что это для работы с MS Project 2003, поэтому следует избегать любых собственных функций Excel и всего, что связано с .net.

Автор: Mark Nold Источник Размещён: 30.09.2008 09:06

Ответы (10)


89 плюса

75596 Репутация автора

Решение

Посмотрите здесь :
Изменить: ссылочный источник (allexperts.com) с тех пор закрыт, но вот соответствующие комментарии автора :

В Интернете доступно множество алгоритмов для сортировки. Наиболее универсальным и обычно самым быстрым является алгоритм быстрой сортировки . Ниже приведена функция для этого.

Вызовите его просто, передав массив значений (строковых или числовых; это не имеет значения) с нижней границей массива (обычно 0) и верхней границей массива (т.е. UBound(myArray))

Пример :Call QuickSort(myArray, 0, UBound(myArray))

Когда это будет сделано, myArrayбудет отсортировано, и вы можете делать то, что вы хотите с ним.
(Источник: archive.org )

Public Sub QuickSort(vArray As Variant, inLow As Long, inHi As Long)
  Dim pivot   As Variant
  Dim tmpSwap As Variant
  Dim tmpLow  As Long
  Dim tmpHi   As Long

  tmpLow = inLow
  tmpHi = inHi

  pivot = vArray((inLow + inHi) \ 2)

  While (tmpLow <= tmpHi)
     While (vArray(tmpLow) < pivot And tmpLow < inHi)
        tmpLow = tmpLow + 1
     Wend

     While (pivot < vArray(tmpHi) And tmpHi > inLow)
        tmpHi = tmpHi - 1
     Wend

     If (tmpLow <= tmpHi) Then
        tmpSwap = vArray(tmpLow)
        vArray(tmpLow) = vArray(tmpHi)
        vArray(tmpHi) = tmpSwap
        tmpLow = tmpLow + 1
        tmpHi = tmpHi - 1
     End If
  Wend

  If (inLow < tmpHi) Then QuickSort vArray, inLow, tmpHi
  If (tmpLow < inHi) Then QuickSort vArray, tmpLow, inHi
End Sub

Обратите внимание, что это работает только с одномерными (иначе говоря, «нормальными»?) Массивами. (Там же рабочий многомерный массив QuickSort здесь .)

Автор: Jorge Ferreira Размещён: 30.09.2008 09:10

9 плюса

401673 Репутация автора

Объяснение на немецком языке, но код хорошо протестирован на месте:

Private Sub QuickSort(ByRef Field() As String, ByVal LB As Long, ByVal UB As Long)
    Dim P1 As Long, P2 As Long, Ref As String, TEMP As String

    P1 = LB
    P2 = UB
    Ref = Field((P1 + P2) / 2)

    Do
        Do While (Field(P1) < Ref)
            P1 = P1 + 1
        Loop

        Do While (Field(P2) > Ref)
            P2 = P2 - 1
        Loop

        If P1 <= P2 Then
            TEMP = Field(P1)
            Field(P1) = Field(P2)
            Field(P2) = TEMP

            P1 = P1 + 1
            P2 = P2 - 1
        End If
    Loop Until (P1 > P2)

    If LB < P2 Then Call QuickSort(Field, LB, P2)
    If P1 < UB Then Call QuickSort(Field, P1, UB)
End Sub

Вызывается так:

Call QuickSort(MyArray, LBound(MyArray), UBound(MyArray))
Автор: Konrad Rudolph Размещён: 30.09.2008 09:12

15 плюса

19050 Репутация автора

Я преобразовал алгоритм «быстрой быстрой сортировки» в VBA, если кто-то еще этого хочет.

Я оптимизировал его для работы с массивом Int / Longs, но было бы просто преобразовать его в тот, который работает на произвольных сопоставимых элементах.

Private Sub QuickSort(ByRef a() As Long, ByVal l As Long, ByVal r As Long)
    Dim M As Long, i As Long, j As Long, v As Long
    M = 4

    If ((r - l) > M) Then
        i = (r + l) / 2
        If (a(l) > a(i)) Then swap a, l, i '// Tri-Median Methode!'
        If (a(l) > a(r)) Then swap a, l, r
        If (a(i) > a(r)) Then swap a, i, r

        j = r - 1
        swap a, i, j
        i = l
        v = a(j)
        Do
            Do: i = i + 1: Loop While (a(i) < v)
            Do: j = j - 1: Loop While (a(j) > v)
            If (j < i) Then Exit Do
            swap a, i, j
        Loop
        swap a, i, r - 1
        QuickSort a, l, j
        QuickSort a, i + 1, r
    End If
End Sub

Private Sub swap(ByRef a() As Long, ByVal i As Long, ByVal j As Long)
    Dim T As Long
    T = a(i)
    a(i) = a(j)
    a(j) = T
End Sub

Private Sub InsertionSort(ByRef a(), ByVal lo0 As Long, ByVal hi0 As Long)
    Dim i As Long, j As Long, v As Long

    For i = lo0 + 1 To hi0
        v = a(i)
        j = i
        Do While j > lo0
            If Not a(j - 1) > v Then Exit Do
            a(j) = a(j - 1)
            j = j - 1
        Loop
        a(j) = v
    Next i
End Sub

Public Sub sort(ByRef a() As Long)
    QuickSort a, LBound(a), UBound(a)
    InsertionSort a, LBound(a), UBound(a)
End Sub
Автор: Alain Размещён: 03.12.2010 04:37

6 плюса

3426 Репутация автора

Я разместил некоторый код в ответ на связанный вопрос на StackOverflow:

Сортировка многомерного массива в VBA

Примеры кода в этом потоке включают в себя:

  1. Векторный массив Quicksort;
  2. Многостолбцовый массив QuickSort;
  3. BubbleSort.

Оптимизированная Quicksort от Alain очень блестящая: я только что выполнил базовую процедуру разделения и рекурсии, но в приведенном выше примере кода есть функция gating, которая сокращает избыточные сравнения дублированных значений. С другой стороны, я пишу код для Excel, и есть еще несколько способов защитного кодирования - будьте осторожны, он понадобится вам, если ваш массив содержит пагубный вариант 'Empty ()', который сломает ваш Пока .. Wend операторы сравнения и заманивают ваш код в бесконечный цикл

Обратите внимание, что алгоритмы быстрой сортировки - и любой рекурсивный алгоритм - могут заполнить стек и завершить работу Excel. Если в вашем массиве менее 1024 членов, я бы использовал элементарную BubbleSort.

Public Sub QuickSortArray (ByRef SortArray As Variant, _
                                Необязательный lngMin As Long = -1, _ 
                                Необязательный lngMax As Long = -1, _ 
                                Необязательный lngColumn As Long = 0)
При ошибке Resume Next 
'Сортировать 2-мерный массив
Пример использования: сортировка arrData по содержимому столбца 3 ' 'QuickSortArray arrData,,, 3
' «Автор: Джим Реч 10/20/98 Excel.Programming
» Модификации, Найджел Хеффернан:
'' Escape не удалось сравнить с пустым вариантом Защитное кодирование: проверьте ввод
Дим я, как долго Dim J As Long Dim varMid As Variant Dim arrRowTemp As Variant Dim lngColTemp As Long

If IsEmpty (SortArray) Тогда Exit Sub Конец, если
Если InStr (TypeName (SortArray), "()") <1, то IsArray () несколько сломан: ищите скобки в имени типа Exit Sub Конец, если
Если lngMin = -1, то lngMin = LBound (SortArray, 1) Конец, если
Если lngMax = -1, то lngMax = UBound (SortArray, 1) Конец, если
Если lngMin> = lngMax, то 'сортировка не требуется Exit Sub Конец, если

я = lngMin j = lngMax
varMid = Пусто varMid = SortArray ((lngMin + lngMax) \ 2, lngColumn)
«Мы отправляем« Пустые »и недействительные элементы данных в конец списка: If IsObject (varMid) Then 'обратите внимание, что мы не проверяем isObject (SortArray (n)) - varMid может подобрать допустимый элемент или свойство по умолчанию я = lngMax j = lngMin ElseIf IsEmpty (varMid) Тогда я = lngMax j = lngMin ElseIf IsNull (varMid) Тогда я = lngMax j = lngMin ElseIf varMid = "" Тогда я = lngMax j = lngMin ElseIf varType (varMid) = vbError Тогда я = lngMax j = lngMin ElseIf varType (varMid)> 17 Тогда я = lngMax j = lngMin Конец если

пока я <= j
В то время как SortArray (i, lngColumn) В то время как varMid lngMin j = j - 1 Венд,

если я <= j, то
Поменять местами ReDim arrRowTemp (LBound (SortArray, 2) К UBound (SortArray, 2)) Для lngColTemp = LBound (SortArray, 2) К UBound (SortArray, 2) arrRowTemp (lngColTemp) = SortArray (i, lngColTemp) SortArray (i, lngColTemp) = SortArray (j, lngColTemp) SortArray (j, lngColTemp) = arrRowTemp (lngColTemp) Далее lngColTemp Стереть arrRowTemp
я = я + 1 j = j - 1
End If

Wend
If (lngMin
End Sub

Автор: Nigel Heffernan Размещён: 24.02.2011 12:23

2 плюса

130 Репутация автора

Вы не хотели решения на основе Excel, но, поскольку у меня была та же проблема сегодня, и я хотел протестировать, используя другие функции Office Applications, я написал функцию ниже.

Ограничения:

  • 2-мерные массивы;
  • максимум 3 столбца в качестве ключей сортировки;
  • зависит от Excel;

Протестирован вызов Excel 2010 из Visio 2010


Option Base 1


Private Function sort_array_2D_excel(array_2D, array_sortkeys, Optional array_sortorders, Optional tag_header As String = "Guess", Optional tag_matchcase As String = "False")

'   Dependencies: Excel; Tools > References > Microsoft Excel [Version] Object Library

    Dim excel_application As Excel.Application
    Dim excel_workbook As Excel.Workbook
    Dim excel_worksheet As Excel.Worksheet

    Set excel_application = CreateObject("Excel.Application")

    excel_application.Visible = True
    excel_application.ScreenUpdating = False
    excel_application.WindowState = xlNormal

    Set excel_workbook = excel_application.Workbooks.Add
    excel_workbook.Activate

    Set excel_worksheet = excel_workbook.Worksheets.Add
    excel_worksheet.Activate
    excel_worksheet.Visible = xlSheetVisible

    Dim excel_range As Excel.Range
    Set excel_range = excel_worksheet.Range("A1").Resize(UBound(array_2D, 1) - LBound(array_2D, 1) + 1, UBound(array_2D, 2) - LBound(array_2D, 2) + 1)
    excel_range = array_2D


    For i_sortkey = LBound(array_sortkeys) To UBound(array_sortkeys)

        If IsNumeric(array_sortkeys(i_sortkey)) Then
            sortkey_range = Chr(array_sortkeys(i_sortkey) + 65 - 1) & "1"
            Set array_sortkeys(i_sortkey) = excel_worksheet.Range(sortkey_range)

        Else
            MsgBox "Error in sortkey parameter:" & vbLf & "array_sortkeys(" & i_sortkey & ") = " & array_sortkeys(i_sortkey) & vbLf & "Terminating..."
            End

        End If

    Next i_sortkey


    For i_sortorder = LBound(array_sortorders) To UBound(array_sortorders)
        Select Case LCase(array_sortorders(i_sortorder))
            Case "asc"
                array_sortorders(i_sortorder) = XlSortOrder.xlAscending
            Case "desc"
                array_sortorders(i_sortorder) = XlSortOrder.xlDescending
            Case Else
                array_sortorders(i_sortorder) = XlSortOrder.xlAscending
        End Select
    Next i_sortorder

    Select Case LCase(tag_header)
        Case "yes"
            tag_header = Excel.xlYes
        Case "no"
            tag_header = Excel.xlNo
        Case "guess"
            tag_header = Excel.xlGuess
        Case Else
            tag_header = Excel.xlGuess
    End Select

    Select Case LCase(tag_matchcase)
        Case "true"
            tag_matchcase = True
        Case "false"
            tag_matchcase = False
        Case Else
            tag_matchcase = False
    End Select


    Select Case (UBound(array_sortkeys) - LBound(array_sortkeys) + 1)
        Case 1
            Call excel_range.Sort(Key1:=array_sortkeys(1), Order1:=array_sortorders(1), Header:=tag_header, MatchCase:=tag_matchcase)
        Case 2
            Call excel_range.Sort(Key1:=array_sortkeys(1), Order1:=array_sortorders(1), Key2:=array_sortkeys(2), Order2:=array_sortorders(2), Header:=tag_header, MatchCase:=tag_matchcase)
        Case 3
            Call excel_range.Sort(Key1:=array_sortkeys(1), Order1:=array_sortorders(1), Key2:=array_sortkeys(2), Order2:=array_sortorders(2), Key3:=array_sortkeys(3), Order3:=array_sortorders(3), Header:=tag_header, MatchCase:=tag_matchcase)
        Case Else
            MsgBox "Error in sortkey parameter:" & vbLf & "Maximum number of sort columns is 3!" & vbLf & "Currently passed: " & (UBound(array_sortkeys) - LBound(array_sortkeys) + 1)
            End
    End Select


    For i_row = 1 To excel_range.Rows.Count

        For i_column = 1 To excel_range.Columns.Count

            array_2D(i_row, i_column) = excel_range(i_row, i_column)

        Next i_column

    Next i_row


    excel_workbook.Close False
    excel_application.Quit

    Set excel_worksheet = Nothing
    Set excel_workbook = Nothing
    Set excel_application = Nothing


    sort_array_2D_excel = array_2D


End Function

Это пример того, как проверить функцию:

Private Sub test_sort()

    array_unsorted = dim_sort_array()

    Call msgbox_array(array_unsorted)

    array_sorted = sort_array_2D_excel(array_unsorted, Array(2, 1, 3), Array("desc", "", "asdas"), "yes", "False")

    Call msgbox_array(array_sorted)

End Sub


Private Function dim_sort_array()

    Dim array_unsorted(1 To 5, 1 To 3) As String

    i_row = 0

    i_row = i_row + 1
    array_unsorted(i_row, 1) = "Column1": array_unsorted(i_row, 2) = "Column2": array_unsorted(i_row, 3) = "Column3"

    i_row = i_row + 1
    array_unsorted(i_row, 1) = "OR": array_unsorted(i_row, 2) = "A": array_unsorted(i_row, 3) = array_unsorted(i_row, 1) & "_" & array_unsorted(i_row, 2)

    i_row = i_row + 1
    array_unsorted(i_row, 1) = "XOR": array_unsorted(i_row, 2) = "A": array_unsorted(i_row, 3) = array_unsorted(i_row, 1) & "_" & array_unsorted(i_row, 2)

    i_row = i_row + 1
    array_unsorted(i_row, 1) = "NOT": array_unsorted(i_row, 2) = "B": array_unsorted(i_row, 3) = array_unsorted(i_row, 1) & "_" & array_unsorted(i_row, 2)

    i_row = i_row + 1
    array_unsorted(i_row, 1) = "AND": array_unsorted(i_row, 2) = "A": array_unsorted(i_row, 3) = array_unsorted(i_row, 1) & "_" & array_unsorted(i_row, 2)

    dim_sort_array = array_unsorted

End Function


Sub msgbox_array(array_2D, Optional string_info As String = "2D array content:")

    msgbox_string = string_info & vbLf

    For i_row = LBound(array_2D, 1) To UBound(array_2D, 1)

        msgbox_string = msgbox_string & vbLf & i_row & vbTab

        For i_column = LBound(array_2D, 2) To UBound(array_2D, 2)

            msgbox_string = msgbox_string & array_2D(i_row, i_column) & vbTab

        Next i_column

    Next i_row

    MsgBox msgbox_string

End Sub

Если кто-нибудь проверяет это, используя другие версии офиса, пожалуйста, напишите здесь, если есть какие-либо проблемы.

Автор: lucas0x7B Размещён: 25.05.2011 11:12

6 плюса

1173 Репутация автора

Натуральное число (строки) Быстрая сортировка

Просто навалить на тему. Обычно, если вы сортируете строки по номерам, вы получите что-то вроде этого:

    Text1
    Text10
    Text100
    Text11
    Text2
    Text20

Но вы действительно хотите, чтобы он распознавал числовые значения и сортировался как

    Text1
    Text2
    Text10
    Text11
    Text20
    Text100

Вот как это сделать ...

Замечания:

  • Я украл Quick Sort из Интернета давным-давно, не знаю, где сейчас ...
  • Я перевел функцию CompareNaturalNum, которая изначально была написана на C из Интернета.
  • Отличие от других Q-сортов: я не меняю значения, если BottomTemp = TopTemp

Быстрая сортировка натуральных чисел

Public Sub QuickSortNaturalNum(strArray() As String, intBottom As Integer, intTop As Integer)
Dim strPivot As String, strTemp As String
Dim intBottomTemp As Integer, intTopTemp As Integer

    intBottomTemp = intBottom
    intTopTemp = intTop

    strPivot = strArray((intBottom + intTop) \ 2)

    Do While (intBottomTemp <= intTopTemp)
        ' < comparison of the values is a descending sort
        Do While (CompareNaturalNum(strArray(intBottomTemp), strPivot) < 0 And intBottomTemp < intTop)
            intBottomTemp = intBottomTemp + 1
        Loop
        Do While (CompareNaturalNum(strPivot, strArray(intTopTemp)) < 0 And intTopTemp > intBottom) '
            intTopTemp = intTopTemp - 1
        Loop
        If intBottomTemp < intTopTemp Then
            strTemp = strArray(intBottomTemp)
            strArray(intBottomTemp) = strArray(intTopTemp)
            strArray(intTopTemp) = strTemp
        End If
        If intBottomTemp <= intTopTemp Then
            intBottomTemp = intBottomTemp + 1
            intTopTemp = intTopTemp - 1
        End If
    Loop

    'the function calls itself until everything is in good order
    If (intBottom < intTopTemp) Then QuickSortNaturalNum strArray, intBottom, intTopTemp
    If (intBottomTemp < intTop) Then QuickSortNaturalNum strArray, intBottomTemp, intTop
End Sub

Сравнение натуральных чисел (используется в быстрой сортировке)

Function CompareNaturalNum(string1 As Variant, string2 As Variant) As Integer
'string1 is less than string2 -1
'string1 is equal to string2 0
'string1 is greater than string2 1
Dim n1 As Long, n2 As Long
Dim iPosOrig1 As Integer, iPosOrig2 As Integer
Dim iPos1 As Integer, iPos2 As Integer
Dim nOffset1 As Integer, nOffset2 As Integer

    If Not (IsNull(string1) Or IsNull(string2)) Then
        iPos1 = 1
        iPos2 = 1
        Do While iPos1 <= Len(string1)
            If iPos2 > Len(string2) Then
                CompareNaturalNum = 1
                Exit Function
            End If
            If isDigit(string1, iPos1) Then
                If Not isDigit(string2, iPos2) Then
                    CompareNaturalNum = -1
                    Exit Function
                End If
                iPosOrig1 = iPos1
                iPosOrig2 = iPos2
                Do While isDigit(string1, iPos1)
                    iPos1 = iPos1 + 1
                Loop

                Do While isDigit(string2, iPos2)
                    iPos2 = iPos2 + 1
                Loop

                nOffset1 = (iPos1 - iPosOrig1)
                nOffset2 = (iPos2 - iPosOrig2)

                n1 = Val(Mid(string1, iPosOrig1, nOffset1))
                n2 = Val(Mid(string2, iPosOrig2, nOffset2))

                If (n1 < n2) Then
                    CompareNaturalNum = -1
                    Exit Function
                ElseIf (n1 > n2) Then
                    CompareNaturalNum = 1
                    Exit Function
                End If

                ' front padded zeros (put 01 before 1)
                If (n1 = n2) Then
                    If (nOffset1 > nOffset2) Then
                        CompareNaturalNum = -1
                        Exit Function
                    ElseIf (nOffset1 < nOffset2) Then
                        CompareNaturalNum = 1
                        Exit Function
                    End If
                End If
            ElseIf isDigit(string2, iPos2) Then
                CompareNaturalNum = 1
                Exit Function
            Else
                If (Mid(string1, iPos1, 1) < Mid(string2, iPos2, 1)) Then
                    CompareNaturalNum = -1
                    Exit Function
                ElseIf (Mid(string1, iPos1, 1) > Mid(string2, iPos2, 1)) Then
                    CompareNaturalNum = 1
                    Exit Function
                End If

                iPos1 = iPos1 + 1
                iPos2 = iPos2 + 1
            End If
        Loop
        ' Everything was the same so far, check if Len(string2) > Len(String1)
        ' If so, then string1 < string2
        If Len(string2) > Len(string1) Then
            CompareNaturalNum = -1
            Exit Function
        End If
    Else
        If IsNull(string1) And Not IsNull(string2) Then
            CompareNaturalNum = -1
            Exit Function
        ElseIf IsNull(string1) And IsNull(string2) Then
            CompareNaturalNum = 0
            Exit Function
        ElseIf Not IsNull(string1) And IsNull(string2) Then
            CompareNaturalNum = 1
            Exit Function
        End If
    End If
End Function

isDigit (используется в CompareNaturalNum)

Function isDigit(ByVal str As String, pos As Integer) As Boolean
Dim iCode As Integer
    If pos <= Len(str) Then
        iCode = Asc(Mid(str, pos, 1))
        If iCode >= 48 And iCode <= 57 Then isDigit = True
    End If
End Function
Автор: Profex Размещён: 16.10.2013 10:47

0 плюса

17 Репутация автора

Интересно, что бы вы сказали об этом коде сортировки массива? Это быстро для реализации и делает работу ... еще не проверял для больших массивов. Это работает для одномерных массивов, для многомерных дополнительных матриц необходимо будет построить матрицу перемещения (с одним меньшим размером, чем исходный массив).

       For AR1 = LBound(eArray, 1) To UBound(eArray, 1)
            eValue = eArray(AR1)
            For AR2 = LBound(eArray, 1) To UBound(eArray, 1)
                If eArray(AR2) < eValue Then
                    eArray(AR1) = eArray(AR2)
                    eArray(AR2) = eValue
                    eValue = eArray(AR1)
                End If
            Next AR2
        Next AR1
Автор: Jarek Размещён: 17.11.2015 11:22

0 плюса

13 Репутация автора

Это то, что я использую для сортировки в памяти - его можно легко расширить для сортировки массива.

Sub sortlist()

    Dim xarr As Variant
    Dim yarr As Variant
    Dim zarr As Variant

    xarr = Sheets("sheet").Range("sing col range")
    ReDim yarr(1 To UBound(xarr), 1 To 1)
    ReDim zarr(1 To UBound(xarr), 1 To 1)

    For n = 1 To UBound(xarr)
        zarr(n, 1) = 1
    Next n

    For n = 1 To UBound(xarr) - 1
        y = zarr(n, 1)
        For a = n + 1 To UBound(xarr)
            If xarr(n, 1) > xarr(a, 1) Then
                y = y + 1
            Else
                zarr(a, 1) = zarr(a, 1) + 1
            End If
        Next a
        yarr(y, 1) = xarr(n, 1)
    Next n

    y = zarr(UBound(xarr), 1)
    yarr(y, 1) = xarr(UBound(xarr), 1)

    yrng = "A1:A" & UBound(yarr)
    Sheets("sheet").Range(yrng) = yarr

End Sub
Автор: Reged Размещён: 12.06.2016 10:22

0 плюса

345 Репутация автора

Я думаю, что мой код (проверенный) более «образован», предполагая, что чем проще, тем лучше .

Option Base 1

'Function to sort an array decscending
Function SORT(Rango As Range) As Variant
    Dim check As Boolean
    check = True
    If IsNull(Rango) Then
        check = False
    End If
    If check Then
        Application.Volatile
        Dim x() As Variant, n As Double, m As Double, i As Double, j As Double, k As Double
        n = Rango.Rows.Count: m = Rango.Columns.Count: k = n * m
        ReDim x(n, m)
        For i = 1 To n Step 1
            For j = 1 To m Step 1
                x(i, j) = Application.Large(Rango, k)
                k = k - 1
            Next j
        Next i
        SORT = x
    Else
        Exit Function
    End If
End Function
Автор: Moreno Размещён: 27.01.2017 04:26

4 плюса

41 Репутация автора

Dim arr As Object
Dim InputArray

'Creating a array list
Set arr = CreateObject("System.Collections.ArrayList")

'String
InputArray = Array("d", "c", "b", "a", "f", "e", "g")

'number
'InputArray = Array(6, 5, 3, 4, 2, 1)

' adding the elements in the array to array_list
For Each element In InputArray
    arr.Add element
Next

'sorting happens
arr.Sort

'Converting ArrayList to an array
'so now a sorted array of elements is stored in the array sorted_array.

sorted_array = arr.toarray
Автор: Prasand Kumar Размещён: 28.07.2017 05:42
Вопросы из категории :
32x32