Дополнить программу подсчетом количества замен, поиском суммы элементов массива в четвертом столбце

Dim a (4, 5) As integer
Dim i, j, s As integer
      Randomize
For i = 0 To 3
For j = 0 To 4
    a (i, j) = Fix (Rnd() * 20)-10
  Console.Write(a(i,j) & ” “)
Next j
  Console.WriteLine()
Next i
      
For j = 0 To 4
s=s+ a (2, j)    ‘ суммирование элементов третьей строки
Next j
Console.WriteLine("Сумма в третьей строке= "& s)
 
 
   For i = 0 To 3
For j = 0 To 4
   If ( i+j) mod 5=0  then a (i, j) =0
Next j
Next i
 
For i = 0 To 3
For j = 0 To 4
  Console.Write(a(i,j) & ” “)
Next j
  Console.WriteLine()
Next i

        Dim a(4, 5) As Integer
        Dim i, j, s As Integer
        Dim s1, Repl As Integer 'Счетчик суммы в четвертом столбце и счетчик количества замен
        Dim Summ1, Summ2 As Integer 'Сумма элементов матриц до и после замены
        Randomize()
        For i = 0 To 3
            For j = 0 To 4
                a(i, j) = Fix(Rnd() * 20) - 10
                Console.Write(a(i, j) & " ")
                Summ1 += a(i, j)
            Next j
            Console.WriteLine()
        Next i
 
        For j = 0 To 4
            s = s + a(2, j)    ' суммирование элементов третьей строки
        Next j
        Console.WriteLine("Сумма в третьей строке= " & s)
 
        For i = 0 To 3
            s1 = s1 + a(i, 3)    ' суммирование элементов четвертого столбца
        Next i
        Console.WriteLine("Сумма в четвертом столбце= " & s1)
 
        For i = 0 To 3
            For j = 0 To 4
                If (i + j) Mod 5 = 0 Then a(i, j) = 0 : Repl += 1
            Next j
        Next i
 
        For i = 0 To 3
            For j = 0 To 4
                Console.Write(a(i, j) & " ")
                Summ2 += a(i, j)
            Next j
            Console.WriteLine()
        Next i
        Console.WriteLine("Произведено замен: " & Repl)
        Console.WriteLine("Сумма элементов матрицы до замены: " & Summ1 & "4 после: " & Summ2)
       
 
        Console.Read()