Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Power Basic

Страница: 1 |

 

  Вопрос: чем заменить 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-сайт: Rus-Skipper.narod.ru
 Профиль | | #1
Добавлено: 01.07.07 23:48
в VB наверно так...
x = x + 7
хотя смысла не вижу?
И причем тут x = x - y

Ответить

Номер ответа: 2
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #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
Автор ответа:
 Millenium



ICQ: 629966 

Вопросов: 118
Ответов: 903
 Web-сайт: www.aliyev.us
 Профиль | | #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 |

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам