.NET类加载器是否有工作的标准方法？

Option Strict On : Option Explicit On

Module Module1
    Sub Main()
        System.Diagnostics.Debug.WriteLine(\"Main\")
        Dim g = C.A
    End Sub
End Module

Public Class C
    Shared Sub New()
        System.Diagnostics.Debug.WriteLine(\"Init C\")
    End Sub
    Shared Property A As New A
End Class

Public Class A
    Shared Sub New()
        System.Diagnostics.Debug.WriteLine(\"Init A\")
    End Sub
    Public Sub New()
        System.Diagnostics.Debug.WriteLine(\"A Constructor\")
    End Sub
End Class

Main
Init A
A Constructor
Init C

beforefieldinit

Option Strict On : Option Explicit On

Module Module1
    Sub Main()
        System.Console.WriteLine(\"Main\")
        Dim g = C.A
    End Sub
End Module
Public Class C
    Shared Function Narg() As A
        Dim alpha As New A
        System.Console.WriteLine(\"Init C\")
        Return alpha
    End Function
    Shared Property A As A = Narg()
End Class
Public Class A
    Shared Sub New()
        System.Console.WriteLine(\"Init A\")
    End Sub
    Public Sub New()
        System.Console.WriteLine(\"A Constructor\")
    End Sub
End Class

C

Init A
A Constructor
Init C
Main

C

beforefieldinit