VBScript中的重载构造函数

Class Person
    Private m_Name
    Private m_Age

    Public Sub Class_Initialize()
        m_Name = "Unknown"
        m_Age = 0
    End Sub

    Public Sub Class_Terminate()
    End Sub

    Public Property Get Name()
        Name = m_Name
    End Property

    Public Property Let Name(ByVal value)
        m_Name = value
    End Property

    Public Property Get Age()
        Age = m_Age
    End Property

    Public Property Let Age(ByVal value)
        m_Age = value
    End Property

    Public Sub Display()
        WScript.Echo "Name: " & m_Name & ", Age: " & m_Age
    End Sub
End Class

Dim p1
Set p1 = New Person
p1.Display

Dim p2
Set p2 = New Person
p2.Name = "John"
p2.Display

Dim p3
Set p3 = New Person
p3.Age = 30
p3.Display

Public Sub Display(Optional ByVal prefix = "Hello")
    WScript.Echo prefix & ", " & m_Name & ", Age: " & m_Age
End Sub