7,785
社区成员
发帖
与我相关
我的任务
分享怎么输出集合中的元素值？
Private Sub Command1_Click()
Dim a As New Collection
a.Add "nihao", "123"
a.Add "nihao1", "1233"
a.Add "nihao2", "12333"
a.Add "nihao3", "12343"
a.Add "nihao4", "12323"
Dim b
For Each b In a
Text1.Text = a.Item("nihao1")//wrong!!!!!!!!!!!!!
Next b
End Sub
Dim a As New Collection
a.Add "nihao", "123"
a.Add "nihao1", "1233"
a.Add "nihao2", "12333"
a.Add "nihao3", "12343"
a.Add "nihao4", "12323"
Dim b
For Each b In a
Text1.Text = a.Item("nihao1")//wrong!!!!!!!!!!!!!
Next b
End Sub
...全文
请发表友善的回复…
发表回复
zyl910 2003-01-07
- 打赏
- 举报
For Each b In a
Text1.Text = b
Next b
