1

我正在编写一些 vbs 代码，并且我希望能够传递一个随机数 for WAIT SECONDS，同时循环通过我的一个 CSV 文件，到目前为止我有这个

Dim rn
rn = 50 + cint(rnd()*11)
iret = iim1.iimSet("mynumber", Cstr(rn)) 

dim intLoop
intLoop = 1
Do Until intLoop = 28
   i = iim1.iimSET("line", CStr(intLoop))
   i = iim1.iimPLAY(mypath & "deletemelater2.iim")
   intLoop = intLoop + 1
Loop

发生的情况是，这只会为第一个实例创建一个数字，然后 intLoop 的下一个循环不会收到任何数字，我相信这需要一个嵌套循环，但不知道如何继续，如果有人可以提供帮助，将不胜感激！！ ,

我现在有这个，

Dim rn
rn = 50 + cint(rnd()*11)
iret = iim1.iimSet("line2", Cstr(rn)) 

dim intLoop, outLoop
intLoop = 1
outLoop = 1
Do Until intLoop = 28 AND outLoop = 28
   i = iim1.iimSET("line", CStr(intLoop))
   i = iim1.iimPLAY(mypath & "deletemelater2.iim")
   intLoop = intLoop + 1
   rn = iim1.iimSET("line2", CStr(rn))
   rn = iim1.iimPLAY(mypath & "deletemelater2.iim")
   outLoop = outLoop + 1

但它仍然无法正常工作，谁能告诉我我做错了什么？

4

1 回答 1

1

您的第二个示例可能由于两个原因不起作用。

  1. 您每次都使用相同的随机数。
  2. 您现在调用 iimPLAY 的次数是以前的两倍。

我将更改您的原始代码如下：

Dim rn
dim intLoop

For intLoop = 1 to 27
   rn = 50 + cint(rnd()*11)
   iret = iim1.iimSet("mynumber", Cstr(rn)) 
   i = iim1.iimSET("line", CStr(intLoop))
   i = iim1.iimPLAY(mypath & "deletemelater2.iim")
Next
于 2012-01-20T01:11:49.563 回答