Здравствуйте. Есть массив 5х5 с рандомными числами. После создания массива я хожу по каждому элементу и заполняю его.
Сколько раз встречается цифра 9 вокруг этого элемента такое значение и заношу в него. Можно как то упростить код?
Sub Massiv()
N = 5
m = 5
ReDim a(1 To N, 1 To m)
For i = 1 To N
For j = 1 To m
a(i, j) = CInt(Int((5 * Rnd()) + 1))
Next
Next
For i = 1 To N
For j = 1 To m
If a(i, j) = 5 Then a(i, j) = 9
Next
Next
Dim s As Integer
s = 0
If a(1, 1) <> 9 Then If a(1, 2) = 9 Then s = s + 1
If a(1, 1) <> 9 Then If a(2, 1) = 9 Then s = s + 1
If a(1, 1) <> 9 Then If a(2, 2) = 9 Then s = s + 1
If a(1, 1) <> 9 Then a(1, 1) = s
s = 0
If a(1, 2) <> 9 Then If a(1, 1) = 9 Then s = s + 1
If a(1, 2) <> 9 Then If a(2, 1) = 9 Then s = s + 1
If a(1, 2) <> 9 Then If a(2, 2) = 9 Then s = s + 1
If a(1, 2) <> 9 Then If a(2, 3) = 9 Then s = s + 1
If a(1, 2) <> 9 Then If a(1, 3) = 9 Then s = s + 1
If a(1, 2) <> 9 Then a(1, 2) = s
s = 0
If a(1, 3) <> 9 Then If a(1, 2) = 9 Then s = s + 1
If a(1, 3) <> 9 Then If a(2, 1) = 9 Then s = s + 1
If a(1, 3) <> 9 Then If a(2, 3) = 9 Then s = s + 1
If a(1, 3) <> 9 Then If a(2, 4) = 9 Then s = s + 1
If a(1, 3) <> 9 Then If a(1, 4) = 9 Then s = s + 1
If a(1, 3) <> 9 Then a(1, 3) = s
s = 0