这是我的属性方法
Public Sub New(ByVal ID As String, ByVal Name As String, ByVal Judges As Integer, ByVal Grade As Integer)
_ID = ID
Me.Name = Name
Me.Judges = Judges
Me.Grade = Grade
ReDim Scores(Judges)
End Sub
我在构造函数中调用它来调整数组的大小
{{1}}