mustinherit.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 36 行

Option Strict Off
MustInherit Class C1
    Public Function F1()
        Dim a As Integer = 10
    End Function

    Public MustOverride Function F2()
End Class

Class C2
    Inherits C1
    Public Overrides Function F2()
    End Function
End Class

MustInherit Class C3
    Public MustOverride Function func()
End Class

MustInherit Class C4
    Inherits C3
End Class

Class C5
    Inherits C4
    Public Overrides Function func()
    End Function
End Class

Module Module1
    Function Main() As Integer
        Dim x As C1 = Nothing
        x = New C2()
    End Function
End Module