Связанная сортировка матрицы по столбцу - VB
Формулировка задачи:
Здравствуйте, вы бы не могли мне помочь, у меня есть матрица 120 строк и 6 столбцов (или двухмерный массив), не подскажете как мне отсортировать двухмерный массив по столбцу, который указывает сам пользователь.
Решение задачи: «Связанная сортировка матрицы по столбцу»
textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim arr(1 To 120, 1 To 6) As Single, temp As Single, C As Byte
C = InputBox("Stolbec dlya sortirovki")
Dim i, j, k
For i = 1 To 120
For j = 1 To 6
arr(i, j) = Int(100 * Rnd - 50)
Next j
Next i
For i = 1 To 120
For j = 1 To 119
If arr(j, C) > arr(j + 1, C) Then
For k = 1 To 6
temp = arr(j, k)
arr(j, k) = arr(j + 1, k)
arr(j + 1, k) = temp
Next k
End If
Next j
Next i
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д