End Select

Управляющая алгоритмическая конструкция Select Case

Управляющая алгоритмическая конструкция Select Case позволяет задать альтернативный набор выполняемых алгоритмов в зависимости от значения управляющей переменной и имеет следующий вид:

Select Caseуправляющая переменная

Case список значений 1

[операторы 1]

[Case список значений 2

[операторы 2]]

.

.

[Case Else[операторы n]]

Логика работы управляющей конструкции следующая: если управляющая переменная принимает значения из списка 1, то выполняются операторы 1, если управляющая переменная принимает значения из списка 2, то выполняются операторы 2 и т.д. Если управляющая переменная не принимает значения не из одного из списков, то выполняются операторы n.

Элемент RADIO

<INPUT ACCESSKEY = key

ALIGN = LEFT | CENTER | RIGHT

ALT = text

CHECKED

CLASS = classname

DISABLED

ID = value

LANG = language

LANGUAGE = JAVASCRIPT | JSCRIPT | VBSCRIPT | VBS

LOWSRC = url

MAXLENGTH = n

NAME = name

READONLY

SIZE = n

STYLE = css1-properties

TABINDEX =n

TITLE =text

TYPE = RADIO

VALUE = value

event = script

>

Простой пример иллюстрирует логику работы управляющей конструкции:

Vozrast = InputBox("Введите ваш возраст в виде цифры от 1 до 100")

Select Case Vozrast

Case 1, 21, 31, 41, 51, 61, 71, 81, 91

MsgBox "Вам" & Str(Vozrast) & " год"

Case 2 To 4, 22 To 24, 32 To 34, 42 To 44, 52 To 54, 62 To 64, 72 To 74, 82 To 84, 92 To 94

MsgBox "Вам " & Str(Vozrast) & " года"

Case 5 To 20, 25 To 30, 35 To 40, 45 To 50, 55 To 60, 65 To 70, 75 To 80, 85 To 90, 95 To 100

MsgBox "Вам " & Str(Vozrast) & " лет"

Case Else

MsgBox "Вы ввели неправильное число"

End Select

Пример проекта:

Исходная форма проекта показана на рисунке 16.

Рис. 16.

По выбранному в списке названию страны в текстовое окно выводится название столицы этой страны. В какое из окон выводится название столицы, управляется флажком.

Описание элементов на форме.

<form name="Form1">

<p><input type="text" size="25" maxlength="25" name="Text1"></p>

<p>

<select NAME="CaseSelect" size="1">

<option VALUE="1">Франция </option>

<option VALUE="2">Англия</option>

<option VALUE="3">Германия </option>

</select>&nbsp;&nbsp;&nbsp;&nbsp; <input type="button" value="Выбор" name="btnOne">

</p>

<p><input type="checkbox" checked name="chkOne" value="ON"> Верхнее окно </p>

<p><input type="text" size="25" maxlength="25" name="Text2"></p>

</form>

Процедура обработки события «Щелчок мышью по кнопке»:

Sub btnOne_onClick

Dim TheForm

Set TheForm = Document.Form1

Select Case TheForm.CaseSelect.Selectedindex

‘TheForm.CaseSelect.Selectedindex - выбранный элемент списка

Case 0

If TheForm.chkOne.checked Then

TheForm.Text1.Value = "Париж"

TheForm.Text2.Value = " "

else

TheForm.Text2.Value = "Париж"

TheForm.Text1.Value = ""

End If

Case 1

……………………………………

…………………………………………

………………………………………….

Case 2

………………………………………

…………………………………………….

…………………………………………….

End Select

End Sub

Свойство Selectedindex списка содержит значение индекса выбранного элемента.

Задание 7 для самостоятельного выполнения

1. Создать два списка соответствующих друг другу элементов (например, «Страна» -> «Столица» и «Столица» -> «Страна») соответственно варианту задания.

2. Создать следующую форму проекта (рис. 17):

Рис. 17.

3. Написать процедуру обработки события «Щелчок мышью по элементу списка» (вместо использования кнопки «Выбор» в исходной форме) для вывода в текстовое окно соответствующего для выбираемого в списке элемента.

Элементы в правой части формы должны выполняют аналогичные действия, но используют обратное соответствие элементов (в примере «Столица» -> «Страна»)

Варианты задания для самостоятельного выполнения: