variablesk.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

'Author:
'   V. Sudharsan ([e-mail])
'
' (C) 2005 Novell, Inc.
Option Strict Off

Imports System

Class A
    Public i As Integer
    Sub New()
        i = 20
    End Sub
    Sub New(ByVal a As A)
        i = a.i
    End Sub
End Class

Module Test
    Public Function Main() As Integer
        Dim a As A = New A()
        Dim j As A = New A(a)
        If j.i <> 20 Then
            System.Console.WriteLine("Initializer not working") : Return 1
        End If
    End Function
End Module