visual basic в двумерном массиве заменить отрицательные числа на ноль 0 примеры задач

Доброго времени суток.

Что-то в таком духе должно быть

For i = 1 To M
For j = 1 To N
If A(i,j) < 0 then A(i,j) = 0
Next j
Next i

Остальное сами, плз.

Удачи!

Суть та же, но с оформлением по всем правилам.... И даже с избытком.. . Дополнительно посылаю архив с готовыми программами и даже компиляцией оной на почту.

Dim Massiv(10, 20)
Private Sub Command1_Click()
a = Val(InputBox("Введите число строк массива", "Запрос", "3"))
B = Val(InputBox("Введите число столбцов массива", "Запрос", "3"))
For i = 1 To a
For j = 1 To B
Massiv(i, j) = Val(InputBox("Введите элемент из строки номер " + Str(i) + "и столбца номер " + Str(j)))
Next j
Next i
Me.Scale (0, 0)-(10000, 10000)
Me.CurrentX = 500
Me.CurrentY = 700
Print "Исходный массив"
For i = 1 To a
For j = 1 To B
Me.CurrentX = i * 500
Me.CurrentY = j * 500 + 1000
Print Massiv(i, j)
Next j
Next i
For i = 1 To a
For j = 1 To B
If Massiv(i, j) < 0 Then Massiv(i, j) = 0
Next j
Next i
Me.CurrentX = 500
Me.CurrentY = 4700
Print "Результат"
For i = 1 To a
For j = 1 To B
Me.CurrentX = i * 500
Me.CurrentY = j * 500 + 5000
Print Massiv(i, j)
Next j
Next i
End Sub