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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2012, 09:54   #1
Bape}l{ka
Форумчанин
 
Аватар для Bape}l{ka
 
Регистрация: 25.05.2011
Сообщений: 249
По умолчанию максимальное количество итераций цикла For...Next

подскажите пожалуйста, есть ли ограничение на количество итераций в цикле For...Next??
что-то мне кажется около 35000?? или это из другого?? в интернете не смогла найти Т_Т
Bape}l{ka вне форума Ответить с цитированием
Старый 01.03.2012, 10:09   #2
nerv
Форумчанин
 
Аватар для nerv
 
Регистрация: 26.04.2010
Сообщений: 450
По умолчанию

скока нуна, стока мона)
Тишина – самый громкий звук
nerv вне форума Ответить с цитированием
Старый 01.03.2012, 10:11   #3
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Да нет
Код:
Sub tt()
    Dim i&, x&
    For i = 1 To 1000000
        x = i
    Next
    MsgBox "x=" & x & ", i=" & i
End Sub
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 01.03.2012, 12:13   #4
slan
Форумчанин
 
Аватар для slan
 
Регистрация: 30.01.2008
Сообщений: 314
По умолчанию

ограничено размером счетчика, если счетчик типа byte - будет только до 255 работать
slan вне форума Ответить с цитированием
Старый 01.03.2012, 21:10   #5
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Цикл For...Next может быть бесконечным, если шаг =0.
Правда, для этого логичнее использовать Do...Loop. И надо предусмотреть выход из цикла по какому-то условию.
Код:
Sub bb()
Dim b As Byte, d As Double, t As Single
t = Timer + 1
For b = 1 To 1 Step 0 'бесконечный цикл
    d = d + 1#
    If Timer > t Then Exit For
Next
Debug.Print "За секунду цикл прошел " & d
End Sub
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 02.03.2012, 09:53   #6
slan
Форумчанин
 
Аватар для slan
 
Регистрация: 30.01.2008
Сообщений: 314
По умолчанию

более того

цикл for next может быть бесконечным даже при ненулевом шаге :


Dim i&
For i = 1 To 2 Step 0.1
Next

также как бесконечна фантазия пользователей
slan вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как направить максимальное количество ресурсов на игру VladimirNew Свободное общение 12 26.10.2011 19:04
Максимальное количество квадратов=) Accroach Помощь студентам 1 15.05.2011 20:19
Какое количество итераций цикла while выполнит программа? whtfng Помощь студентам 0 23.05.2010 02:04
Доработка программы. Вывести количество итераций vitaly38 Помощь студентам 6 19.05.2010 21:47
Доработка программы. Вывести количество итераций vitaly38 Общие вопросы Delphi 2 19.05.2010 17:17