Question

Написать программу в VBA, которая меняет местами минимальный и последний элемент массива целых чисел. ПОМОГИТЕ СРОЧНО НУЖНО!!

Answer 1

' Объявляем массив

Dim Arr(1 To 10) As Integer

' Заполняем массив значениями от 1 до 15

Dim min, max As Integer

min = 1

max = 15

Randomize

For i = LBound(Arr) To UBound(Arr)

   Arr(i) = Int((max - min + 1) * Rnd + min)

Next

' Выводим MsgBox с содержимым массива

Dim Str As String

Str = ""

For i = LBound(Arr) To UBound(Arr)

   Str = Str + CStr(Arr(i)) + " "

Next

MsgBox (Str)

' Находим индекс минимального элемента

Dim minIndex As Integer

minIndex = LBound(Arr)

For i = LBound(Arr) To UBound(Arr)

   If Arr(i) < Arr(minIndex) Then

       minIndex = i

   End If

Next

' Меняем местами минимальный элемент и последний

Dim a As Integer

a = Arr(minIndex)

Arr(minIndex) = Arr(UBound(Arr))

Arr(UBound(Arr)) = a

' Выводим MsgBox с содержимым массива

Str = ""

For i = LBound(Arr) To UBound(Arr)

   Str = Str + CStr(Arr(i)) + " "

Next

MsgBox (Str)

Answer 2

Конечно! Вот пример программы на VBA, которая меняет местами минимальный и последний элемент массива целых чисел:

vbaCopy code
Sub SwapMinAndLast()
    ' Объявляем массив целых чисел
    Dim arr() As Integer
    ' Задаем размер массива (можете изменить на свое усмотрение)
    Dim size As Integer
    size = 10
    
    ' Инициализируем массив случайными числами от 1 до 100 (можете изменить диапазон)
    ReDim arr(1 To size)
    Dim i As Integer
    For i = 1 To size
        arr(i) = Int((100 * Rnd) + 1)
    Next i
    
    ' Выводим исходный массив
    MsgBox "Исходный массив: " & Join(arr, ", ")
    
    ' Находим минимальный элемент в массиве и его индекс
    Dim minElement As Integer
    minElement = arr(1)
    Dim minIndex As Integer
    minIndex = 1
    For i = 2 To size
        If arr(i) < minElement Then
            minElement = arr(i)
            minIndex = i
        End If
    Next i
    
    ' Меняем местами минимальный элемент с последним элементом
    Dim temp As Integer
    temp = arr(minIndex)
    arr(minIndex) = arr(size)
    arr(size) = temp
    
    ' Выводим измененный массив
    MsgBox "Измененный массив: " & Join(arr, ", ")
End Sub

Программа создает массив целых чисел, затем находит минимальный элемент и меняет его местами с последним элементом. Вы можете изменить размер массива и диапазон случайных чисел в соответствии с вашими потребностями.