Сортировка двумерного массива - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день! искала-искала, про двумерные массивы не нашла может есть какой-то стандартный метод (типа sort) чтобы отсортировать двумерный массив, а ещё желательно сразу по двум столбцам??? очень надо, подскажите пожалуйста, кто знает!!!

Решение задачи: «Сортировка двумерного массива»

textual
Листинг программы
 Sub SortMultArr(ByRef mas(,) As String)
        Dim d() As String = Nothing
        Dim tmp() As String
        Dim L As ULong, M As ULong
        Dim i As ULong, j As ULong
 
        M = UBound(mas, 2)
        L = UBound(mas, 1)
        ReDim d(M)
        For j = 0 To M 'Склеиваем строки в промежуточный массив
            d(j) = mas(0, j)
            For i = 1 To L
                d(j) = d(j) & tmpDelimiter & mas(i, j)
            Next i
        Next j
        System.Array.Sort(d)
 
        For i = 0 To M 'Расщепляем строки обратно на записи
            tmp = Split(d(i), tmpDelimiter)
            If UBound(tmp) <> L Then 'немножко перестраховки на случай случайной встречи разделителя в тексте
                MsgBox("Ошибка сортировки. Несовпадение границ", vbCritical)
                Exit Sub
            End If
            For j = 0 To L
                mas(j, i) = tmp(j)
            Next
        Next i
    End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы