structuremembers6.vb

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

Namespace StructureMembers5
	Class C
		Shared Function Main As Integer
            Dim s As S
            F(s)
            Return S.I - 2
        End Function
        Shared Sub F(ByRef S As S)
            s = New s()
            s.I = 2
        End Sub
	End Class
	Structure S
		Public I As Integer
	End Structure
End Namespace