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

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

Составить программу для решения задач.Матрица произвольная: Найти произведения нечетных отрицательных элементов каждого столбца матрицы, результат записать в одномерный массив

Решение задачи: «Найти произведения нечетных отрицательных элементов каждого столбца матрицы»

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

                            Private Sub Command1_Click()
Dim stroka As Integer, stolbec As Integer, mas() As Currency, is_mas() As Currency
stroka = Val(Text1.Text): stolbec = Val(Text2.Text)
ReDim mas(100, 100): ReDim is_mas(100)
ch = 0: chm = 0: p = 1
For i = 1 To stroka
    For j = 1 To stolbec
        mas(j, i) = Int((Rnd(4) * 10) - (i + j) / 2)
        Print Format(mas(j, i), "00") & "         ";
    Next j
    Print
Next i
For i = 1 To stroka
    For j = 1 To stroka
        If mas(i, j) / 2 <> Int(mas(i, j) / 2) And mas(i, j) < 0 Then p = p * mas(i, j)
    Next j
    chm = chm + 1: is_mas(chm) = p
    If p <> 1 Then Print is_mas(chm);: p = 1
Next i
End Sub
                        