Сколько раз в двух массивах не совпадают элементы с одинаковыми индексами

Sub DvaMassiva()
 
'    Дано два массива:
'    Элементы первого одномерного массива - случайные числа из диапазона от 6 до 10
'    Элементы второго одномерного массива формируются по правилу - первый элемент второго массива равен 5.
'    Начиная со второго элемента каждый элемент больше предыдущего на значение своего индекса.
'    Два массива вывести в ячейки таблицы MS Excel.
'    Определить сколько раз в двух массивах не совпадают элементы с одинаковыми индексами.
 
'    Дано два массива:
Dim Mass1(6), Mass2(6)  'размер массивов в задаче не указан, пусть будет у массивов по 7 элементов
Dim i%, rw%             'счётчики
 
'    Элементы первого одномерного массива - случайные числа из диапазона от 6 до 10
    Randomize
    For i = LBound(Mass1) To UBound(Mass1)
        'Debug.Print i, Int((5 * Rnd))
        Mass1(i) = Int((5 * Rnd) + 6)
    Next i
 
'    Элементы второго одномерного массива формируются по правилу - первый элемент второго массива равен 5.
    Mass2(LBound(Mass2)) = 5
 
'    Начиная со второго элемента каждый элемент больше предыдущего на значение своего индекса.
    For i = LBound(Mass2) + 1 To UBound(Mass2)
        'думаю, это не сложная задача для вас
    Next i
 
'    Два массива вывести в ячейки таблицы MS Excel.
    Cells.Clear     'очищаем активный лист
    rw = 0
    For i = LBound(Mass1) To UBound(Mass1)
        rw = rw + 1
        Cells(rw, 1) = Mass1(i) 'выводим данные массивов
        Cells(rw, 2) = Mass2(i)
    Next i
 
'    Определить сколько раз в двух массивах не совпадают элементы с одинаковыми индексами.
    For i = LBound(Mass1) To UBound(Mass1)
        'думаю, это не сложная задача для вас
    Next i
End Sub