_ Public Class Person Private m_name As String = "未設定" Private m_address As String = "未設定" Public Age As Integer = 0 _ Private m_temporaryID As String = "未設定" Public Property Name() As String Get Return m_name End Get Set(ByVal Value As String) m_name = Value End Set End Property Public ReadOnly Property Address() As String Get Return m_address End Get End Property Public Sub SetTemporaryID(ByVal temporaryID As String) m_temporaryID = temporaryID End Sub Public Sub Dump() System.Diagnostics.Trace.WriteLine(m_name) System.Diagnostics.Trace.WriteLine(m_address) System.Diagnostics.Trace.WriteLine(Age) System.Diagnostics.Trace.WriteLine(m_temporaryID) End Sub End Class