Computer Programming Concepts and Visual Basic David I. Schneider

‘Student Class (CStudent)
Private m_name As String
Private m_ssn As String
Private m_midterm As Single
Private m_final As Single
Property Get Name() As String
Name = m_name
End Property
Property Let Name(ByVal vName As String)
m_name = vName
End Property
Property Get SocSecNum() As String
SocSecNum = m_ssn
End Property
Property Let SocSecNum(ByVal vNum As String)
m_ssn = vNum
End Property
Property Let midGrade(ByVal vGrade As Single)
m_midterm = vGrade
End Property
Property Let finGrade(ByVal vGrade As Single)
m_final = vGrade
End Property
Public Function SemGrade() As String
Dim grade As Single
grade = (m_midterm + m_final) / 2
grade = Round(grade) ‘Round the grade
Select Case grade
Case Is = 90
SemGrade = “A”
Case Is = 80
SemGrade = “B”
Case Is = 70
SemGrade = “C”
Case Is = 60
SemGrade = “D”
Case Else SemGrade = “F”
End Select
End Function
‘Pass/Fail Student Class (CPFStudent)
Private m_name As String
Private m_ssn As String
Private m_midterm As Single
Private m_final As Single
Collections and Events 367