Как умножить нечетную строку массива (первую) на третью?

Question

[antonio0226]

Привет всем.
Есть массив 3 столбца 4 строки.
Как умножить 1ую строку на 3ью ?

Private Sub CommandButton1_Click()
Dim A() As Single
Dim n As Single
Dim m As Single
Dim i As Single
Dim j As Single

n = InputBox("×èñëî ñòðîê")
m = InputBox("×èñëî ñòîëáöîâ")

ReDim A(n, m)
For i = 1 To n
For j = 1 To m
    A(i, j) = InputBox("Ââåäèòå ýëåìåíò ìàòðèöû")
    Label1.Caption = Label1.Caption & A(i, j) & vbTab
Next j
    Label1.Caption = Label1.Caption & vbNewLine
Next i
For i = 1 To n Step 2
For j = 1 To m
    A(i, j) = A(i, j) * A(i, j)
    Label1.Caption = Label1.Caption & A(1, i) & vbTab
Next j
Next i
End Sub

Есть такой скрипт. Не понимаю как выбрать первую строку и умножать на нечетную третью. Понимаю что нужно сделать нечетный шаг. Я прав?