Завдання
Створимо процедуру, яка визначає стипендію студента в залежності від його середнього балу за сесію за умови:
| Середній бал | Стипендія |
| 4.0 - 4.24 | |
| 4.25 - 4.49 | |
| 4.5 – 5 |
Sub Стипендія ()
Dim Stip, Srb
Srb = InputBox(Prompt:="Введите средний балл", Title:="Стипендия")
BoxTitle = "Стипендия"
If Srb < 4 Then
Stip = 0
Else
If Srb < 4.25 Then
Stip = 90
Else
If Srb < 4.5 Then
Stip = 150
Else
Stip = 160
End If
End If
End If
MsgBox Stip, , BoxTitle
End Sub
5 Запустіть процедуру на виконання декілька разів, вводячи кожного разу нове значення середнього балу:2; 3.0; 4.3; 5.0
Практичні завдання для СРС
Завдання 1
1 Знаходячись в середовищі MS Word, створити макрос з іменем Макрос, який би створював|створінню| таблицю, що складається з 5 колонок і 3 рядків.
2 Видалити|знищити,віддалити| створену таблицю, встановити курсор в потрібне місце сторінки і запустити Макрос.
Завдання 2
Знаходячись у середовищі MS Excel, виконайте наступне:
1 Створіть макрос з|із| іменем Центр, який би: |чарунок,вічка,комі
а) виділяв |чарунок,вічка,комірки| |чарунок,вічка,комірки| комірки |чарунок,вічка,комA1:A8 робочого аркушу|аркуша|;
б) встановлював в них формат грошової одиниці, 0 знаків після|потім| коми;
в) вирівнював дані по центру;
г) кожну |чарунку,вічко,комірку| комірку обрамляв|обрамував| рамкою.
Пункти б, в, г виконати з використанням меню Формат.
Примітка. Перш ніж починати|розпочинати,зачинати| записувати|занотовувати| такий макрос, виконайте|проробіть| ці операції без запису. Це допоможе вам уникнути зайвих операцій в макросі.
2 Щоб перевірити роботу вашого макросу Центр, перейдіть на аркуш 2 запустіть Макрос на виконання і введіть|запровадьте| в |чарунок,вічка,комірки| комірки А1:А8 будь-які числа і переконайтеся, що потрібний формат в |чарунках,вічках,комірках| комірках встановлений|установлений|.
3 Очистіть робочий аркуш|аркуш|: Правка→Очистить все.
Завдання 3
Складіть процедуру VBA, яка б розрахувала значення Т, якщо А>=0, то Т=4+5А, інакше Т=8А
Завдання 4
4.1За допомогою Visual Basic створити макрос, який дозволить розрахувати значення суми податку за умови: якщо З/плата<85грн.-сума податку=0, якщо З/плата до 170грн. включно -сума податку=15% від з/пл, що перевищує 85грн.+6,80; якщо З/плата до 1020грн. включно- податок =20% від з\пл, що перевищує 170грн.+19,55; якщо З/плата вища 1020грн.- податок =40% від з\пл, що перевищує 1020грн.+393,55.
4.2За допомогою Visual Basic створити макрос, який дозволить розрахувати значення „Знижки” за умови: якщо вартість покупки до 100 грн. включно-знижки немає; якщо вартість покупки до 300 грн. включно-знижка 2% від вартості; якщо вартість покупки до 500 грн.включно-знижка 5% від вартості;якщо вартість вища 500 грн.- знижка 10% від вартості.
Текст макросу записати.
4.3За допомогою Visual Basic створити макрос, який дозволить встановити значення „Надбавки” від стажу роботи: стаж до 3 років-надбавки немає; стаж від 3 до5 років-надбавка=100грн., від 5 -10 років- надбавка =120грн., більше 10 років надбавка=150грн.
Текст макросу записати.
ЗМ10 Теми 7-8 Мережні технології. Застосування Internet в економіці.
Після вивчення тем студент повинен