localvariablec.vb

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

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

Module M
    Function fun() As Integer
        Static Dim y As Integer = 10
        y = y + 1
        Return y
    End Function

    Function Main() As Integer
        Dim x As Integer = fun()
        x = fun()
        If x <> 12 Then
            System.Console.WriteLine("Static declaration not implemented properly. Expected 12 but got " & x) : Return 1
        End If
    End Function
End Module