Private Sub Command1_Click()
Dim a() As Integer     'Obyavlyaem massiv
ReDim a(1 To 4, 1 To 4) As Integer
Dim intSum As Integer, sngPr As Single   'i peremennie
Dim i, j    'eto bydyt schetchiki
For i = 1 To 4
For j = 1 To 4
a(i, j) = InputBox("Vvedite element : " & i & j) 'Zapolnyaem matrizy
Next j
Next i
intSum = 0
sngPr = 1
For i = 2 To 4 Step 2 'S4itaem summu  4etnix strok
For j = 1 To 4
intSum = intSum + a(i, j)
Next j
Next i
For i = 1 To 4 Step 2 'S4itaem proizvedenie ne4etnix
For j = 1 To 4
sngPr = sngPr * a(i, j)
Next j
Next i
MsgBox "summa: " & intSum & " .Proizvedenie: " & sngPr
End Sub