|
Module Module1
Sub Main()
getname()
Console.Read()
End Sub
Sub getname()
Dim pers As New person
pers.name = "小明"
Console.WriteLine(pers.name)
Console.WriteLine(pers.name.Length)
End Sub
Public Class person
Private mname As String
Public Property name() As String
Get
Return Me.mname
End Get
Set(ByVal value As String)
Me.mname = value
End Set
End Property
End Class
End Module
(责任编辑：admin) |