📄 例3－11.txt

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

💻 TXT

字号:

<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -