structuremembers4.vb

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

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