Здравствуйте, Уважаемые Эксперты!
Помогите, пожалуйста, с решением задачи: Используя датчик случайных чисел сформировать целочисленную матрицу и в каждой строке матрицы подсчитать число четных и нечетных элементов. Начало решения - ниже.

Sub EX6()
Dim x() As Integer, chet As Byte, nechet As Byte
Dim n As Byte, m As Byte, i As Byte, j As Byte, p As Byte, s As Byte
Do
n = Application.InputBox("-число строк", Type:=1)
Loop Until n > 0
Do
m = Application.InputBox("-число столбцов", Type:=1)
Loop Until m > 0
ReDim x(1 To n, 1 To m)
Randomize
Cells.Clear
For i = 1 To n
For j = 1 To m
x(i, j) = 50 * Rnd - 25: Cells(i, j) = x(i, j)
Next j
Next i

'с этого момента начинаются проблемы

For j = 1 To m
chet = 0: nechet = 0
For i = 1 To n
If x(i, j) Mod 2 = 0 Then chet = chet + 1 Else nechet = nechet + 1
Next i
p = 0
s = 0
For i = 1 To n
If x(i, j) Mod 2 = 0 Then p = p + 1 Else s = s + 1
MsgBox "число четных элементов строке=" & p
MsgBox "число нечетных элементов строке=" & s
Next i
Next j
End Sub


Понимаю, что где-то ошибка, но, увы не знаю, где, какая и как её исправить. Повторюсь, что нужно подсчитать четные и нечетные элементы по строкам, но вот каким образом...
Надеюсь на вашу помощь.))