Минимальный элемент массива

Private Sub CommandButton1_Click()
'С помощью Dim создаём на пластинке оперативной памяти
'поименованную область (массив) M.
'Double - означает, что в массиве могут быть целые и дробные числа.
Dim M(6, 7) As Double
'Создание на пластинке оперативной памяти поименованной области
'(переменной) i. Long означает, что в переменной могут быть
'только целые числа.
Dim i As Long, min As Double
Dim j As Long
Dim x As Double
Dim y As Double
x = -24
'For ... To ... Next - называется циклом и используется
'для выполнения одного и того же действия много раз.
'Отсчёт начинается с нуля, т.к. массивы по умолчанию нумеруются с нуля.
For i = 0 To 6
    For j = 0 To 7
        'Помещение в каждый элемент массива значения
        'из соответствующей ячейки Excel
      x = x + 1
       If x >= 1 Then
    'Если переменная x меньше или равна 1, то
    'Case x >= 1
       y = x / 9
        End If
     If x > -8 Then
    'Case x > -8
        y = 2.7 ^ x
        End If
 If x <= -8 Then
    'Case x < -8
        y = Log(Abs(x))
End If
Cells(i + 3, j + 2) = y
M(i, j) = y
    Next j
Next i
'Предполагаем, что минимальное число находится в
'нулевом элементе массива. Затем будем сравнивать это число
'с остальными элементами и меньшие числа будут помещаться
'в переменную x.
min = M(0, 0)
For i = 0 To 6
    For j = 0 To 7
        'If ... Then ... End If - используется для выбора действия.
        'В нашем случае читается так: если в данном элементе массива
        'число меньше, чем в переменной x, то помещаем в переменную x
        'число из данного элемента.
        If M(i, j) < min Then
            min = M(i, j)
        End If
    Next j
Next i
'Select Case ... End Select - используется для выбора действия.
 
'MsgBox - инструмент VBA для вывода на монитор сообщений.
MsgBox "Минимальный элемент " & min
 
End Sub