End Sub

Результат выполнения программы:

Программа для решения этой же задачи, но для любого количества элементов в массиве выглядит так:

Sub primer_2()

Randomize Timer

Dim a() As Single

Dim i As Byte, n As Byte, max As Single

Dim imax As String, massiv As String

massiv = ""

n = InputBox ("Введите размер массива", "Запрос программы")

ReDim a(n)

'заполнение массива случайными числами

For i = 1 To n

a(i) = 50 - Int (Rnd () * 1000)/10

massiv = massiv & a(i) & Chr (9)

Next i

'инициализация переменных max, imax

max = a(1): imax = "1"

'поиск максимального элемента и его местоположения

For i = 2 To n

If a(i) > max Then

max = a(i)

imax = i

ElseIf a(i) = max Then

imax = imax & ", " & i

End If

Next i

'Команда MsgBox... записывается в редакторе VB в одну строку

MsgBox "Исходный массив:" & Chr (13) & massiv & Chr (13) & "Максимальный элемент = " & max & ", его местоположение (ия) " & imax,, "Решение задачи"