面试题：Visual Basic中属性与方法的基本应用

Question

请说明在Visual Basic中如何定义一个具有读写权限的属性，并且编写一个简单的方法来操作这个属性。假设我们有一个名为`Person`的类，属性为`Name`，方法为`ChangeName`，用于修改`Name`的值。请写出具体代码实现。

Answer 1

在Visual Basic中，可以按照以下方式定义具有读写权限的属性，并编写操作该属性的方法：

Public Class Person
    Private m_Name 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

    '修改Name值的方法
    Public Sub ChangeName(ByVal newName As String)
        Name = newName
    End Sub
End Class

你可以通过以下方式测试这个类：

Module Module1
    Sub Main()
        Dim p As New Person()
        p.Name = "初始名字"
        Console.WriteLine("当前名字: " & p.Name)

        p.ChangeName("新名字")
        Console.WriteLine("修改后的名字: " & p.Name)

        Console.ReadLine()
    End Sub
End Module