For Each in和集合的配合使用(半天结贴!)

jixiaoqiang 2003-09-27 06:32:27

我定义了一个IP地址的集合
dim ip as new collection
dim i as long
for i=1 to 3
ip.additem "192.168.1." + cstr(i)
next
然后我怎么用FOR Each读取这些地址并赋给一个字符串变量?
dim sTmp as string
for each x in ip
sTmp=x '?怎么读出来.报错呀.
next
要求:必须用For Each,不能用for i=0 to ip.count-1

...全文

104 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-09-27

打赏
举报

Dim ip As New Collection
Dim i As Long
For i = 1 To 3
ip.Add "192.168.1." + CStr(i)
Next

Dim temp
For Each temp In ip
MsgBox temp
Next

ltpao 2003-09-27

打赏
举报

把x声明成variant

nik_Amis 2003-09-27

打赏
举报

Dim ip As New Collection
Dim i As Long
For i = 1 To 3
ip.Add "192.168.1." + CStr(i)
Next

Dim sTmp As String
Dim x As Variant
For Each x In ip
sTmp = x
Next

nik_Amis 2003-09-27

打赏
举报

Dim ip As New Collection
Dim i As Long
For i = 1 To 3
ip.Add "192.168.1." + CStr(i)
Next

Dim sTmp As String
Dim x As Variant
For Each x In ip
sTmp = x
Next

busisoft 2003-09-27

打赏
举报

应该是这样
Dim ip As New Collection
Dim i As Long
For i = 1 To 3
ip.Add "192.168.1." + CStr(i)
Next
'然后我怎么用FOR Each读取这些地址并赋给一个字符串变量?
Dim sTmp As String
For Each x In ip
sTmp = x '?怎么读出来.报错呀.
Next

lndlwwh830 2003-09-27