Створимо процедуру, яка визначає стипендію студента в залежності від його середнього балу за сесію за умови:
| Середній бал | Стипендія |
| 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 в економіці.
Після вивчення тем студент повинен
| знати: | вміти: |
| - основи мережних технологій; - ресурси комп’ютерної мережі; - класифікацію комп’ютерних мереж; - функції сервера та клієнта; - способи з'єднання вузлів мережі; - канали зв’язку; - функції модему; - інформаційні ресурси Internet; - призначення протоколу ТСР/ІР; - призначення провайдера; - режими інформаційного обміну; - поняття ІР – адреси; - доменні імена DNS; - поняття гіпертексту і Web -сторінка - призначення програм-броузерів; - призначення протоколу НТТР; - структуру запису URL; - призначення броузера Internet Explorer; FTP – сервер. | - формулювати принципи застосування Internet в економіці; - шукати потрібну інформацію в глобальній мережі; - виконувати дії зі знайденою інформа-цією; -СтворюватиWeb-сайти з використанням усіх вивчених тегів. |
