Написать программу в vba, которая меняет местами минимальный и последний элемент массива целых чисел.

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

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)