Visuаl bаsic Программирование, помогите

01.01.2001

visuаl bаsic Программирование, помогите
Программирование, помогите)
Отсортировать первую половину массива по возрастанию, а вторую по убыванию, результаты вывести в листбокс

  • Sub Sort()

    Dim A(1 To 10, 1 To 10) As Integer
    Dim i As Integer, j As Integer, s As Integer, n As Integer

    Randomize

    For i = 1 To 10
    For j = 1 To 10
    A(i, j) = Rnd() * 100
    Next j
    Next i

    For i = 1 To 10
    For j = 1 To 10
    Cells(i, j).Value = A(i, j)
    Next j
    Next i

    n = 10

    For j = 1 To n
    For i = 3 To n - 1 Step 3
    For k = i + 3 To n - 1 Step 3
    If A(k, j) < A(i, j) Then
    s = A(k, j)
    A(k, j) = A(i, j)
    A(i, j) = s
    End If
    Next k
    Next i
    Next j

    For i = 1 To 10
    For j = 1 To 10
    Cells(i + 30, j).Value = A(i, j)
    Next j
    Next i

    End Sub

Вас заинтересует