for each ... next 问题？！？？

Question

For Each... Next是高性能的枚举器作用下的高效语句。
你这种需求用不到吧我用普通For语句应该能够实现。
dim i as integer
dim str1,str2,s[1 to 4] as string
For i=1 to 4 do
  s[i] = "0000"
  str1 = substring(s[i],1,i-1)
  str2 = substring(s[i],i,len(s[i]))
  s[i] = str1 & i & str2 
  debug.print s[i]
  debug.print vbcrlf
next i

Answer 1

你理解错了
我就是要用for each语句来做
我想知道他的算法
谢谢

Answer 2

我终于找到答案了，<<ATL Internals>>每300页有整整一页来论述原理，
当VB看到For_Each语句时它会调用_NewEnum属性寻找一个实现了IEnumVARIANT的枚举器,我们开发的集合接口只要基于IDispatch且拥有
属性_NewEnum(DispID必须为DISPID_NEWENUM)即可支持VB的For Each语句.
看不懂再问我:[email protected]