ab.com コミュニティ

コード: 全て選択

Type Test1
  A As Long
End Type

Type Test2
  inherits Test1
Protected
  B As Long
End Type

Class Test3
  inherits Test2
Public
  Sub IncB()
    B = B + 1
  End Sub

  Function Sum() As Long
    Sum = A + B
  End Function
End Class

#prompt
Dim Test As Test3
Test.A = 10
Test.IncB()
Print Str$(Test.Sum())