Question

Программироание VBA. Надо написать программу, в которой есть функция . Функция принимает массив . Она сортирует массив (числа ) по возрастанию . После надо вывести полученный результат на печать

Answer 1

Private Sub CommandButton1_Click()
    Dim n As Integer, R As Range
    n = Cells(1, 4).Value
    Set R = Range(Cells(5, 2), Cells(4 + n, 2))
    MySort R.Offset(0, -1), R
End Sub

Private Sub MySort(RFrom As Range, RTo As Range)
' На самом деле сто лет она тут не нужна, глупо придумано задание
    RFrom.Copy RTo
    RTo.Sort RTo.Range(Cells(1, 1), Cells(1, 1))
End Sub

Файл MS Excel 2003 во вложении.

Answer 2

Для написания программы на VBA, которая будет сортировать массив чисел по возрастанию, можно использовать следующий код:

Sub SortArray()
    Dim arr() As Variant
    Dim i As Integer, j As Integer
    Dim temp As Integer
    
    ' Заполняем массив числами
    arr = Array(5, 2, 8, 3, 1)
    
    ' Сортировка массива по возрастанию
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i
    
    ' Вывод отсортированного массива на печать
    For i = LBound(arr) To UBound(arr)
        Debug.Print arr(i)
    Next i
End Sub

В данном коде мы создаем массив arr, заполняем его числами, сортируем его пузырьковым методом по возрастанию и выводим отсортированный массив на печать с помощью Debug.Print. Вы можете изменить значения в массиве arr на свои собственные числа для тестирования программы.