VBA Class() 对象作为另一个类的属性

在VBA中，我们可以使用Class()对象作为另一个类的属性，以实现更灵活和复杂的程序设计。这种特性使得我们能够更好地组织和管理代码，提高代码的可读性和可维护性。下面，我们将介绍如何在VBA中使用Class()对象作为另一个类的属性，并通过一个案例代码来进一步说明。

' 定义学生类
Class Student
    Public Name As String
    Public Age As Integer
    Public Score As Double
    
    ' 构造函数
    Private Sub Class_Initialize()
        ' 初始化属性
        Name = ""
        Age = 0
        Score = 0
    End Sub
    
    ' 设置学生信息
    Public Sub SetInfo(ByVal name As String, ByVal age As Integer, ByVal score As Double)
        Name = name
        Age = age
        Score = score
    End Sub
    
    ' 获取学生信息
    Public Function GetInfo() As String
        GetInfo = "姓名：" & Name & "，年龄：" & Age & "，成绩：" & Score
    End Function
End Class
' 定义班级类
Class Classroom
    Public Students As Collection
    
    ' 构造函数
    Private Sub Class_Initialize()
        ' 初始化学生集合
        Set Students = New Collection
    End Sub
    
    ' 添加学生
    Public Sub AddStudent(ByVal student As Student)
        Students.Add student
    End Sub
    
    ' 获取班级学生信息
    Public Function GetStudentsInfo() As String
        Dim info As String
        info = ""
        
        ' 遍历学生集合
        For Each student In Students
            info = info & student.GetInfo() & vbCrLf
        Next student
        
        GetStudentsInfo = info
    End Function
End Class
Sub Test()
    ' 创建学生对象
    Dim student1 As New Student
    student1.SetInfo "张三", 18, 90
    
    Dim student2 As New Student
    student2.SetInfo "李四", 19, 85
    
    ' 创建班级对象
    Dim classroom As New Classroom
    
    ' 添加学生到班级
    classroom.AddStudent student1
    classroom.AddStudent student2
    
    ' 获取班级学生信息
    MsgBox classroom.GetStudentsInfo
End Sub