Создайте матрицу 5*5, значение каждого элемента которой равно сумме номера строки и столбца, на пересечении которых он находится, и вычислите сум - VB

Private Sub Command1_Click()
Dim dd(1 To 5, 1 To 5) As Double
Dim i As Double
Dim j As Double
Dim k As Double
 
k = 0
For i = 1 To 5
      For j = 1 To 5
            dd(i, j) = i + j
            k = dd(i, j) + k
            
Print dd(i, j);
 
      Next j
Print vbTab; k
Print
Next i
End Sub