在编写QTP自动化脚本的过程中，应该尽量使用循环来实现同样的功能吗？

hongstarw · 发表于 2014-6-17 14:50:32

今天在编制脚本，是为一些输入框赋值，很简单的操作，直接实现方法就是挨个赋值，如下：
objUserEdit("用户名").set  "Cluo"
objUserEdit("用户昵称").set  "Cluo"
objUserEdit("密码").set  "admin"
objUserEdit("确认密码").set  "admin"
objUserEdit("电子信箱").set  "cluo@126.com"
objUserEdit("真实姓名").set  "C罗"
objUserEdit("详细地址").set  "葡萄牙"
objUserEdit("联系电话").set  "88888888"
objUserEdit("手机号码").set  "13800000000"

因为看着是一堆相似的对象，所以我想能不能用一个循环来实现，编写了下面的脚本：
Dim i,arrUserEdit,arrUserEditValue
arrUserEdit=Array("用户名","用户昵称","密码","确认密码","电子信箱","真实姓名","详细地址","联系电话","手机号码")
arrUserEditValue=Array("Cluo","Cluo","admin","admin","cluo@126.com","C罗","葡萄牙","88888888","13800000000")
For i=0 to Ubound(arrUserEdit)
   objUserEdit(arrUserEdit(i)).set arrUserEditValue(i)
Next

一样实现了为每个输入框赋值的目的，而且我看了下运行的时间，几乎一样。

我想请教各位大侠的是，为了实现同样的功能，从脚本执行效率看，是直接的方法比较好呢，还是使用循环？循环就是看上去高大上一些吧，不知各位有何见解~欢迎讨论！