Структура ветвление в Visual Basic 6.0.

В данном уроке, у нас вводятся различные знаки, которые будут встречаться в программах:

Также, может быть сложное условие:
(x<10) and (x>0)
And — значит «и».
(x<10) or (x>0)
Or — значит «или».

Теперь о структуре ветвление:
Если (условие) то (выполнить) иначе (выполнить). Как это ввести в программном коде?

If z>5 then b=6 else b=5

Данная структура не будет ни как графически выделятся, но будет вносить изменению в исходный результат. Давайте разберём задачу на данную структуру.
Условие:
Сумма двух чисел >10 и <20 ?
Ответ: с использование msgbox.

Начнём писать код и введём числа через inputbox.

a=inputbox(«Введите первое число»,»Ввод первого числа»)

b=inputbox(«Введите второе число»,»Ввод второго числа»)

m=val(a)+val(b)

if (m>10) and (m<20) then c=msgbox(«Да сумма ваших чисел >10 и <20″,32+1,»Ответ») else t=msgbox(«Сумма ваших числе не >10 и <20″,16+1,»Ответ»)

Немного разберём код. Мы ввели два числа с помощью inputbox. Далее посчитали их сумму.
Ввели условие из задачи. Если условие выполнено — выводим положительный ответ (под переменной с), иначе выводим отрицательный результат (под переменной t).

Вот и вся структура ветвление. Далее данная структура нам очень пригодится.