设为首页收藏本站
开启辅助访问 软件测试门户软件测试培训软件测试论坛测试解决方案文章资料精选软件测试博客软件测试招聘

51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步，快速开始

微信登录，快人一步

手机号码，快捷登录

51Testing软件测试论坛 »软件测试论坛 › [管理工具] › [自动化测试工具及框架] › [QuickTest Professional] › 不好意思，因为QTP需要用VBScript,这里插问一下一个VBSc ...
返回列表 发新帖
查看: 1575|回复: 1
打印 上一主题 下一主题

[原创] 不好意思，因为QTP需要用VBScript,这里插问一下一个VBScript问题，大家没意见吧？

[复制链接]
javaleo

该用户从未签到
跳转到指定楼层
1#
发表于 2007-5-19 12:02:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
下面这段代码是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>
复制代码
项目, 要素
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
微信
收藏收藏

相关帖子

【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！
回复

使用道具 举报

javaleo

该用户从未签到
2#
 楼主| 发表于 2007-5-19 12:03:08 | 只看该作者
应该是在
For Each I in d
        Document.frmForm.Elements(I).Value = D.Item(I)
    Next
这里报的错，末学不知道应该怎么修改，谢谢！
回复 支持 反对

使用道具 举报

返回列表 发新帖

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 )  关于我们

GMT+8, 2024-11-25 23:39 , Processed in 0.070784 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表