Question

Работа с одномерными массивами. Для контрольного примера можно взять массивы, состоящие из пяти, шести элементов:
В массиве чисел В1, В2, …, Вn найти минимальное число и его номер. Сделать в ВБА

Answer 1

Sub aaa()
    b = Array(4, 6, -3, 7, 2, 1)
    k = 0
    For i = 1 To UBound(b, 1)
        If b(k) > b(i) Then k = i
    Next i
    MsgBox "Минимальный элемент с порядковым номером" + Str(k + 1) + " равен " + LTrim(Str(b(k)))
End Sub