| Вопрос: чем заменить if THEN | Добавлено: 01.07.07 23:06 |
Автор вопроса:  Frol
|
|
чем можно заменить такую конструкцию?
x = x - y if x = -1 THEN x = 6 if x = -2 THEN x = 5 if x = -3 THEN x = 4 if x = -4 THEN x = 3 if x = -5 THEN x = 2 if x = -6 THEN x = 1 |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 01.07.07 23:48 |
|
в VB наверно так...
x = x + 7 хотя смысла не вижу?
И причем тут x = x - y |
||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 01.07.07 23:55 |
|
Может так? Просто вопрос не доконца ясен.
if x <0 THEN x = y
|
||
|
Номер ответа: 3 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #3 | Добавлено: 02.07.07 02:08 |
|
x = x - y
if x = -1 THEN x = 6 if x = -2 THEN x = 5 if x = -3 THEN x = 4 if x = -4 THEN x = 3 if x = -5 THEN x = 2 if x = -6 THEN x = 1 ужос! ответ в посте 1 вторая строчка на будущее: нехорошо проверять тучу раз одну и ту же переменную туевой тучей if используй конструкцию select case |
||
|
Номер ответа: 4 Автор ответа: Kalte Вопросов: 1 Ответов: 11 |
Профиль | | #4 | Добавлено: 02.07.07 09:44 |
x = CHOOSE& ABS(x), 6,5,4,3,2,1 )
|
||
|
Номер ответа: 5 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #5 | Добавлено: 02.07.07 15:23 |
|
Select case x-y case -1 x=6 case -2 x=5 .... end select |
||
|
Номер ответа: 6 Автор ответа: Frol Вопросов: 3 Ответов: 5 |
Профиль | | #6 | Добавлено: 02.07.07 22:28 |
|
спасибо
x = CHOOSE& ABS(x), 6,5,4,3,2,1 )
это то что надо |
||
|
Номер ответа: 7 Автор ответа:  MilleniumICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #7 | Добавлено: 04.07.07 11:54 |
|
Gjxnb nfr-;t rfr gbcfk dNW
'Используй SELECT CASE X
CASE A Command CASE B Command CASE C, E Command Case is >F Command ENd select |
||
Страница: 1 |