web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料

				For Each ... Next语句
				
				Sub cmdChange_OnClick
				    Set Obj = CreateObject("Scripting.Dictionary")
				    Obj.Add "0","文本1"     '添加键和项目
				    Obj.Add "1","文本2"
				    Obj.Add "2","文本3"
				    '将对象Obj各项目的值赋予各文本框
				    j=0
				    For Each i in Obj
				        Document.textForm.Elements(j).Value = Obj.Item(i)
				        j=j+1
				    Next 
				End Sub