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

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

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

А. Составить процедуру сортировки по убыванию значений элементов массива А(М) (М - заданное число). В. Используя процедуру рассортировать по убыванию значения элементов каждого столбца массива Z(7,9).
вот моя попытка решения)

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

textual
Листинг программы
Private Sub Command1_Click()
Dim A() As Single, m As Byte, a1, a2
Dim z(1 To 7, 1 To 9) As Single, tempArr(1 To 9) As Single
'''''Действия с массивом A
m = InputBox("m")
a1 = ""
ReDim A(1 To m)
For i = 1 To m
A(i) = Int(100 * Rnd)
a1 = a1 & A(i) & " "
Next i
Call resort(A(), m)
a2 = ""
For i = 1 To m
a2 = a2 & A(i) & " "
Next i
MsgBox "До: " & a1 & Chr(13) & "После : " & a2
'''''''''''''Действия с матрицей Z
a1 = ""
a2 = ""
For i = 1 To 7
For j = 1 To 9
z(i, j) = Int(100 * Rnd)
tempArr(j) = z(i, j)
a1 = a1 & z(i, j) & " "
Next j
a1 = a1 & Chr(13)
Call resort(tempArr(), 9)
For l = 1 To 9
z(i, l) = tempArr(l)
Next l
Next i
For i = 1 To 7
For j = 1 To 9
a2 = a2 & z(i, j) & "  "
Next j
a2 = a2 & Chr(13)
Next i
MsgBox "До : " & Chr(13) & a1 & Chr(13) & "После : " & Chr(13) & a2
End Sub
 
 
Public Sub resort(arr() As Single, n)
For i = 1 To n
For j = 1 To n - i
If arr(j) > arr(j + 1) Then
temp = arr(j)
arr(j) = arr(j + 1)
arr(j + 1) = temp
End If
Next j
Next i
End Sub

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


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

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

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