Двумерные массивы(найти сумму и произведение ) - VB

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

Здравствуйте!Я решала задачу,но не могу довести ее решение до конца.Я думаю,здесь немало ошибок,но VB изучаю только 2 месяца,не могу разобраться,но хотела бы.Вот она: определить сумму и произведение элементов матрицы размера 4*5, имеющих оба четных индекса. Вот мои наработки:

Dim A (1 to 4; 1 to 5)as single
Private Sub Command1_Click()
Randomize
For i = 1 to 4
For j = 1 to 5
A(i,j) = Rnd
Next j
Next i
S = 0
P = 0
For i = 1 to 4
For j = 1 to 5
A(i,j) = Val (Input Box())
Next i
Next j
For i = 1 to 4
For j = 1 to 5
If (i mod 2 = 0) and (j mod 2 = 0)
Then S = S + A (i,j)
        P = P * A (i,j)
Next j
Next i
Print S
Print P
End Sub

Помогите, пожалуйста

Решение задачи: «Двумерные массивы(найти сумму и произведение )»

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

                            Dim A(1 To 4, 1 To 5) As Single 'Разделяется запятой
Private Sub Command1_Click()
Randomize
For i = 1 To 4
For j = 1 To 5
A(i, j) = Rnd
Next j
Next i
S = 0
P = 1 'P=0 не будет работать, т.к. а*0=0
 
For i = 1 To 4
For j = 1 To 5
A(i, j) = Val(InputBox("El " & i & j)) 'InputBox - 1 слово)
Next j 'Цикл внутренний закрывается перед циклом внешним
Next i
 
For i = 1 To 4
For j = 1 To 5
If (i Mod 2 = 0) And (j Mod 2 = 0) Then S = S + A(i, j): P = P * A(i, j) 'Then и If пишутся в одной строке
Next j
Next i
Print S
Print P
End Sub
                        