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

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

Дан массив 6*6 нужно получить результирующий массив, где каждая строка упорядочена по возврастанию.... и также упорядочить эту задачу по столбцам вывести рядом с 1 массивом начиная с 8 столбца VB

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

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim a(6, 6)
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 10) - 5
Print Tab(5 * j); a(i, j);
Next j
Print
Next i
 
For i = 1 To 6
  For j = 1 To 6
    For k = j To 6
     If a(i, j) > a(i, k) Then
     tmp = a(i, j): a(i, j) = a(i, k): a(i, k) = tmp
     End If
    Next k
 Next j
Next i
Print
For i = 1 To 6
For j = 1 To 6
Print Tab(5 * j); a(i, j);
Next j
Print
Next i
End Sub
                        

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

12 голосов , оценка 4 из 5

Похожие ответы