51Testing软件测试论坛

标题: 不好意思，因为QTP需要用VBScript,这里插问一下一个VBScript问题，大家没意见吧？ [打印本页]
作者: javaleo    时间: 2007-5-19 12:02
标题: 不好意思，因为QTP需要用VBScript,这里插问一下一个VBScript问题，大家没意见吧？
下面这段代码是VBScript语言参考里面的，我一模一样复制粘贴成html文件后运行竟然报错，应该怎么修改？谢谢!

  1. <HTML>
  2. <HEAD><TITLE>窗体与元素</TITLE></HEAD>
  3. <SCRIPT LANGUAGE="VBScript">
  4. <!--
  5. Sub cmdChange_OnClick
  6.     Dim d                   '创建一个变量
  7.     Set d = CreateObject("Scripting.Dictionary")
  8.     d.Add "0", "Athens"     '添加键和项目
  9.     d.Add "1", "Belgrade"
  10.     d.Add "2", "Cairo"

  12.     For Each I in d
  13.         Document.frmForm.Elements(I).Value = D.Item(I)
  14.     Next
  15. End Sub
  16. -->
  17. </SCRIPT>
  18. <BODY>
  19. <CENTER>
  20. <FORM NAME="frmForm"

  22. <Input Type = "Text"><p>
  23. <Input Type = "Text"><p>
  24. <Input Type = "Text"><p>
  25. <Input Type = "Text"><p>
  26. <Input Type = "Button" NAME="cmdChange" VALUE="单击此处"><p>
  27. </FORM>
  28. </CENTER>
  29. </BODY>
  30. </HTML>
复制代码
作者: javaleo    时间: 2007-5-19 12:03
应该是在
For Each I in d
        Document.frmForm.Elements(I).Value = D.Item(I)
    Next
这里报的错，末学不知道应该怎么修改，谢谢！



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2