Матрица целых чисел М(3,4). Все отрицательные элементы заменить их квадратами. (Basic)

[AnnKarpinskaya]

Вот лёгкая вроде задачка
В диапазон ЭТ ввести матрицу целых чисел М(3,4). Все отрицательные элементы заменить их квадратами. Найти колличество таких замен. Результат вывести на экран.

Public Sub prog()
Dim M(1 To 3, 1 To 4)
K = 0
For I = 1 To 3
For J = 1 To 4
Cells(I, J) = InputBox("Введите число")
If Cells(I, J) < 0 Then
Cells(I, J) = Cells(I, J) ^ 2
End If
K =
Next J
Next I
MsgBox "Колличество замен=" & K
End Sub

У меня получилось примерно так,только не знаю как обозначить ,чтобы выводилась замена,выводится то квадрат,то вообще последнее число. Подскажите пожалуйста что именно присвоить К



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[OlegVE]

Здравствуйте
Попробуйте вместо этого

...
End If
K =
...

написать это

...
K = K + 1
End If
...

До свидания