update,

_resources/it114105/others/ite3711/module_grade/Student.vb

@@ -0,0 +1,57 @@
+Public Class Student
+    Public name As String
+    Public markTest As Double
+    Public markQuiz As Double
+    Public markProject As Double
+    Public markExam As Double
+
+    Sub New(name As String, markTest As Double, markQuiz As Double, markProject As Double, markExam As Double)
+        Me.name = name
+        Me.markTest = markTest
+        Me.markQuiz = markQuiz
+        Me.markProject = markProject
+        Me.markExam = markExam
+    End Sub
+
+    Function getCAMarks() As Double
+        Return markTest * CAMarksModule.TestPercent + markProject * CAMarksModule.ProjectPercent + markQuiz * CAMarksModule.QuizPercent
+    End Function
+
+    Function getExamMark() As Double
+        Return markExam
+    End Function
+
+    Function getModuleMark() As Double
+        Return getCAMarks() * ModuleMark.CAPercent + getExamMark() * ModuleMark.ExamPercent
+    End Function
+
+    Function getModuleGrade() As String
+        Dim moduleMark As Double = getModuleMark()
+        If moduleMark >= 75 And moduleMark <= 100 Then
+            Return "A"
+        ElseIf moduleMark >= 65 Then
+            Return "B"
+        ElseIf moduleMark >= 40 Then
+            Return "C"
+        Else
+            Return "F"
+        End If
+    End Function
+
+    Function getRemark() As String
+        Select Case getModuleGrade()
+            Case "A"
+                Return "Pass"
+            Case "B"
+                Return "Pass"
+            Case "C"
+                Return "Pass"
+            Case "F"
+                If (getModuleMark() >= 30) Then
+                    Return "Resit Exam"
+                End If
+        End Select
+        Return "Retudy"
+    End Function
+
+End Class