vbs 类模板

在 VBScript 中没有类模板的概念，但可以通过创建一个类来实现面向对象编程。下面是一个简单的 VBScript 类的示例：

Class Person
    Public Name
    Public Age
    
    Private Sub Class_Initialize()
        Name = ""
        Age = 0
    End Sub
    
    Public Sub SetName(newName)
        Name = newName
    End Sub
    
    Public Sub SetAge(newAge)
        Age = newAge
    End Sub
    
    Public Function GetInfo()
        GetInfo = "Name: " & Name & ", Age: " & Age
    End Function
End Class

' 创建一个 Person 对象
Dim p
Set p = New Person

' 设置属性值
p.SetName "John"
p.SetAge 30

' 获取信息并输出
WScript.Echo p.GetInfo

上述代码创建了一个名为 `Person` 的类，其中包含一个公共属性 `Name` 和 `Age`，以及三个公共方法 `SetName`，`SetAge` 和 `GetInfo`。`Class_Initialize` 方法在对象创建时自动调用，用于初始化属性值。在代码的最后，创建了一个 `Person` 对象，设置了属性值并输出了信息。