Кто знает подскажите, ато чёт не догоняю - VB

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

дан массив. Необходимо элементы массива кратные числу 2 сменить противоположными

Private Sub Command1_Click()
Dim G(3, 3) As Single, i As Integer, j As Integer
txt = " "
G(1, 1) = 1: G(1, 2) = 4: G(1, 3) = 6
G(2, 1) = -2: G(2, 2) = 3: G(2, 3) = 9
G(3, 1) = 10: G(3, 2) = 5: G(3, 3) = -8

Решение задачи: «Кто знает подскажите, ато чёт не догоняю»

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

                            Private Sub Command1_Click()
Dim R(3, 3) As Single, i As Integer, j As Integer
Dim txt As String
txt = " "
R(1, 1) = -14: R(1, 2) = 4: R(1, 3) = 6
R(2, 1) = -2:  R(2, 2) = 0: R(2, 3) = -5
R(3, 1) = 3:   R(3, 2) = 5: R(3, 3) = 7
For i = 2 To 2
R(i, i) = 99
Next i
For i = 1 To 3
For j = 1 To 3
If R(i, j) Mod 2 = 0 Then R(i, j) = R(i, j) * (-1)
txt = txt & R(i, j) & " "
Next j
txt = txt & Chr(13)
Next i
txt = txt & Chr(13)
Print txt
 
End Sub
                        