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

Question

我定义了一个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

Answer 1

应该是这样
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

Answer 2

Dim ip As New Collection
Dim i As Long
For i = 1 To 3
    ip.Add "192.168.1." + CStr(i)
NextDim sTmp As String
Dim x As Variant
For Each x In ip
     sTmp = x
Next

Answer 3

Dim ip As New Collection
Dim i As Long
For i = 1 To 3
    ip.Add "192.168.1." + CStr(i)
NextDim sTmp As String
Dim x As Variant
For Each x In ip
     sTmp = x
Next

Answer 4

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