计算机二级辅导:VB类和结构
发布时间:2010/8/3 10:54:16 来源:城市学习网 编辑:ziteng
Structure SHenry
Public x, y As Integer
Public Sub New(ByVal x As Integer, ByVal y As Integer)
Me.x = x
Me.y = y
End Sub
End Structure
Sub main()
Dim H1 As SHenry = New SHenry()
Dim H2 As SHenry = New SHenry(2, 1)
End Sub