例3－11.txt

来自「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料」· 文本 代码 · 共 20 行

TXT
20 行
字号 
<html><head><title>For Each ... Next语句</title></head>
<script language="VBScript">
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
  </script></head>
  <body><center><form name="textForm"><input type = "Text"><p>
  <input type = "Text"><p><input type = "Text"><p>
  <input type = "Button" name="cmdChange" value="单击此处"><p>
  </form></center></body></html>

例3－11.txt - 源码说明

本页面展示了「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料」中的 例3－11.txt 源码文件，采用 文本 编程语言编写，共 20 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Web开发相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?