Для каждого столбца матрицы с нечетным номером найти произведение его элементов

Дана матрица A(n,m).Для катого столбца матрицы с четным номером (2,4,....)найти сумму его эл-ов.Для каждого столбца матрицы с нечетным номером (1,3,...) найти произведение его эл-ов.
Sub Main()
Dim i,j,m,n,s,p As Byte
Dim A(10,10) As Integer
Dim B(10) As Integer
Console.Write("введите m:")
m=Console.Readline()
Console.Write("введите n:")
n=Console.Readline()
Console.Write("введите матрицу A")
For i=1 to m
For j=1 to n
A(i,j)=Console.ReadLine()
Next j
Next i
s=0
p=1
For j=1 to m
If j Mod 2=0 then
s=0
For i=1 to n
s=s+A(i,j)
Next
End If
Next
If j Mod 2=1 Then
p=1
For i=1 to n
p=p*A(i,j)
Next 
End If
Console.WriteLine("вывод массива B:")
For i=1 to n
Console.Write("{0,3:F}",B(i)):Next
Console.ReadLine()
End Sub
Ошибка после 16 строкиисправьте ошибку
1 ответ

Вален, разбирайтесь
Sub Main()
        Dim i, j As Integer
        i = 1
        j = 1
        Dim mass(i, j) As Integer
        For x As Integer = 0 To i
            For y As Integer = 0 To j
                mass(x, y) = CInt(Math.Floor((100 - 0 + 1) * Rnd())) + 0
            Next
        Next
        Dim plus(i / 2) As Integer
        Dim umnojenie(i / 2) As Integer
        Dim s1 As Integer = 0
        Dim s2 As Integer = 0
        Dim b As Boolean = False
        For x As Integer = 0 To i
            If b Then
                Dim z As Integer
                For y As Integer = 0 To j
                    z = z + mass(x, y)
                Next
                plus(s1) = z
                s1 = s1 + 1
                b = False
            Else
                Dim z As Integer = 1
                For y As Integer = 0 To j
                    z = z * mass(x, y)
                Next
                umnojenie(s2) = z
                s2 = s2 + 1
                b = True
            End If
        Next
    End Sub