Условный оператор Select Case...End Select

Конструкция Select Case “принимает решение” на основе анализа значения выражения, которое указывается в строке Select Case:

Select Case <Анализируемое_выражение>

Case <Значение1>
<Оператор1.1>

...

<Оператор1.M>

Case <Значение2>
<Оператор2.1>

...

<Оператор2.K>

...
Case <ЗначениеN>
<ОператорN.1>

...

<ОператорN.S>

Case Else
<Оператор1>

...

<ОператорZ>

End Select

Данная конструкция работает следующим образом: будет выполнена та группа операторов, которая стоит после строки caseсо значением, которое приняло анализируемое выражение.

Пример:

В зависимости от значения переменной iPr, строковой переменной strResultприсваиваются различные значения

Select Case iPr

Case 1
strResult = "iPr = 1"
Case 2, 3, 4
strResult = "iPr = 2, 3 или 4"
Case 5 To 9
strResult = "iPr находится в диапазоне от 5 до 9"
Case iPr < 0
strResult = "iPr меньше 0"
Case iPr > 9
strResult = "iPr больше 9"
Case Else
strResult = "iPr равно 0"

End Select

2.Проектирование интерфейса

Запустите Visual Basic. Выберите тип Standart EXE. Поместите на форму элементы управления, как показано на рис. 14.

Сначала необходимо в окне установить рамку (Frame ). Затем на форму вносятся кнопки.

Определите (используя окно Properties (Свойства) свойства каждого объекта, размещенного на форме, пользуясь таблицей. Окно вызывается клавишей F4 или из горизонтального меню View – Properties Window (Вид – Окно свойств).

Таблица 4

Слово “нет” в таблице означает, что такого свойства у объекта нет.

Последняя строка этой таблицы соответствует кнопке, которая будет использоваться для ввода цифры “1”. Остальные кнопки можно создать следующим образом: скопируйте созданную кнопку cmdNumber (ctrl-C) и отвечайте «Да» («Yes») на вопрос VB «Вы уже создали кнопку с именем cmdNumber. Хотите ли создать массив фигур?» («You already have a control named ‘cmdNumber’. Do you want to create a control array?»). Повторите копирование 15 раз (нажимайте ctrl-V и протаскивайте копию «на место», см. рис.14).

Посмотрите на имена Ваших кнопок (в окошке свойств). Вы увидите в скобках их номера: 0,1, …, 15 (всего 16 кнопок с одинаковыми свойствами): cmdNumber(0),…,cmdNumber(15).

Кнопкам 0,…,9 заголовки мы присвоим программно. Остальным зададим следующие заголовки и свойства (см. таблицу 5).

Таблица 5

Элемент управления	Name	Caption	Enabled
Кнопка десятичной точки (Command Button)	сmdNumber(10)		True
Кнопка суммирования (Command Button)	сmdNumber(11)	+	True
Кнопка вычитания (Command Button)	сmdNumber(12)	–	True
Кнопка умножения (Command Button)	сmdNumber(13)	*	True
Кнопка деления (Command Button)	сmdNumber(14)	/	True
Кнопка извлечения квадратного корня (Command Button)	сmdNumber(15)	корень	True

3.Написание программного кода

Двойными щелчками левой кнопки мыши заходите в окно программныхкодови для каждого объекта записывайте коды (программы, вызываемые событиями – нажатием кнопок).

Начнем с написания кодов для кнопки cmdExit. Двойным щелчком вызовем окно программных кодов и выше процедуры обработки нажатия на эту кнопку (выше строки Private Sub cmdExit_Click( )) в разделе (General) – Declarationsобъявим общие для всех программ переменные:

Dim perv, vtor As String‘perv – для первого числа формулы, ‘vtor - для второго

Dim a As String‘в а хранится знак арифметического действия

Dim zagotovka As String ‘в zagotovka будут конструироваться ‘числа формулы по мере их набора щелчками по кнопкам с цифрами

Dim rezult As Single ‘rezult хранит результат вычисления

Коды, которые нужно записать для кнопки cmdExit:

Private Sub cmdExit_Click( )

End

End Sub

Коды, которые нужно записать для кнопки cmdRun: