<% CLASS clsPay Private strEmployeeName Private intDays() Private sngAverage Private intNumDays Public Sub Class_Initialize intNumDays = 7 Redim intGrades(intNumGrades) End Sub Public Function Calc_Average Dim sum, i, intGrade i = 0 strStudentName = cstr(Request.Form("txtStudentname")) for i = 0 to intNumGrades - 1 intGrades(i) = 0 intGrades(i) = CInt(Request.Form("txtGrade" & i )) sum = sum + intGrades(i) next Calc_Average = round(sum/intNumGrades,0) End Function Public Sub PrintReport Dim i,grade Response.Write("

Grade Report for " & strStudentName & "

") for i = 0 to intNumGrades - 1 Response.Write("Exam #" & i + 1 & ": " & intGrades(i) & "%
") next Response.Write "--------------------
" Response.Write("Average: " & sngAverage & "
") if sngAverage > 89 then grade = "A" else if sngAverage > 79 then grade = "B" else if sngAverage > 69 then grade = "C" else if sngAverage > 59 then grade = "D" else grade = "F" end if end if end if end if Response.Write("Grade: " & Grade & "
") End Sub 'Create a property called Average Public Property Get Average Average = sngAverage End Property Public Property Let Average(newAverage) sngAverage = newAverage End Property END CLASS %>