作者：绿色风
分类：
时间：2022-08-18
浏览：70
楼主
liuguansky |
使用集合成员，来设计可列举的类成员：
类模块代码：- Private 战队 As New Collection'定义集合
- Public Property Get count()'读属性
- count = 战队.count
- End Property
- Public Sub add(c As Variant)'添加类ADD方法
- 战队.add c
- End Sub
- Public Function item(ByVal i As Variant) As Variant'添加类ITEM属性
- item = 战队.item(i)
- End Function
模块代码：- Sub 战队显示()
- Dim fourTeam As New ET'实例化类
- Dim i%, str1$, arr
- arr = Array("无敌", "新视野", "SK", "卓越")
- For i = 0 To 3
- fourTeam.add arr(i)'依次添加战队
- Next i
- str1 = "共有战队" & fourTeam.count & "个,这是第"
- For i = 1 To 4
- MsgBox str1 & i & "个,为" & fourTeam.item(i) & "战队"
- Next
- End Sub
运行后，依次显示四大战队的名称。
 桌面.rar
|
2楼
水星钓鱼 |
学习下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一