Дана матрица А. Написать программу определения количества положительных и отрицаТельных элементов матрицы. Язык Visual Basic.

Private Sub Command1_Click()Dim myArray(3,3) as IntegerDim count_pos as IntegerDim cout_neg as IntegerDim i as IntegerDim j as Integercount pos = 0, count_neg = 0 For i = 0 to 3      For j = 0 to 3If (myArray(i,j) > 0) Thencount_pos = count_pos+1Else if (myArray(i,j) < 0) Thencount_neg = count_neg+1ElseEnd IfNext jNext iMsgBox("Положительных чисел " & count_pos & " ,а отрицательных " & count_neg); EndSub