Class DataCreator
Public Shared Function CreateSchoolScoreData() As List(Of ClassScore)
Dim result = New List(Of ClassScore)()
result.Add(New ClassScore() With {
.ClassName = "English",
.SchoolA = 46,
.SchoolB = 53,
.SchoolC = 66
})
result.Add(New ClassScore() With {
.ClassName = "Physics",
.SchoolA = 61,
.SchoolB = 55,
.SchoolC = 65
})
result.Add(New ClassScore() With {
.ClassName = "English",
.SchoolA = 58,
.SchoolB = 56,
.SchoolC = 67
})
result.Add(New ClassScore() With {
.ClassName = "Math",
.SchoolA = 58,
.SchoolB = 51,
.SchoolC = 64
})
result.Add(New ClassScore() With {
.ClassName = "English",
.SchoolA = 63,
.SchoolB = 53,
.SchoolC = 45
})
result.Add(New ClassScore() With {
.ClassName = "English",
.SchoolA = 63,
.SchoolB = 50,
.SchoolC = 65
})
result.Add(New ClassScore() With {
.ClassName = "Math",
.SchoolA = 60,
.SchoolB = 45,
.SchoolC = 67
})
result.Add(New ClassScore() With {
.ClassName = "Math",
.SchoolA = 62,
.SchoolB = 53,
.SchoolC = 66
})
result.Add(New ClassScore() With {
.ClassName = "Physics",
.SchoolA = 63,
.SchoolB = 54,
.SchoolC = 64
})
result.Add(New ClassScore() With {
.ClassName = "English",
.SchoolA = 63,
.SchoolB = 52,
.SchoolC = 67
})
result.Add(New ClassScore() With {
.ClassName = "Physics",
.SchoolA = 69,
.SchoolB = 66,
.SchoolC = 71
})
result.Add(New ClassScore() With {
.ClassName = "Physics",
.SchoolA = 48,
.SchoolB = 67,
.SchoolC = 50
})
result.Add(New ClassScore() With {
.ClassName = "Physics",
.SchoolA = 54,
.SchoolB = 50,
.SchoolC = 56
})
result.Add(New ClassScore() With {
.ClassName = "Physics",
.SchoolA = 60,
.SchoolB = 56,
.SchoolC = 64
})
result.Add(New ClassScore() With {
.ClassName = "Math",
.SchoolA = 71,
.SchoolB = 65,
.SchoolC = 50
})
result.Add(New ClassScore() With {
.ClassName = "Math",
.SchoolA = 48,
.SchoolB = 70,
.SchoolC = 72
})
result.Add(New ClassScore() With {
.ClassName = "Math",
.SchoolA = 53,
.SchoolB = 40,
.SchoolC = 80
})
result.Add(New ClassScore() With {
.ClassName = "Math",
.SchoolA = 60,
.SchoolB = 56,
.SchoolC = 67
})
result.Add(New ClassScore() With {
.ClassName = "Math",
.SchoolA = 61,
.SchoolB = 56,
.SchoolC = 45
})
result.Add(New ClassScore() With {
.ClassName = "English",
.SchoolA = 63,
.SchoolB = 58,
.SchoolC = 64
})
result.Add(New ClassScore() With {
.ClassName = "Physics",
.SchoolA = 59,
.SchoolB = 54,
.SchoolC = 65
})
Return result
End Function
End Class
Public Class ClassScore
Public Property ClassName() As String
Get
Return m_ClassName
End Get
Set
m_ClassName = Value
End Set
End Property
Private m_ClassName As String
Public Property SchoolA() As Double
Get
Return m_SchoolA
End Get
Set
m_SchoolA = Value
End Set
End Property
Private m_SchoolA As Double
Public Property SchoolB() As Double
Get
Return m_SchoolB
End Get
Set
m_SchoolB = Value
End Set
End Property
Private m_SchoolB As Double
Public Property SchoolC() As Double
Get
Return m_SchoolC
End Get
Set
m_SchoolC = Value
End Set
End Property
Private m_SchoolC As Double
End Class