Разработать ИТ, позволяющую заполнить одмерный массив следующими элементами: первый элемент-сумма положительных элементов матрицы, - VB

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

Разработать ИТ, позволяющую заполнить одмерный массив следующими элементами: первый элемент-сумма положительных элементов матрицы, второй элемент-произведение отрицательных элементов матррицы, третий - количество элементов матрицы, имующих нулевые значения. Размерность массива произвольная.

                    Листинг программы
                
 
                            
                        
Option Base 1
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, prois As Integer, sum As Integer, m As Integer, n As Integer
Dim a() As Integer, b() As Integer
m = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ Г¬Г*ГІГ°ГЁГ¶Г»")
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў Г¬Г*ГІГ°ГЁГ¶Г»")
ReDim a(m, n), b(m * n)
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox(" a ( " & i & " , " & j & " ) ")
Next
Next
k = 0
sum = 0
prois = 1
For i = 1 To m
For j = 1 To n
If a(i, j) > 0 Then sum = sum + a(i, j): b(sum) = a(i, j)
Next j
Next i
For i = 1 To m
For j = 1 To n
If a(i, j) < 0 Then prois = prois * a(i, j): b(prois) = a(i, j)
Next j
Next i
For i = 1 To m
For j = 1 To n
If a(i, j) = 0 Then k = k + 1: b(k) = a(i, j)
Next j
Next i
Print "Г€Г±ГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў ГЂ"
For i = 1 To m
Print
For j = 1 To n
Print a(i, j)
Next
Next
If k = 0 Then
Print Chr(10); "Г‡Г*ГЇГ®Г«Г*ГҐГ* Г¬Г*Г±Г±ГЁГў Г‚"
For i = 1 To k
Print b(i);
Next
Else
Print " Г‡Г*Г*Г·ГҐГ*ГЁГ© Г°Г*ГўГ*Г»Гµ Г*ГіГ«Гѕ Гў Г¬Г*Г±Г±ГЁГўГҐ ГЂ Г*ГҐГІГі"
End If
End Sub

Решение задачи: «Разработать ИТ, позволяющую заполнить одмерный массив следующими элементами: первый элемент-сумма положительных элементов матрицы,»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Base 1
 
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer
Dim a() As Integer, b() As Integer, hasNeg As Boolean
m = InputBox("Введите количество строк матрицы", , 2)
n = InputBox("Введите количество столбцов матрицы", , 3)
ReDim a(m, n), b(3)
For i = 1 To m
    For j = 1 To n
        a(i, j) = InputBox(" a ( " & i & " , " & j & " ) ", , 0)
    Next
Next
b(2) = 1
For i = 1 To m
    For j = 1 To n
        If a(i, j) > 0 Then
            b(1) = b(1) + a(i, j)
        ElseIf a(i, j) < 0 Then
            hasNeg = True
            b(2) = b(2) * a(i, j)
        Else
            b(3) = b(3) + 1
        End If
    Next j
Next i
Print Chr(10); "сумма положительных"; b(1); vbLf; _
    IIf(hasNeg, "произведение отрицательных " & b(2), "нет отрицательных"); vbLf; _
    "количество нулевыx"; b(3)
End Sub