Excel VBAのクラス：オブジェクト指向プログラミングの基礎

' クラスモジュール: Person
Private pName As String
Private pAge As Integer

' 名前のプロパティ
Public Property Let Name(value As String)
    pName = value
End Property

Public Property Get Name() As String
    Name = pName
End Property

' 年齢のプロパティ
Public Property Let Age(value As Integer)
    pAge = value
End Property

Public Property Get Age() As Integer
    Age = pAge
End Property

' 自己紹介のメソッド
Public Sub Introduce()
    MsgBox "Hello, my name is " & pName & " and I am " & pAge & " years old."
End Sub

Sub TestPersonClass()
    ' Personクラスのインスタンスを作成
    Dim person1 As Person
    Set person1 = New Person
    
    ' プロパティの設定
    person1.Name = "Alice"
    person1.Age = 30
    
    ' メソッドの呼び出し
    person1.Introduce
End Sub

' クラスモジュール: Student
Private sName As String
Private scores As Collection

' コンストラクタ
Private Sub Class_Initialize()
    Set scores = New Collection
End Sub

' 名前のプロパティ
Public Property Let Name(value As String)
    sName = value
End Property

Public Property Get Name() As String
    Name = sName
End Property

' 成績の追加メソッド
Public Sub AddScore(subject As String, score As Double)
    scores.Add score, subject
End Sub

' 平均点の計算メソッド
Public Function GetAverage() As Double
    Dim total As Double
    Dim score As Variant
    total = 0
    
    For Each score In scores
        total = total + score
    Next score
    
    If scores.Count > 0 Then
        GetAverage = total / scores.Count
    Else
        GetAverage = 0
    End If
End Function

Sub TestStudentClass()
    ' Studentクラスのインスタンスを作成
    Dim student1 As Student
    Set student1 = New Student
    
    ' プロパティの設定
    student1.Name = "Bob"
    
    ' 成績の追加
    student1.AddScore "Math", 85
    student1.AddScore "Science", 90
    student1.AddScore "History", 78
    
    ' 平均点の取得と表示
    Dim average As Double
    average = student1.GetAverage
    MsgBox student1.Name & "'s average score is " & average
End Sub