Как сделать цикл с непоследовательными значениями?

@arsen1101995 · Регистрация: 07.03.2013

Студворк — интернет-сервис помощи студентам

Как можно сделать так, чтобы цикл перебирал значения, допустим, от 1 до 5 и от 10 до 25..То есть, чтобы 6,7,8,9 он не брал? Такое возможно?(Только мне надо все в одном цикле, а не несколько)

@gaw · 31.03.2013, 22:32

Visual Basic
1
2
3
4
For i = 1 To 25
If i = 6 Then i = 10
Print i
Next i

@arsen1101995 · 01.04.2013, 07:09 **[ТС]**

спасибо)

Добавлено через 1 минуту
а если у меня в этом интервале, еще прирыв будет? то просто нужно добавить еще одно условие?

@gaw · 01.04.2013, 09:56

Visual Basic
1
2
3
4
5
6
7
8
9
'6-9,12-15,18-19
a = Array(6, 9, 12, 15, 18, 19, 1000)
k = 0
For i = 0 To 20
  If i = a(k) Then
   i = a(k + 1): k = k + 2
  End If
Print i
Next i

@Казанский · 01.04.2013, 12:19

Менять переменную цикла внутри цикла можно, но делать этого не следует, т.к. это может привести к логической ошибке, которую будет трудно обнаружить. Так написано в учебниках. Я сам на этом попался, потом видел пару раз на форумах коды с подобными ошибками, написанные кодерами моего уровня. И решил больше так не делать.
Всегда можно изменить структуру программы так, чтобы не пришлось менять переменную цикла в цикле:

1. Один небольшой перерыв в интервале (по мотивам поста #2):

Visual Basic
1
2
3
4
5
For i = 1 To 25
  If i <= 5 and i>=10 Then
    Print i
  end if
Next i

2. Большой перерыв или много интервалов разного размера (по мотивам поста #5)

Visual Basic
1
2
3
4
5
6
7
'6-9,12-15,18-19
a = Array(6, 9, 12, 15, 18, 19) 
for k = 0 to ubound(a) step 2
  For i = a(k) To a(k+1)
    Print i
  Next i
next k

@gaw · 01.04.2013, 12:34

Казанский, спасибо большое, я понял, это справедливое замечание
просто еще не попадался, так как такие структуры никогда не использую

Добавлено через 3 минуты
______________

очень часто ловлю себя на мысли, что программысты сродни адвокатам, - одним знаком препинания перевернут все с ног на голову
не, - с головы на ноги

@arsen1101995 · 01.04.2013, 17:31 **[ТС]**

Спасибо большое)

@Catstail · 01.04.2013, 22:01

Если речь идет о цикле по списку значений, то вот:

Visual Basic
1
2
3
4
5
6
7
Sub aa()
 Arr = Array(1, 3, 4, 7, 8, 9) 'сюда можно занести любую последовательность (даже не монотнную!)
 For Each i In Arr
     ' получили очердной индекс - делайте с ним, что хотите!
     Debug.Print i
 Next
End Sub

@arsen1101995 · 02.04.2013, 07:18 **[ТС]**

А можете, пожалуйста, объяснить, что это за функция ubound?
И что значит, то что i = a(k)

@Апострофф · 02.04.2013, 07:38

arsen1101995, откройте учебник,
посмотрите тут - Самоучители по Visual Basic
и здесь - Массивы. Обьявление массивов. Сортировка массивов

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@arsen1101995 0 / 0 / 0 Регистрация: 07.03.2013 Сообщений: 327

	Как сделать цикл с непоследовательными значениями? 31.03.2013, 22:26. Показов 888. Ответов 9 Метки нет (Все метки) Как можно сделать так, чтобы цикл перебирал значения, допустим, от 1 до 5 и от 10 до 25..То есть, чтобы 6,7,8,9 он не брал? Такое возможно?(Только мне надо все в одном цикле, а не несколько) 0

@arsen1101995 0 / 0 / 0 Регистрация: 07.03.2013 Сообщений: 327
	01.04.2013, 07:09 [ТС]
	спасибо) Добавлено через 1 минуту а если у меня в этом интервале, еще прирыв будет? то просто нужно добавить еще одно условие? 0

@arsen1101995 0 / 0 / 0 Регистрация: 07.03.2013 Сообщений: 327
	01.04.2013, 17:31 [ТС]
	Спасибо большое) 0

@arsen1101995 0 / 0 / 0 Регистрация: 07.03.2013 Сообщений: 327
	02.04.2013, 07:18 [ТС]
	А можете, пожалуйста, объяснить, что это за функция ubound? И что значит, то что i = a(k) 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,907
	02.04.2013, 07:38
	arsen1101995, откройте учебник, посмотрите тут - Самоучители по Visual Basic и здесь - Массивы. Обьявление массивов. Сортировка массивов 0

Как сделать цикл с непоследовательными значениями?

Решение