LS的有关问题(小弟我的表单中有很多域名名字相似，形如b1,b2,b3.)

LS的问题(我的表单中有很多域名名字相似，形如b1,b2,b3.....)
我的表单中有很多域名名字相似，形如b1,b2,b3.....
请问，如何用for循环给它们赋值

[解决办法]
dim i as Integer
For i=0 To 100
Call doc.Replaceitemvalue("b"+CStr(i), "XXX")
Next