Подскажите, как создать структуру вложенного ветвления в VB?
Кажется, это легко, но как бы не так! В Паскале все кристально ясно. Заключаешь в операторные скобки begin/end и готово. В VB постоянно возникают ошибки, то ожидается end, то еще что-нибудь.
Пишу прогу вручную, в блокноте для ASP страниц

1)

Код

IF <условие> THEN <оператор 1>

2)

Код

IF <условие> THEN              <оператор 1> END IF

3)

Код

IF <условие> THEN           <оператор 1>           <оператор 2> ELSE           <оператор 3> END IF

4)

Код

IF <условие> THEN           <оператор 1> ELSEIF <условие>           <оператор 2> ELSE           <оператор 3> END IF

Возможна ли такая сложная развилка?

Код

IF <условие 1> THEN   <оператор 1>   IF <условие 2> THEN       <оператор 2>       IF <условие 3> THEN           <оператор 4>       ELSE <оператор 5>            <оператор 6>       END IF   ELSE <оператор 7>        <оператор 8>   END IF   IF <условие 4> THEN      <оператор 9>   ELSE <оператор 10>   END IF ELSE <оператор 11> END IF

Это сообщение отредактировал(а) Liss - 14.6.2004, 14:42

В полне нормальная развилка

Код

IF <условие 1> THEN   <оператор 1>   IF <условие 2> THEN      <оператор 2>      IF <условие 3> THEN          <оператор 4>      ELSE         <оператор 5>         <оператор 6>      END IF   ELSE      <оператор 7>      <оператор 8>   END IF   IF <условие 4> THEN      <оператор 9>   ELSE      <оператор 10>   END IF ELSE   <оператор 11> END IF

Код

IF <условие 1> THEN  <оператор 1>  IF <условие 2> THEN    <оператор 2>    IF <условие 3> THEN      <оператор 4>    ELSE      <оператор 5>      <оператор 6>    END IF  ELSE    <оператор 7>    <оператор 8>  END IF  IF <условие 4> THEN    <оператор 9>  ELSE    <оператор 10>  END IF ELSE  <оператор 11> END IF

Добавлено @ 14:47
Привет boevik
Шустро сработал!

А где 3-ий оператор?

Цитата

В полне нормальная развилка

Но возможно можно что-то улучшить - зависит от кода...

Цитата

Привет boevik Шустро сработал!

Принимаю как комплимент

Liss

Цитата

В Паскале все кристально ясно. Заключаешь в операторные скобки begin/end и готово. В VB постоянно возникают ошибки, то ожидается end, то еще что-нибудь.

А это потому что в Паскале ты пишешь аккуратно, а в Барсике - левой пяткой. Сам виноват.
В паскале ты как делаешь? сразу пишешь:

Код

if тра-та-та begin end;

и только потом начинаешь набивать это кодом. так? это правильно.
Однако что тебе мешает перенести ЭТУ идеологию в Барсик? сразу пишешь:

Код

if 1 then else endif

и только потом начинаешь добавлять код - условие и действия. Если будешь делать аккуратно - не будет у тебя никаких проблем.

Рекомендация - забудь об elseif. Они не имеют смысла, особенно до того момента когда код создан, отлизан и в нем не предполагается изменений даже теоретически - вот тоько когда можешь сшить else и идущий за ним if. только зачем?
Рекомендация 2 - при последовательных проверках одной и той же конструкции нужно использовать select case.

Цитата

Рекомендация - забудь об elseif. Они не имеют смысла, особенно до того момента когда код создан, отлизан и в нем не предполагается изменений даже теоретически - вот тоько когда можешь сшить else и идущий за ним if. только зачем?

Akina позволь с тобой не согласится.

Код

Dim i As Integer i = 3 If i > 1 Then    Debug.Print i End If If i > 2 Then    Debug.Print i End If

и

Код

Dim i As Integer i = 3 If i > 1 Then    Debug.Print i ЕlseIf i > 2 Then    Debug.Print i End If

Дают различный результат. Поэтому просто забыть об ЕlseIf нельзя.

boevik
Не надо мухлевать. Речь шла о том что вместо

Код

Dim i As Integer i = 3 If i > 1 Then   Debug.Print i ЕlseIf i > 2 Then   Debug.Print i End If

надо писАть

Код

Dim i As Integer i = 3 If i > 1 Then   Debug.Print i Еlse   If i > 2 Then      Debug.Print i   End If End If

Это сообщение отредактировал(а) Akina - 15.6.2004, 11:15

Akina, извини, значит не правильно понял тебя.

boevik

Цитата

значит не правильно понял тебя

Я думал ты мя подкалываешь... просто первая из приведенных тобой конструкций при написании через начальный шаблон ну никак не получится - только вторая...