Question

按键精灵循环问题，怎样实现一个循环？

脚本是这样的：反复调用子函数，如下。然后这段代码有会重复很多次，每次重复只有“call 数字（）”里边的数值不同，怎么用一个循环来简化代码：只需写一次，把数值付给一个一维数组，考循环来将数组里边的数一次给子程序 “ 数字（）” 的形参。

不知描述清楚了吗

子程序如下：





Answer 1

Dim MyArray
MyArray(0) = "17294201"
MyArray(1) = "1875543"
MyArray(2) = ""//后边自己加
MyArray(3) = ""
MyArray(4) = ""
MyArray(5) = ""
For UBound(MyArray) + 1
Call 第一章
Call 第二章
Call 第三章上
Call 第三章下
Call 第四章
Call 第五章

Call 数字(MyArray(i))
i=i+1
Next

追问

提示MyArray类型不匹配，是怎么回事呢？谢谢

Answer 2

NUM = Array("17294201", 值2, 值3, 值4)
For N = 0 To UBound(NUM) + 1
 Call 章节
 Call 数字(NUM(N))
Next

'这样简洁