Задание 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. Работа сдается в конце занятия преподавателю.


9570197769138938.html
9570243455407788.html
    PR.RU™