Проверить, образуют ли элементы массива арифметическую прогрессию - VB

Формулировка задачи:

Array24. Дан целочисленный массив размера N, не содержащий одинаковых чисел. Проверить, образуют ли его элементы арифметическую прогрессию (см. задание Array3). Если образуют, то вывести разность прогрессии, если нет — вывести 0. Array3. Дано целое число N (> 1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A + D, A + 2·D, A + 3·D, . . . Заранее спасибо всем

Решение задачи: «Проверить, образуют ли элементы массива арифметическую прогрессию»

textual
                            Листинг программы 
                        

                            Sub MakeArr(A() As Integer, n As Integer, a1 As Integer, d As Integer, Optional i As Integer = 1)
 
    If (i > n) Then
       Exit Sub
    Else
       A(i) = a1 + (i - 1) * d
       MakeArr A(), n, a1, d, i + 1
    End If
 
End Sub
 
Sub Test()
 
Dim AA(1 To 10) As Integer
 
    MakeArr AA(), 10, 13, 4
 
    For i% = 1 To 10
        Debug.Print AA(i%)
    Next i%
 
End Sub
                        