Сортивровать столбцы в массиве по возрастанию - VB
Формулировка задачи:
Задача такая, сортировать, если столбец четный, то по возрастанию, если нечетный, то по убыванию...всем спаисбо.
всем спасибо)
Решение задачи: «Сортивровать столбцы в массиве по возрастанию»
textual
Листинг программы
Option Explicit Dim a(0 To 9, 0 To 9) As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer Dim b(0 To 99) As Integer Option1.Value = False Option2.Value = False Text3.Text = " " Text5.Text = " " Text1.Text = " " For i = 0 To 99 b(i) = Int(Round(Rnd * 100, 0)) m1(i).BackColor = RGB(255, 255, 255) Next For i = 0 To 9 For j = 0 To 9 a(i, j) = b(j + i * 10) m1(j + i * 10).Text = b(j + i * 10) Next Next End Sub Private Sub Sort_Click() 'вот отсюда сортировка на отдельной кнопке Dim i As Integer, j As Integer, k As Integer, m As Integer, h(0 To 9), temp As Integer For i = 0 To 9 For j = 0 To 9 h(j) = a(j, i) Next For k = 0 To 9 For m = 0 To 9 - 1 If i Mod 2 = 0 Then If h(m) < h(m + 1) Then temp = h(m) h(m) = h(m + 1) h(m + 1) = temp End If Else If h(m) > h(m + 1) Then temp = h(m) h(m) = h(m + 1) h(m + 1) = temp End If End If Next m Next k For j = 0 To 9 a(j, i) = h(j) Next Next For i = 0 To 9 For j = 0 To 9 m1(j + i * 10).Text = a(i, j) Next Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д