请看代码:
Class Wang
           Dim micprojectList(9)               Property Let projectList(ByVal num)
            micprojectList = vData
        End Property
               
        Property Get projectList()
            projectList = micprojectList
        End Property
'
'               
                Function Print ( obj )
                   msgbox obj
                End FunctionEnd Class   Set pp = New Wang   pp.projectList(1) = "Hello Word"   pp.Print(" Shou")
   
   Set pp = Nothing请问如何在类中把某个属性定义成数组,能帮忙把以上的代码写全,谢谢