8. основы программирования на языке Visual Basic for Applications

Практическая работа № 22

• 
  Ответы на вопросы, поставленные в пунктах описания последовательности выполнения работы.
  
• 
  Текст программы, реализующей функцию расчёта подоходного налога.
  

• 
  Распечатка таблицы.
  

• 
  Выводы по работе (что изучили, чему научились).
  

5. 
   Включите компьютер (перезагрузите) и войдите в сеть под своим именем.
   

5. 
   Откройте файл с шаблоном ведомости начисления заработной платы (в каталоге #Задания для практических работ\Б-21,ДБ-21\2000).
   

• 
  Для открытия файла выполните команду «Сетевое окружение», «Сервер», «#Задания для практических работ\Б-21,ДБ-21\2000\зарплата(шаблон)».
  

6. 
   Сохраните открывшуюся книгу в своём каталоге на Сервере под именем пр20.xls.
   

• 
  Выполните команду [Файл] [Сохранить как…]. В поле «Папка» выберите «Сетевое окружение», «Сервер», «Students», каталог Вашей группы, собственный каталог. В поле «Имя файла» введите: «пр20». Нажмите клавишу «Enter» для выполнения этой команды.
  

7. 
   Приведите таблицу в соответствие c прилагаемым образцом (на 2-х листах в конце задания) и заполните её данными согласно варианта:
   

   Вариант	1					2
   № п/п	1	2	3	4	5	1	2	3	4	5
   Оклад	850	380	470	560	120	820	710	120	150	480
   Отработано дней	22	12	18	22	22	22	10	16	22	22
   Дней в отпуске		10					12
   Оплата отпусков		300					800
   Дней на больничном			4					6
   По больничным листам			100					50
   Прочие (сумма)				20						50
   Льгот по подоходному налогу	2			14		2				14

8. 
   Столбцы «Фамилия, имя, отчество» и «должность» заполните произвольным образом, «оклад» – согласно варианта по таблице; перед тем, как заполнять остальные ячейки данными, присвойте имена ячейкам C1 и C2 (количество рабочих дней в месяце и необлагаемый минимум).
   

• 
  Для присвоения имени ячейке выделите её и выполните команду [Вставка] [Имя] [Присвоить].
  
• 
  В поле “Имя” введите присваиваемое имя. Учтите, что в имени должно быть только одно слово (допускается использование символа подчёркивания) и оно не должно начинаться с цифры. Например, допустимо использование следующих имён: “количество_дней” и “минимум”.
  
• 
  Ячейка может иметь только одно имя.
  

9. 
   В ячейку E8 введите количество отработанных дней, а в ячейку F8 – формулу, определяющую начисленную повременную зарплату.
   

• 
  Ввод формулы в ячейку таблицы начинается со знака равенства ( = ).
  
• 
  Формула, например, может выглядеть так: «=количество_дней / E8 * D8»
  

10. 
    Согласно таблицы задания, там, где необходимо, заполните столбцы «оплата отпусков», «по больничным листам» и «прочие».
    
11. 
    В ячейку O8 («Всего начислено») введите формулу: «=F8+H8+J8+L8+N8»
    
12. 
    На модульном листе редактора Visual Basic наберите программу, реализующую функцию расчёта подоходного налога согласно таблице:
    

Месячный совокупный облагаемый налогом доход	Ставки и размер налога
До 17 грн.	Не облагается
17 – 85 грн.	10% от суммы дохода, превышающего 17 грн.
85 – 170 грн.	6,8 + 15% от суммы, превышающей 85 грн.
170 – 1020 грн.	19,55 + 20% от суммы, превышающей 170 грн.
1020 – 1700 грн.	189,55 + 30% от суммы, превышающей 1020 грн.
Больше 1700 грн.	393,55 + 40% от суммы, превышающей 1700 грн.

• 
  Выполните команду: [Сервис] [Макрос] [Редактор Visual Basic], затем -– [Вставка] [Модуль]. В результате появится окно, в котором можно писать текст программы. Начинается программа словами Function имя (аргументы), заканчивается словами End Function.
  
• 
  Ветвление реализуется оператором if, его многоблочной структурой:
  
  IF логическое_выражение_1 THEN
  
  блок операторов 1
  
  ElseIf логическое_выражение_2 THEN
  
  блок операторов 2
  
  ElseIf логическое_выражение_3 THEN
  
  блок операторов 3

  …
  
  ELSE

  
  
  блок операторов n
  
  END IF
  
  Когда встречается многоблочная структура IF, Visual Basic определяет значение логического выражения 1. Если оно равно true (истина), то выполняется блок операторов 1, если false (ложь), то блок операторов 1 полностью пропускается и проверяется значение логического выражения 2 и т.д. Если ни одно из поставленных условий не выполняется, то управление передается блоку операторов n.
  
• 
  Созданную функцию можно использовать в ячейках электронной таблицы, например, =PodN(O8).
  
• 
  Блок-схема алгоритма функции определения подоходного налога выглядит так:
  

13. 
    В ячейку P8, если задано, введите количество льгот (от одного до пятнадцати необлагаемых минимумов).
    
14. 
    В ячейку Q8 введите формулу, определяющую подоходный налог с учётом льгот, например, «= PodN (O8-P8*минимум)».
    
15. 
    В ячейку R8 введите формулу, определяющую сумму профсоюзных взносов: «=0,01*O8».
    
16. 
    В ячейку S8 введите формулу, определяющую сумму удержаний в пенсионный фонд.
    

• 
  Воспользуйтесь мастером функций, нажмите кнопку f_x, выберите категорию «логические», функцию «Если».
  
• 
  В поле «Логическое_выражение» введите: «O8<=150», в поле «Значение_если_истина» – «0,01*O8», в поле «Значение_если_ложь» – «0,02*O8» и нажмите кнопку «OK».
  
• 
  В ячейке S8 должна появиться формула: «=ЕСЛИ(O8<=150;0,01*O8;0,02*O8)».
  

17. 
    В ячейку T8 введите формулу, определяющую сумму удержаний по безработице. Для исключения потери копеек используйте функцию ОКРУГЛ (округление) : «=ОКРУГЛ(0,005*O8;2)».
    
18. 
    В ячейку X8 введите формулу, определяющую сумму всех удержаний: "=Q8+R8+S8+T8+U8+W8".
    
19. 
    В ячейку Y8 введите формулу, определяющую сумму к выдаче: «=O8-X8».
    
20. 
    Скопируйте формулы в соседние (нижние) ячейки при помощи маркера заполнения: выделите ячейку, содержащую формулу, и перетащите маркер заполнения в примыкающий диапазон. Можно выделить несколько ячеек в строке, содержащие формулы и перетащить маркер заполнения в примыкающий диапазон, скопировав сразу несколько формул.
    
21. 
    Заполните 13-ю строку, «Всего».
    

• 
  Выделите ячейку F13 и нажмите на кнопку «Автосумма» (). Пунктиром будет выделен диапазон суммируемых ячеек. Если его не нужно изменять, нажмите «Enter». В противном случае выделите необходимый диапазон с помощью мыши, а затем нажмите «Enter».
  

22. 
    Скопируйте формулу в оставшиеся ячейки 13-ой строки.
    
23. 
    Заполните таблицу «Отчисления».
    

• 
  В ячейке C16 (отчисления в пенсионный фонд) должна быть формула: =0,32*(O13-L13)
  
• 
  В ячейке C17 (отчисления в соц. страх) должна быть формула: «=0,04*(O13-L13)»
  
• 
  В ячейке C18 (отчисления на случай безработицы) должна быть формула: «=0,015*(O13-L13)»
  
• 
  Коммунальный налог рассчитывается по формуле: Количество штатных работающих * необлагаемый минимум / 10.
  

24. 
    Определите, какая сумма должна быть начислена работнику, не имеющему льгот, отработавшему все дни без больничных и отпусков, чтобы сумма к выдаче составила: 1-й вариант – 300 грн., 2-й вариант – 500 грн.
    

• 
  Выделите ячейку Y8 и выполните команду: [Сервис] [Подбор параметра].
  
• 
  В поле “Значение” введите 300 или 500, в зависимости от вашего варианта.
  
• 
  В поле “Изменяя значение ячейки” введите “D8“ (оклад) и нажмите кнопку “ОК”. Результат запишите в отчёт.
  

25. 
    Распечатайте таблицы и сообщите преподавателю об окончании работы.