Структура выбор Visual Basic 6.0.

Структура выбор поможет нам во многих случаях, где нужно выбрать что-то. Например: Выберете 1 из 5 конфет. Выбираем 2. Выскочит сообщение: «да, это самая крутая». Это сообщение, можно вывести через оператор вывода или textbox.
Как работает выбор?

Чтобы включить выбор, нужно присвоить переменную.
a=inputbox(«Введите число от 1 до 5″,»Ввод числа»)
Теперь подключить выбор к этой переменной.

Select case a
Теперь пропишем действие первое.
Сase 1
b=msgbox(«Ваше число не выигрышное»,16+1,»Ответ»)

Далее второе действие и так далее.
Case 2
c=msgbox(«Ваше число выигрышное»,32+1,»Ответ»)

Case 3
n=msgbox(«Ваше число не выигрышное»,16+1,»Ответ»)

Case 4
y=msgbox(«Ваше число не выигрышное»,16+1,»Ответ»)

Case 5
u=msgbox(«Ваше число не выигрышное»,16+1,»Ответ»)

Вот так, мы создали лотерею. Также ,можно создать такое условие, что при вводе числа не от 1 до 5 — вылетет ошибка.
Case else
i=msgbox(«Вы ввели число не от 1 до 5″,16+1,»Ответ»)

Можно выводить и вводить результат с помощью textbox.
Теперь самая важная часть без который выбор не будет работать: нужно закрыть структуру.

End select

Вот и вся структура выбор.