Перестановка столбцов двумерного массива - VB
Формулировка задачи:
Помогите, пожалуйста!
Не знаю, как переставить столбцы двумерного массива в порядке возрастания первых элементов столбцов ( массив n=m=5)
Точнее не знаю, как привязать столбец к его первому элементу.
Подскажите!!!
Решение задачи: «Перестановка столбцов двумерного массива»
textual
Листинг программы
- Sub Task_1()
- Dim arr(1 To 5, 1 To 5)
- For i = 1 To 5
- For j = 1 To 5
- arr(i, j) = Int(Rnd * 50 + 10)
- sStr = sStr & arr(i, j) & " "
- Next
- sStr = sStr & vbNewLine
- Next
- For g = 1 To 4
- For j = 2 To 5
- i = 1
- If arr(i, j - 1) > arr(i, j) Then
- For i = 1 To 5
- tmp = arr(i, j)
- arr(i, j) = arr(i, j - 1)
- arr(i, j - 1) = tmp
- Next
- End If
- Next
- Next
- sStr = sStr & String(17, "_") & vbNewLine & vbNewLine
- For i = 1 To 5
- For j = 1 To 5
- sStr1 = sStr1 & arr(i, j) & " "
- Next
- sStr1 = sStr1 & " " & vbNewLine
- Next
- MsgBox sStr & sStr1
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
