|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.01.2018, 01:53 | #1 |
Новичок
Джуниор
Регистрация: 22.01.2018
Сообщений: 2
|
VBA, цикл FOR, последовательности
Sub s()
Dim i As Integer Dim a As Integer n = Array(-4, -2, 4, 5, 2, 5, 1) For i = 1 To 7 i = If (i) >= 0 Then a = a + 1 End If Next i MsgBox a End Sub Вот, накидал, но не знаю, как "заставить" i брать числа из массива по очереди. Найти количество положительных чисел в последовательности из n чисел (последовательность вводится пользователем). |
22.01.2018, 02:25 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Если я правильно понял, то можно применить любой из вариантов:
Код:
Код:
Чем шире угол зрения, тем он тупее.
|
22.01.2018, 02:50 | #3 | |
Новичок
Джуниор
Регистрация: 22.01.2018
Сообщений: 2
|
Цитата:
|
|
22.01.2018, 06:46 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Если требуется просто узнать количество неотрицательных элементов в массиве, то можно и так (без явных циклов):
Код:
Чем шире угол зрения, тем он тупее.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти количество четных элементов последовательности VBA | Алёна_ | Помощь студентам | 0 | 03.12.2015 10:37 |
Последовательности VBA | duducka | Помощь студентам | 1 | 11.12.2012 15:44 |
цикл: в линейной последовательности поменять местами 1-й и N-й, 2-й и N-1 й и т.д. | ВДПУ | Помощь студентам | 14 | 30.05.2011 00:16 |
Последовательности, цикл for | Agiza | Помощь студентам | 2 | 10.10.2010 12:40 |
VBA (сумма элементов последовательности) | SOMBRE | Помощь студентам | 2 | 18.04.2010 15:26 |