Dim a(10) As Single

Dim i As Byte, max As Single, imax As String

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

For i = 1 To 10

a(i) = Cells (1, i)

Next i

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

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

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

For i = 2 To 10

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 "Максимальный элемент = " & max & ", его местоположение (ия) " & imax,, "Решение задачи"

End Sub

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

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

Sub primer_2()

Randomize Timer

Dim a() As Single

Не нашли, что искали? Воспользуйтесь поиском: