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

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)

Comments

А можно эту программу чуть переделать чтоб вывод в ячейки был?