7. Програмування розгалужених обчислювальних процесів з використанням оператора Select Case.

Формулювання задачі. Скласти підпрограму обчислення значення складної функції, наведеної в розділі 11.5, за допомогою оператора Select Case.

Нижче наведено програмний код розв’язування даної задачі.

Sub Select_Case()

'Завдання. Дано аргумент функції x.

'Необхідно обчислити:

'значення складної функції y, яка задана виразами:

'x^2-3*x+1, якщо x<-2;

'sin(3*x)^2*log(abs(2*x-1))/log(3), якщо -2=<x=<3;

'x^2+5*x+1, якщо 0<x<2;

'2^(-x), якщо x>=2;

Dim x, y As Single

x = Val(InputBox("Введіть значення аргумента x!"))

Select Case x

Case Is < -2

y = x ^ 2 - 3 * x + 1

Case -2 To 0

y = Sin(3 * x) ^ 2 * Log(Abs(2 * x - 1)) / Log(3)

Case 0.0000001 To 1.9999999

y = x ^ 2 + 5 * x + 1

Case Else

y = 2 ^ (-x)

End Select

MsgBox "x=" & Format(x, "0000.00") & " y=" & _

Format(y, "0000.00")

End Sub

8. Оператор циклу For … Next.

Оператор циклу For … Next має такий формат:

For <параметр циклу> = <поч знач парам циклу> To <кін знач парам циклу> [Step <крок> ]

<блок операторів 1>

[Exit For]

<блок операторів 2>

Next [<параметр циклу > ]

де <параметр циклу> - проста змінна числового типу, яка є параметром циклу;

<поч знач парам циклу> - константа, проста змінна або вираз того ж типу, що і параметр циклу і значення якого визначає початкове значення параметра циклу;

<кін знач парам циклу> - константа, проста змінна або вираз того ж типу, що і параметр циклу і значення якого визначає кінцеве значення параметра циклу;

<крок> - константа, проста змінна або вираз того ж типу, що і параметр циклу і значення якого визначає крок зміни параметра циклу;

<блок операторів 1>, <блок операторів 1> - один або більше допустимих у мові VBA операторів.

Робота оператора For … Next полягає в наступному. Спочатку він надає елементу <параметр циклу> значення <поч знач парам циклу>. Якщо це значення виявиться меншим від значення <кін знач парам циклу>, то виконюються оператори тіла циклу, тобто оператори, які входять в <блок операторів 1> та <блок операторів 2>. Далі до значення <параметр циклу> додасться значення елемента <крок>, і процес виконання оператора циклу повториться вже з новим значенням параметра циклу. Це триватиме доти, поки значення <параметр циклу> не перевищить значення <кін знач парам циклу> . У цьому випадку відбувається вихід із циклу. Зазначимо, що вихід із циклу може відбутися і передчасно, якщо спрацює елемент [Exit Do]. Елемент Exit Do зазвичай використовується у складі умовного оператора If … Then, який перевіряє альтернативну умову переривання циклу. Цей оператор циклу називають оператором циклу з лічильником, адже в ньому заздалегідь відомо кількість повторень циклу. Якщо початкове значення параметра циклу менше від кінцевого значення параметра циклу, то використовують параметр циклу зі знаком плюс, у протилежному випадку - зі знаком мінус. За замовчуванням оператор циклу використовує <крок>, що дорівнює одиниці, і тоді елемент [Step <крок> ] можна не вказувати ; якщо ж <крок> має бути відмінним від одиниці, то він повинен бути заданий явно.