VB.netで純粋仮想関数

１．経緯と目的など

基底クラスで定義した関数を、継承先で呼び出す。
その関数の実行順序はある程度枠組みを作りたい。
こういったケースを考えたときに、使えるかもしれません。
例）
途中まで共通で同じ処理を行って、
そのあとの処理は「処理１　→　処理２　→　処理３」の順番で実行してほしい。
ただし、実装内容は継承先にお任せします。
といったケース。（需要あるのかな？）

２．サンプル

Test.vb

Module Module1
# Region "基底クラス"
    MustInherit Class BaseClass

        Public MustOverride Function Proc1() As Boolean
        Public MustOverride Function Proc2() As Boolean
        Public MustOverride Function Proc3() As Boolean

        Private Sub CommonProc1()
            '継承するクラスが共通して実施する処理をここへ記載する。
            Console.Out.WriteLine("何かしらの共通処理１")
        End Sub
        Private Sub CommonProc2()
            Console.Out.WriteLine("何かしらの共通処理２")
        End Sub
        Public Function DoExec() As Boolean
            Me.CommonProc1() ' 基底クラスで定義した処理を実行する関数１
            Me.Proc1()       ' 継承先で実装した処理内容を実行する関数１
            Me.Proc2()       ' 継承先で実装した処理内容を実行する関数２
            Me.Proc3()       ' 継承先で実装した処理内容を実行する関数３
            Me.CommonProc2() ' 基底クラスで定義した処理を実行する関数２
            Return True
        End Function
    End Class
# End Region
# Region "継承クラス"
    Class InheritClass_A
        Inherits BaseClass
        Public Overrides Function Proc1() As Boolean
            Console.Out.WriteLine("Proc1 From [ A ]")
            Return True
        End Function
        Public Overrides Function Proc2() As Boolean
            Console.Out.WriteLine("Proc2 From [ A ]")
            Return True
        End Function
        Public Overrides Function Proc3() As Boolean
            Console.Out.WriteLine("Proc3 From [ A ]")
            Return True
        End Function
    End Class

    Class InheritClass_B
        Inherits BaseClass
        Public Overrides Function Proc1() As Boolean
            Console.Out.WriteLine("Proc1 From [ B ]")
            Return True
        End Function
        Public Overrides Function Proc2() As Boolean
            Console.Out.WriteLine("Proc2 From [ B ]")
            Return True
        End Function
        Public Overrides Function Proc3() As Boolean
            Console.Out.WriteLine("Proc3 From [ B ]")
            Return True
        End Function
    End Class

# End Region

    ' TestProc
    Sub Main()
        Dim _A As New InheritClass_A
        _A.DoExec()
        Dim _B As New InheritClass_B
        _B.DoExec()
    End Sub
End Module

３．実行結果

何かしらの共通処理１
Proc1 From [ A ]
Proc2 From [ A ]
Proc3 From [ A ]
何かしらの共通処理２
何かしらの共通処理１
Proc1 From [ B ]
Proc2 From [ B ]
Proc3 From [ B ]
何かしらの共通処理２