Дан двумерный массив размерности mxn. необходимо найти все трёхзначные числа и заменить их на произведение его цифр.(VBA)

[oquank]

Помогите сделать блог схему по данной задаче.
Дан двумерный массив размерности mxn. необходимо найти все трёхзначные числа и заменить их на произведение его цифр.
Код программы:

Sub massiv()
n = InputBox("Введите количество столбцов n")
m = InputBox("Введите количество строк m")
ReDim a(1 To n, 1 To m) As Long
For i = 1 To n
    For j = 1 To m
    a(i, j) = Val(Cells(i, j))
    Next j
Next i
c = ""
For i = 1 To n
    For j = 1 To m
    If (a(i, j) \ 100 > 0) And a(i, j) \ 100 < 10 Then
    c = c & a(i, j) & Chr(13)
    End If
    Next j
Next i
 p = ""
For i = 1 To n
    For j = 1 To m
    If (a(i, j) \ 100 > 0) And (a(i, j) \ 100 < 10) Then
    p = p & "Произведение 3-x значных чисел = " & (a(i, j) \ 100) * ((a(i, j) Mod 100) \ 10) * ((a(i, j) Mod 10)) & Chr(13)
    temp = (a(i, j) \ 100) * ((a(i, j) Mod 100) \ 10) * ((a(i, j) Mod 10))
    ActiveSheet.Cells(i, j) = temp
    End If
    Next j
Next i
MsgBox c
MsgBox p
End Sub

[was3110]

Если самому лень, то могу выполнить эту "работу" за Х руб.
Контакты в профиле

[oquank]

Подскажите пожалуйста, что в этой программе является входными и выходными данными. И как сделать правильно листинг?