Если заданные числа образуют арифметическую прогрессию, то выдать их сумму, если геометрическую - произведение...

Option Explicit
 
Sub Shandor_Lavey()
   Dim mas(1 To 4) As Integer, l As Long, tmp, d, q, st$
   For l = 1 To 4
'      mas(l) = Rnd * 100 ' Заполнение случайными числами
'      mas(l) = l         ' Заполнение в арифметической прогрессии
      If l = 1 Then
        mas(l) = 1
      Else                ' Заполнение в геометрической прогрессии
        mas(l) = mas(l - 1) * 3
      End If
      st = st & " " & CStr(mas(l))
   Next
   st = Trim(st) & vbNewLine
   ' Массив заполнен случайными, определяем арифметическую прогрессию
   d = mas(4) - mas(3)   ' Разность последних двух
   If mas(2) - mas(1) = d And mas(3) - mas(2) = d Then GoTo ARIF ' поиск ариф
 
   q = mas(4) / mas(3)   ' Отношение последних двух
   If mas(3) / mas(2) = q And mas(2) / mas(1) = q Then GoTo GEOM ' поиск геом
   ' Если прогрессия не найдена:
   For l = 1 To 4
      tmp = tmp + mas(l)
   Next
   tmp = tmp / 4
   MsgBox "Прогрессия не обнаружена" & vbCr & "Числа: " & st & "Среднее арифм. = " & tmp
   Exit Sub
ARIF:
   For l = 1 To 4
      tmp = tmp + mas(l)
   Next
   MsgBox "Арифметическая прогрессия:" & vbCr & "Числа: " & st & "Сумма = " & tmp
   Exit Sub
 
GEOM: tmp = mas(1)
   For l = 2 To 4
      tmp = tmp * mas(l)
   Next
   MsgBox "Геометрическая прогрессия:" & vbCr & "Числа: " & st & "Произведение = " & tmp
End Sub