实例024保护类型的数据

Module Module1
    Public Class Student
        Public Name As String
        ‘Protected (Visual Basic)
        ’https://docs.microsoft.com/zh-cn/dotnet/visual-basic/language-reference/modifiers/protected
        Protected Score As Single

        Public WriteOnly Property TestScore As Single
            Set(ByVal value As Single)
                Score = value
            End Set
        End Property

        Public Function Remarks() As String '函数不能用Protected
            Select Case Score
                Case Is > 90
                    Return "优秀"
                Case Is > 80
                    Return "良"
                Case Is > 70
                    Return "中等"
                Case Is > 60
                    Return "需努力"
                Case Else
                    Return "重修"
            End Select
        End Function
    End Class

    Public Class 大学生
        Inherits Student
        Public 性别 As String = "男"
        Public Sub Level()
            MsgBox(Score)
            MsgBox(Remarks)
        End Sub
    End Class

    Sub Main()
        Dim MrLee As New 大学生
        MrLee.Name = "Mike Lee"
        MrLee.TestScore = 90.5
        MsgBox(MrLee.性别)
        MrLee.Level()
    End Sub

End Module