VBA 中作为类成员的类对象数组

VBA中作为类成员的类对象数组

vba
Public Class Person
    Public Name As String
    Public Age As Integer
End Class

vba
Dim People(1 To 3) As Person
Set People(1) = New Person
People(1).Name = "Alice"
People(1).Age = 25
Set People(2) = New Person
People(2).Name = "Bob"
People(2).Age = 30
Set People(3) = New Person
People(3).Name = "Charlie"
People(3).Age = 35

vba
Dim i As Integer
For i = 1 To 3
    If People(i).Age < 30 Then
        Debug.Print People(i).Name & "是年轻人。"
    Else
        Debug.Print People(i).Name & "是中年人。"
    End If
Next i

vba
Public Class Student
    Public Name As String
    Public Score As Double
    
    Public Function GetAverageScore() As Double
        Dim i As Integer
        Dim totalScore As Double
        
        For i = 1 To UBound(Scores)
            totalScore = totalScore + Scores(i)
        Next i
        
        GetAverageScore = totalScore / UBound(Scores)
    End Function
End Class

vba
Dim Students(1 To 3) As Student
Set Students(1) = New Student
Students(1).Name = "小明"
Students(1).Scores = Array(90, 85, 95)
Set Students(2) = New Student
Students(2).Name = "小红"
Students(2).Scores = Array(80, 75, 70)
Set Students(3) = New Student
Students(3).Name = "小李"
Students(3).Scores = Array(95, 90, 85)

vba
Dim i As Integer
For i = 1 To 3
    Debug.Print Students(i).Name & "的平均成绩为：" & Students(i).GetAverageScore()
Next i