Сортировка двумерного массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д