Оператор Select Case

Приклад використання оператора множинного вибору. Розглянемо використання оператора множинного вибору Select Case на прикладі обчислення денного заробітку робітника з врахуванням тарифу і тарифного розряду. Код і форма відображені на рис. 3.8.

На формі розмістимо командну кнопку, яку перейменуємо на «Пуск» та відповідно змінимо напис на ній.

Подією для програмування оберемо клацання лівою кнопки миші на кнопці Пуск.

Для вибору тарифного коефіцієнта за розрядом використаємо оператор Select Case r.

Параметр вибору r може приймати 7 різних значень тож використання множинного оператора вибору значно зручніше ніж багаторазове використання лінійної форми умовного оператора If.

If r=1 then k=1

If r=2 then k=1.1

………………….

If r=7 then k=2.2

Private Sub Пуск_Click()

Dim Z!, r%, t!, tr!, k!

Т = Val(InputBox("Т", "Укажіть тариф"))

r = Val(InputBox("r", "Тарифний розряд"))

tr = Val(InputBox("tr", "Відпрацьований час"))

Select Case r

Case 1: k = 1: Case 2: k = 1.1: Case 3: k = 1.35:

Case 4: k = 1.5: Case 5: k = 1.7: Case 6: k = 2:

Case 7: k = 2.2

End Select

Z = t * tr * k

Print "Тариф Т=" & Т; " Грн/годину"

Print "Розряд r=" & r

Print "k=" & k

Print " Відпрацьовано tr=" & tr & " Годин"

Print "Заробіток Z=" & Z & " Грн."

End Sub

Рисунок 3.8. Результат обчислень заробітку

В вище розглянутому додатку запрограмовано подію, якою є щиглик на командній кнопці Пуск, єдиному елементу інтерфейсу встановленому на формі. Введеня даних здійснюється за допомогою функції InputBox, а фіксація їх і результату виконується безпосереднім виведенням на форму за допомогою оператора Print.

4.2. ПРОЕКТУВАННЯ ДОДАТКА НА БАЗІ ОПЕРАТОРІВ ЦИКЛУ

Циклічні операціїї, тобто виконання одних і тих же дій багаторазово при різних значеннях величин, які входять до циклу, використовуються в програмуванні доволі часто. Для організації циклу необхідно: а) задати початкове та кінцеве значення параметра циклу – змінної, що змінюється при повтореннях циклу. б) перевірити умову, яка забезпечує вихід з циклу при досягненні мети; в) вказати крок зміни параметру циклу.

Розрізняють цикли, де число повторень заздалегідь відоме (арифметичні) і такі цикли, де число повторень заздалегідь невідоме, але його можна визначити під час виконання циклу (ітераційні).

Якщо число повторень відома заздалегідь, то краще використовувати оператор циклу з лічильником, у протилежному випадку оператор умовного циклу з верхнім або нижнім закінченням. Вміння викорстовувати циклічні алгоритми є базовими для реалізації додатків з використанням масивів даних і масивів елементів керування. Вони дозволяють краще зрозуміти сутність циклічних поцесів, які зустрічаються під час розвязання різних задач на комп’ютері.

Цикл в програмі можна організувати за допомогою операторів циклу For...Next, While…Wend, Do...Loop.

4.3. ОПЕРАТОРИ УМОВНОГО ЦИКЛУ

Умовний цикл одержав свою назву через те, що при кожному повторенні превіряється виконання умови, і рішення про подальші дії приймається залежно від результатів перевірки.

Оператор циклу While…Wend

Синтаксис:

While<умова>

<Група операторів>

Wend

де умова – логічний вираз, який оцінюється як істина (1), або хибність (0).

Дія: Оператор призначений для організації циклу з передумовою, у якому вказана група операторів виконується циклічно до того часу, поки вказана умова не стане хибною. Змінна, що входить в умову, змінюється в тілі циклу. Для дострокового виходу із циклу в разі виконання деякої додаткової умови вживається оператор Exit While.

Допускається використання вкладених циклів. При цьому кількість операторів While і відповідних їм Wend повинна збігатись.

Приклад.Обчислити:

Створимо форму без жодного постійного елемента керування. Подія для програмування – завантаження форми.

Private Sub Form_Load()

Dim I%, n%, S!

N=InputBox(“n=”)

I=1: S=0

While I <=n

S=S+cos(i)/(I+1)^3

I=I+1

Wend

MsgBox (“S=”+Str(S))

End

End Sub

Оператор циклу Do…Loop

Поряд з операторами For…Next та While…Wend застосовується більш сучасний оператор циклу Do…Loop, що має два можливих формати: з верхнім і нижнім закінченням.

Першому формату відповідає наступний синтаксис:

Do {While/Until}<умова>

<група операторів >

[Exit Do]

Loop

Конструкція {While/Until} означає, що використовується тільке одне з ключових слів: або While (Поки),або Until (До).

При такій формі запису спочатку здійснюється перевірка умови повторення циклу і якщо вона не виконується, то цикл ні разу не виконується. Фрагменти While/Until мають умови, що визначають вихід з циклу чи його повторення. В конструкції While записується умова, хибність якої визначає вихід з циклу – перехід до оператора, що йде за оператором циклу, тобто після слова Loop. Хибність логічного виразу (умови) в конструкції Until визначає повторення циклу, яке здійснюється до її виконання, після чого відбувається вихід з циклу.

Другому формату відповідає синтаксис

Do

<група операторів>

[Exit Do]

Loop {While/ Until} <умова>

де <умова> – логічний вираз, який може приймати два значення: істина (не 0), або хибність (0);

While – виконання циклу, поки умова істина;

Until – виконання циклу, поки умова хибна:

Дія: У цій формі запису спочатку виконується група операторів (тіло циклу), після чого виконується перевірка умови повторення циклу. Таким чином, цей цикл завжди виконується хоча б один раз.

Цикл з нижнім закінченням вживається тоді, коли оператори тіла циклу повинні виконуватися хоча б один раз, а з верхнім – навіть жодного.

Серед операторів тіла циклу може бути оператор Exit Do,що забезпечує негайний вихід з циклу (до досягнення ключового слова Loop)

Приклад. Обчислити суму спадного ряду, використовуючи усі можливі варіанти використання оператора Do…Loop.

з точністю ε=10-5

Наведемо 4 варіанти реалізації циклу Dо Loop для обчислення суми ряду.

Варіант 1

Private Sub Комманда1_Click()

Dim s!, e!, h! , k%

s=0: k=1: e=0.00001

Do

h=sin(k)/(k^3+3)

s=s+h

k=k+1

Loop While Abs(h) >e

Print “k=”; k, “s=”; s, “h=”, h

End Sub

Варіант 2

Private Sub Комманда1_Click()

Dim s!, e!, h! , k%

s=0: k=1: e=0.00001:h=1

Do While Abs(h) > e

h=sin(k)/(k^3+3)

s=s+h

k=k+1

Loop

Print “k=”; k, “s=”; s, “h=”, h

End Sub

Варіант 3

Private Sub Комманда1_Click()

Dim s!, e!, h! , k%

s=0: k=1: e=0.00001

Do

h=sin(k)/(k^3+3)

s=s+h

k=k+1

Loop Until Abs(h) >e

Print “k=”; k, “s=”; s, “h=”, h

End Sub

Варіант 4

Private Sub Комманда1_Click()

Dim s!, e!, h! , k%

S=0: k=1: e=0.00001:h=1

Do Until Abs(h) < e

h=sin(k)/(k^3+3)

s=s+h

k=k+1

Loop

Print “k=”; k, “s=”; s, “h=”, h

End Sub

Приклад. Розглянемо задачу економічного характеру.

При відвідуванні магазину покупець робить покупки в процесі знайомства з товаром, тобто заздалегідь не відомо, які товари будуть куплені. Потрібно визначити вартість усіх покупок. Передбачити випадок, коли немає жодної покупки.

Для визначення загальної вартості покупок необхідно врахувати вартість кожного виду товару відібраного покупцем, для чого потріно знати його ціну і кількість. Продавці звичайно ведуть облік проданих товарів, тому крім ціни і кількості передбачимо введення назви товару (або його коду). Кодом може слугувати порядковий номер товару в спискові товарів цього магазину чи відділу. Отримані відомості бажано зберегти на дискові в файлі послідовного чи безпосереднього доступу. Маючи це на увазі, розмістимо на формі три елементи ListBox (Списки), в які будемо заносити дані про покупки.

В Список1 запишемо коди, в Список2 – Ціни (Грн.), в Список3 –кількість. Над списками розмістимо відповідні мітки. Вводити дані будемо за допомогою функції InputBox, запитання до покупця і підсумок будемо виводити за допомогою функції MsgBox. Розмістимо на формі ще командну кнопку, яку перейменуємо на Обчислити, змінивши відповідно надпис на ній. За подію для програмування виберемо щиглик на кнопці Обчислити. Оскільки Ціна і Вартість S повинні подаватися в горшових одиницях, то оголошуємо їх As Currency, кількість оголошуємо числом одинарної точності (As Single), код товару відображується цілим числом (As Integer).

Код процедури має вигляд:

Private Sub Обчислити_Click()

Dim Код As Integer, Ціна As Currency, S As Single, i As Integer

S=0: ‘ Загальна вартість

i=0 ‘ номер покупки

Do While MsgBox(“Будуть ще покупки?”, vbQuestion + _ vbYesNo, “Покупки”)=vbYes

i=i+1

Код=Val(InputBox(“Введіть ціну”, i & “ –го товару”))

Ціна=CCur(InputBox(“Введіть ціну”, i & “ –го товару”))

Кількість=Val(InputBox(“Введіть ціну”, i & “ –го товару”))

Список1. AddItem Код

Список2. AddItem Ціна

Список3. AddItem Кількість

S=S+Ціна*Кількість

Loop

MsgBox “Вартість всіх покупок “ & Format( S, “0.00”) & “Грн.”

End Sub

Рисунок 3.10. Результат дії додатку Покупки

4.4. ОПЕРАТОР ЦИКЛУ FOR...NEXT

Синтаксис:

For х=х0 То xn [ Step h ]

<Група операторів>

[Exit For]

Next x,

де х – параметр циклу;

x_o, x_n, h – арифметичні вирази, значення яких визначають:

x₀ – початкове значення параметра циклу;

x_n – кінцеве значення параметра циклу;

h – крок, з яким змінюється параметр циклу. Якщо h=1,то Step h не пишеться. Exit For використовується в разіі необхідності дострокового виходу з циклу.

Дія оператора. При виконанні оператора циклу For...Next в першу чергу обчислюється (якщо це необхідно) і запам'ятовується початкове значення (x₀), кінцеве значення (х_n) та крок зміни (h) параметра циклу. Параметру циклу присвоюється початкове значення (х=х₀) і перевіряється умова, чи перевищує значення параметра циклу х значення xn. Якщо значення параметру циклу знаходиться в інтервалі між початковим та кінцевим значенням, виконуються оператори, що знаходяться між операторами For та Next (тіло циклу). Далі оператор циклу збільшується на величину h. Дії повторюються до того часу, поки параметр циклу х не стане більшим за x_n. В такому випадку управління передається на виконання оператора, що стоїть в програмі після оператора Next x.

При виході з циклу достроково (наявність оператора Exit For) значення параметра циклу дорівнює останньому значенню в середині циклу.

При виході з циклу через оператор Next значення параметру дорівнює останньому його значенню плюс величина кроку зміни параметру.

Дозволяється використання циклу в циклі ( вкладених циклів ). В цьому випадку внутрішній цикл повинен повністю знаходитися в тілі зовнішнього циклу.

Приклад. Скласти схеми та програми для варіантів (а) та (б) обчислення значень а, р та у. Результати отримати у вигляді таблиці значень.

a) х={1; 1,5; 2, ... 5}, b) x={1,5; 4,9; 8,36; -0,87 }

Параметри початкового (х₀=1.5), кінцевого (х_n=5) значень та кроку (h==0.5) визначаються із вказанної послідовності значень змінної х (варіант (а)).

Для введення змінних d, с, х₀, х_n, h створюємо масив z (використовуємо функцію Array)

Програма до варианту а).

Private Sub Комманда1_Click()

Rem Програма до варіанту а)

Dim a!,y!,p!

Z=Array(4.7,1.854,1,5,5,0.5)

D=z(0):c=z(1): x0=z(2): xn=z(3); h=z(4)

Print Tab (10);”Таблица”

Print Tab(10); String$(14,”*”)

Print Tab(3);”x”;Tab (12);”a”;_

Tab(24);”y”;Tab (48);”p”

Print String$(52,”*”)

For x=x0 To xn Step 0.5

A=sqr(17.89)*x+(c+sin(d))/(c-cos(d))

If a>x then

Y=Atn(a+x)

Else

Y=log(ABS(cjs(y)))+exp(x)

Print x;Tab(8);a; Tab(19);y; Tab(33); p

Next x

Print string$(52,”*”)

End sub

Програма до варианту b)

Розглядаємо х як масив чисел, тобто x={Xi}, і=1…n (n=4)

Option Base 1

Private Sub Комманда1_Click()

Rem програма по варіанту b)

Dim a!, y!, p!

Z=Array(4.7,1.854)

D=z(1):c=z(2)

X=Array(1.5,4.9,8.36, -0.87)

n=InputBox(“n=”)

Print Tab(10);”Таблиця”

Print Tab(10);String$(14,”*”)

Print Tab(3); “x”; Tab(12); “a”;_

Tab(24); “y”; Tab(40); “p”

Print String$(53,”*”)

For I=1 To n

A=Sqr(17.89)*x(i)+(c+sin(d))/(c-cos(d))

If a>x(i) then

Y=Atn(a+x(i))

Else

Y=log(abs(a+x(i)))

End If

P=Sqr(abs(cos(y)))+exp(x(i))

Print x(i); Tab(19);y; Tab (33);p

Next I

Print String$(53,”*”)

End Sub

Приклад. Cкласти програму для обчислення Z!

Реалізуємо алгоритм блок-схема якого відображена на рис.1.7.

Розмістимо на формі лише один елемент управління – командну кнопку, ім’я якої і напис на якій змінимо з CommandButton1 на Пуск.

Запрограмуємо подію – щиглик (Click) на кнопці Пуск. Для введення Z використаємо оператор InputBox(), для виведення результату – оператор MsgBox().

Private Sub Пуск_Click()

Dim Z %, P%, i%

Z=Val(Input(“Z=?”,”Задайте Z”)

P=1

For i=1 to Z

P=P*i

Next i

MsgBox=”Z!=” & P

End Sub

Рисунок 3.9.Результат обчислення Z! для Z=7.

КОНТРОЛЬНІ ЗАПИТАННЯ

1. У яких випадках використовують розгалужені алгоритми? Наведіть приклади.

2. Яке призначення має умовний оператор?

3. Порівняйте за призначенням лінійну та блочну форми умовного оператора?

4. З якою метою можна застосовувати функцію MsgBox?

5. Придумайте три задачі з повсякденного життя, де було б використано умовний оператор.

6. Яке призначення мають оператори циклу?

7. У яких випадках використовуються оператори умовного циклу? Наведіть приклади.

8. За допомогою яких операторів можна організувати цикл?

9. Які типи циклів розрізняють?

10. Який синтаксис має оператор циклу While…Wend?

11. Який синтаксис має оператор циклу Do…Loop?

12. У чому полягає відміннісь у вживанні ключових слів While та Until? Чи можуть вони вживатись одночасно?

13. Який синтаксис має оператор циклу For…Next?

14. Яким чином організуються ітераційні цикли при програмуванні на Visual Basic? Яким чином можна використовувати вкладені цикли під час програмування?

15. Чи завжди можна замінити оператор циклу з лічильником на оператор умовного циклу і навпаки?

Лекція 5

МАСИВИ

План лекції:

Лекція 6