執行個體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