Приклад використання оператора множинного вибору. Розглянемо використання оператора множинного вибору 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. ОПЕРАТОРИ УМОВНОГО ЦИКЛУ
Умовний цикл одержав свою назву через те, що при кожному повторенні превіряється виконання умови, і рішення про подальші дії приймається залежно від результатів перевірки.
