End Select

(В выражении ключевое слово Is должно стоять перед любым знаком отношения.)

 

Пример: Преподаватель за каждую решённую на контрольной работе задачу начислял баллы: за 1 и 2 по 6 баллов, за 3 и 4 по 9 баллов, за 5 по 12 баллов. Оценка за контрольную зависит от суммы набранных баллов.

Программный код должен содержать 5 одинаковых процедур для 5 событий – щелчок мышью по каждому из 5 контрольных индикаторов. Каждое событие будет вызывать последовательность действий:

Переменным: v1%, v2%, v3%, v4%, v5% - будут присвоены значения свойства Value пяти контрольных полей;

Будет вызвана процедура Summa, которая сначала присвоит переменной s% значение равное сумме набранных баллов, а затем присвоит переменной m% значение, равное оценке за контрольную работу.

Ниже приведены тексты одной процедуры CheckBox1_Click() и процедуры Summa, которая вызывается оператором Call. Процедура Summa демонстрирует использование оператора Select Case. Диапазоны значений переменной S% задаются с помощью ключевого слова To и с помощью неравенств и ключевого слова Is

Текст программы:

Sub Summa(v1%, v2%, v3%, v4%, v5%, s%, m%)

s% = -(v1% * 6 + v2% * 6 + v3% * 9 + v4% * 9 + v5% * 12)

Select Case s%

Case Is < 15

m% = 2

Case 15 To 24

m% = 3

Case 25 To 34

m% = 4

Case Is > 35

m% = 5

Case Else

m% = 0

End Select

End Sub

 

Private Sub Проверка1_Click()

v1% = Проверка1.Value: v2% = Проверка2.Value

v3% = Проверка3.Value: v4% = Проверка4.Value

v5% = Проверка5.Value

Call Summa(v1%, v2%, v3%, v4%, v5%, s%, m%)

Текст1.Text = s

Текст2.Text = m

End Sub

 

 

26. Объект CheckBox. Пример программы.

27.Системная функция: InputBox. Пример.

Функция InputBox используется для ввода данных пользователем через системное окно.

Синтаксис функции следующий:

InputBox (Приглашение [, Заголовок] [,НачЗначение])

Приглашение – любой текст, который находится в Окне ввода и служит для подсказки.

Заголовок – необязательная надпись в строке заголовка.

НачЗначение – это значение, которое будет введено автоматически, если пользователь с этим согласен.

Возвращаемым значением данной функции является информация вводимая пользователем. VB автоматически приписывает этой информации тип String. В программе функция InputBox может входить в состав выражения, значение которого присваивается переменной. При обращении к функции, на экране появляется Окно ввода.

После щелчка по кнопке ОК происходит присваивание и окно ввода исчезает.