mowandao1985 发表于 2010-3-3 10:40:34

循环次数叠加错误

Layer = Browser("PCB Prototype,PCB Manufacture,").Page("Quote List - MYRO Electronic").Frame("mainFrame").WebList("layer").Object.Value
Msgbox Layer
Dim i
Fori = 1 to Layer
Browser("PCB Prototype,PCB Manufacture,").Page("Quote List - MYRO Electronic").Frame("mainFrame").WebEdit("thickness_"&i).Set "n-r"
Msgbox i
   i = i+1
Next
Layer 取得的值为 5
i 输出的值分别为1、3、5
应该输出1、2、3、4、5才对，是不是我哪里写错了。
请各位帮帮忙看下。

zzxxbb112 发表于 2010-3-3 10:54:03

当然咯~因为你每次循环i都被你自加了一次，本身循环变量就会自加一次，等于加了两次

zhengpeipei 发表于 2010-3-3 11:03:27

将i=i+1注释掉

mowandao1985 发表于 2010-3-3 14:22:09

多谢楼上帮忙，问题已经解决！
现在还保留着以前的许多编程思想、方法，看来以后得多多学习VBScript了。
页: [1]
查看完整版本: 循环次数叠加错误