Задание 2. Расчет GPA

1. Создайте на втором листе таблицу и переименуйте Расчет GPA

2. Заполните оценку за АРО с помощью ссылки с первого листа книги.

3. Переведите оценку в % в буквенный эквивалент.

Для этого создайте макрос по следующей схеме:

·Выполните команду: Вид – Макросы.

·В диалоговом окне - Макрос в Имени макрос написать Оценка1 – Создать.

·В рабочей области Макроса наберите и сохраните следующий текст:

Public Function Оценка1(X)

Select Case X

Case 95 To 100

Оценка1 = " A"

Case 90 To 94

Оценка1 = " A-"

Case 85 To 89

Оценка1 = " B+"

Case 80 To 84

Оценка1 = " B"

Case 75 To 79

Оценка1 = " B-"

Case 70 To 74

Оценка1 = " C+"

Case 65 To 69

Оценка1 = " C"

Case 60 To 64

Оценка1 = " C-"

Case 55 To 59

Оценка1 = " D+"

Case 50 To 54

Оценка1 = " D"

Case 0 To 49

Оценка1 = " F"

End Select

End Function

Закройте окно Редактора Visual Basic.

4. Расчет Оценка по буквенной системе найдите по формуле: =Оценка1(C5)

5. Оценку по буквенной системе переведите в цифровой эквивалент.

Для этого создайте макрос по следующей схеме:

·Выполните команду: Вид – Макросы.

·В диалоговом окне - Макрос в Имени макрос написать Оценка1 – Создать.

·В рабочей области Макроса наберите и сохраните следующий текст:

Public Function Оценка(X)

Select Case X

Case " A"

Оценка = 4

Case " A-"

Оценка = 3.67

Case " B+"

Оценка = 3.33

Case " B"

Оценка = 3

Case " B-"

Оценка = 2.67

Case " C+"

Оценка = 2.33

Case " C"

Оценка = 2

Case " C-"

Оценка = 1.67

Case " D+"

Оценка = 1.33

Case " D"

Оценка = 1

Case " F"

Оценка = 0

End Select

End Function

Закройте окно Редактора Visual Basic.

6. Расчет Оценка по буквенной системе найдите по формуле: =Оценка(D5)

7. Количество часов умножьте на цифровой эквивалент

8. Расчет GPA найдите по формуле:

9. Работа сдается в конце занятия преподавателю.