|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.07.2010, 14:23 | #1 |
Пользователь
Регистрация: 17.05.2010
Сообщений: 22
|
Не могу разобраться со вложенным циклом
Здравствуйте Всем!!!!
Есть такой код: For tn=1 To 4 For sn=1 To 8 Select Case sn Case 1 for rn=2 To 11 cn=1 To 5 ......... next cn next rn Case 2 for rn=2 To 11 cn=6 To 11 .......... next cn next rn Case 3 for rn=2 To 11 cn=12 To 18 ................... next cn next rn Case 4 for rn=2 To 11 cn=19 To 25 ..................... next cn next rn end Select next sn next tn Как можно сделать что бы если tn=2 тогда везде был for rn=12 To 22 Если tn=3 тогда везде rn=23 To 30 Пожалуйста помогите плиз или скажите пожалуйста возможно ли это Уже целую неделю голову ломил но результат 0. Заранее благодарен |
26.07.2010, 14:37 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Добавьте переменные x и y.
x=2: y=11 if tn=2 then x=12: y=22 и т.д.
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 26.07.2010 в 14:41. |
26.07.2010, 14:52 | #3 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
попрорбуйте так
Код:
Анализ,обработка данных Недорого
|
26.07.2010, 14:54 | #4 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
для чего у тебя цикл, напр. For sn = 1 To 8, а select case только до 4-х?
Код:
|
26.07.2010, 16:33 | #5 |
Пользователь
Регистрация: 17.05.2010
Сообщений: 22
|
Вложенный цикл
Doober,
Спасибо Вам большое за помощь. Ваш ответ для моей задачи самый раз. Спасибо ребята всем ваши варианты тоже отлично работает пробывал. Но именно ответ Doober а выбрал Без обид |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу разобраться!!! | Яна Сафронова | Помощь студентам | 11 | 12.05.2010 17:56 |
Запутался с вложенным циклом for. | Telas | Общие вопросы Delphi | 0 | 28.04.2010 09:30 |
не могу разобраться | Var17 | Общие вопросы Delphi | 6 | 27.03.2010 01:21 |
Не могу разобраться | semAz | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 10.03.2010 17:43 |
не могу разобраться | Инспектор ГУЛ | Свободное общение | 7 | 20.09.2009 09:29 |