Question

按键精灵定义函数问题

我想让b等于1，12，23，34，45。。。。的时候去执行"向下5格"
让b等于其他数字的时候去执行"向下四格1"
现在貌似都在执行"向下5格"，高手请指点一下吧
Dim a
a = i * 11 + 1
For i = 0 To 1000
Dim b
For b = 1 To 1000
If b = a Then
Goto 向下5格
Else Goto 向下四格1
End If

Next

Answer 1

自定义函数命令Function，可以有返回值，定义之后可以被调用。

脚本例子：
Msgbox 函数过程("我是函数,被你调用了") //调用已经定义的“函数过程”这个函数
EndScript

Function 函数过程(a) //定义一个函数过程,可以在脚本中调用这个函数
函数过程=a //带返回值的函数
End Function

Answer 2

想了个笨的办法，希望可以帮你。
dim a，b，i，k
i=0
k=0
for 1000
b=i
call 跳四行
for 90
a=k*11+1
k=k+1
if b=a then call 跳一行
next
i=i+1
next