|
今天在编制脚本,是为一些输入框赋值,很简单的操作,直接实现方法就是挨个赋值,如下:
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
一样实现了为每个输入框赋值的目的,而且我看了下运行的时间,几乎一样。
我想请教各位大侠的是,为了实现同样的功能,从脚本执行效率看,是直接的方法比较好呢,还是使用循环?循环就是看上去高大上一些吧,不知各位有何见解~欢迎讨论! |
|