循环次数叠加错误

mowandao1985

Layer = Browser("PCB Prototype,PCB Manufacture,").Page("Quote List - MYRO Electronic").Frame("mainFrame").WebList("layer").Object.Value
Msgbox Layer
Dim i
For  i = 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

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

zhengpeipei

将i=i+1注释掉

mowandao1985

多谢楼上帮忙，问题已经解决！
现在还保留着以前的许多编程思想、方法，看来以后得多多学习VBScript了。