Lesson 6 Select Case, College Letter grade problem

A local community college needed and application that would determine the letter that would be awarded for the numeric grade earned in the different departments of the college.  This is how they presently award letter grades:

English Department:

91 - 100:  A
81 - 90:  B
71 - 80:  C
61 - 70:  D
60 and below:  F

Math Department:

92 - 100:  A
82 - 91:  B
72 - 81:  C
62 - 71:  D
61 and below:  F

Computer Programming Department:

96 - 100:  A
91 - 95:  B
86 - 90:  C
81 - 85:  D
80 and below:  F

Network Technology Department:

81 - 100:  A
61 - 80:  B
41 - 60:  C
21 - 40:  D
20 and below:  F

They want you to provide them with the department name, the numeric grade, and the equivalent letter grade.

Problem Statement:

 

Problem statement

Assumptions:
1.  One grade at a time
2.  Letter grade dependent upon only the department

Input:

1.  Department
2.  Numeric grade

Calculations:

If English Department:

If 91 - 100:  A
Else if 81 - 90:  B
else if 71 - 80:  C
else if 61 - 70:  D
else 60 and below:  F

Else if Math Department:

If 92 - 100:  A
elseif 82 - 91:  B
elseif 72 - 81:  C
elseif 62 - 71:  D
 else 61 and below:  F

elseif Computer Programming Department:

if 96 - 100:  A
elseif 91 - 95:  B
elseif 86 - 90:  C
elseif 81 - 85:  D
 else 80 and below:  F

Else if Network Technology Department:

if 81 - 100:  A
elseif 61 - 80:  B
elseif 41 - 60:  C
elseif 21 - 40:  D
 else 20 and below:  F

Output
1.Department
2. Numeric grade
3.  Letter grade

 

Flow chart:

 

 

 

 

Code:

 

<script language=vbscript>
Option Explicit

dim department, ngrade, lgrade

department = inputbox("What department? English, Math, Programming, Network")
ngrade = inputbox("What is the numeric grade (whole numbers only)")

Select Case department

case "English"

If ngrade > 90 then
lgrade = "A"
elseIf ngrade > 80 then
lgrade = "B"
elseIf ngrade > 70 then
lgrade = "C"
elseIf ngrade > 60 then
lgrade = "D"
Else
lgrade = "F"
End if

case "Math"

If ngrade > 91 then
lgrade = "A"
elseIf ngrade > 81 then
lgrade = "B"
elseIf ngrade > 71 then
lgrade = "C"
elseIf ngrade > 61 then
lgrade = "D"
Else
lgrade = "F"
End if

Case "Programming"

If ngrade > 95 then
lgrade = "A"
elseIf ngrade > 90 then
lgrade = "B"
elseIf ngrade > 85 then
lgrade = "C"
elseIf ngrade > 50 then
lgrade = "D"
Else
lgrade = "F"
End if

case "Network"

If ngrade > 80 then
lgrade = "A"
elseIf ngrade > 60 then
lgrade = "B"
elseIf ngrade > 40 then
lgrade = "C"
elseIf ngrade > 20 then
lgrade = "D"
Else
lgrade = "F"
End if

Case Else
msgbox("no match")

End Select

document.write "The department is " & department
document.write "<br>the numeric grade is " & ngrade
document.write "<br>the letter grade is " & lgrade

</script>