Тапсырма 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. Бағаның әріптік эквивалентін сандық эквивалентке ауыстырыңыз.

Ол үшін төмендегі схема бойынша макрос құрыңыз:

· Вид – Макросы командасын таңдаңыз.

· Макрос сұхбат терезесінде Имя макроса өрісінде Оценка деп ат беріңіз. Создать батырмасын басыңыз.

· Макростың жұмыс аумағында келесі функцияның мәтінін теріңіз және сақтаңыз

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. F бағанын сәйкес формуламен есептеңіз

8. GPA есептеу үшін келесі формуланы енгізіңіз:

9. Жұмысты сабақтың соңында оқытушыға тапсырыңыз.