vbs新建一个类

在 VBScript 中定义类需要使用 `Class` 关键字，下面是一个简单的示例：

Class Person
    Private name
    Private age
    
    Public Sub SetName(newName)
        name = newName
    End Sub
    
    Public Function GetName()
        GetName = name
    End Function
    
    Public Sub SetAge(newAge)
        age = newAge
    End Sub
    
    Public Function GetAge()
        GetAge = age
    End Function
End Class

这个示例定义了一个 `Person` 类，包含 `name` 和 `age` 两个私有属性，以及 `SetName`、`GetName`、`SetAge`、`GetAge` 四个公共方法。可以通过以下代码创建 `Person` 对象：

Dim p
Set p = New Person

p.SetName "John"
p.SetAge 30

MsgBox "Name: " & p.GetName & vbCrLf & "Age: " & p.GetAge

这个示例创建了一个 `Person` 对象 `p`，并设置了其 `name` 和 `age` 属性，然后通过 `GetName` 和 `GetAge` 方法获取属性值，并在消息框中显示。