Page 94 - Programming VB.NET
P. 94
90 Chapter 9: OOP
Public ReadOnly Property testgrade() As Char
Get
Dim chrgrade As Char
If intmark >= 80 Then
chrgrade = "A"
ElseIf intmark >= 70 Then
chrgrade = "B"
ElseIf intmark >= 60 Then
chrgrade = "C"
ElseIf intmark >= 50 Then
chrgrade = "D"
Else
chrgrade = "E"
End If
Return chrgrade
End Get
End Property
