Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.08.2017, 18:38   #1
yulian-1997@mail.r
 
Регистрация: 12.07.2017
Сообщений: 6
По умолчанию Смена элементов массива

Здравствуйте. Есть массив 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
yulian-1997@mail.r вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычислить z=s1+s2/2, где s1-сумма положительных элементов массива X(8); s2-сумма отрицательных элементов массива Y(10) . обе суммы Лидия 188 Паскаль, Turbo Pascal, PascalABC.NET 1 06.11.2015 18:44
Смена элементов в матрице Karey Паскаль, Turbo Pascal, PascalABC.NET 0 17.12.2014 20:07
Вывод элементов массива.Изменение элементов массива. Vesnushka18 Помощь студентам 6 09.06.2011 13:05
В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму элементов массива HazelHen Общие вопросы C/C++ 2 29.03.2009 15:16