我的表单中有很多域名名字相似，形如b1,b2,b3.....
请问，如何用for循环给它们赋值
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim doc As NotesDocument
Set doc=uidoc.Document
Dim i As Integer
For i = 1 To 10
Call uidoc.FieldSetText("b"+Cstr(i),"1")
Next
for i=0 to 100
set item=doc.replaceitemvalue("b"&i,"value")
next
dim i as Integer
For i=0 To 100
Call doc.Replaceitemvalue("b"+CStr(i), "XXX")
Next