我创建了一个名为category的类,它有3个属性.在我的主要课程中,我正在设置10个类型类别的实例.使用init函数初始化这些对象,以便我可以使用它们 - 现在我想循环遍历这些对象.我搜索了2个小时,我发现的唯一的事情是,唯一的解决方案是创建这些对象的集合.您在下面看到我的代码示例:
Dim Kat1 As New category
Dim Kat2 As New category
Dim Kat3 As New category
Dim Kat4 As New category
Dim Kat5 As New category
Dim Kat6 As New category
Dim Kat7 As New category
Dim Kat8 As New category
Dim Kat9 As New category
Dim Kat10 As New category
Dim col As New Collection
Kat1.init "Kat1", 14, 17
Kat2.init "Kat2", 18, 21
Kat3.init "Kat3", 22, 25
Kat4.init "Kat4", 26, 29
Kat5.init "Kat5", 30, 33
Kat6.init "Kat6", …