expressionreclassifiedc.vb

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

'Author: Ritvik Mayank <[e-mail]>
'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
'Property group expression A is first reclassified from a property group to a property access
'then reclassified from a property access to a value
Option Strict Off

Imports System
Module Test
    Function B(ByVal i As Integer)
        If i <> 0 Then
            Throw New Exception("Unexpected Behavior. i should be assigned default value of A = 0 but got i=" & i)
        End If
    End Function
    ReadOnly Property A() As Integer
        Get
        End Get
    End Property

    Function Main() As Integer
        B(A)
    End Function
End Module