模块中写了一个子函数TURN,但却在用TURN调用的时候显示"子程序或函数未定意".我是菜鸟,刚学到模块不知道这是怎么回事,请教各位大哥一下!
TURN的代码如下:
Sub TURN()
Dim start
Dim i
i = 1
start = Timer
start: If i >= 10 Then
Exit Sub
Else
Do While Timer < start + i
DoEvents
Loop
a(i) = a(0)
b(i) = b(0)
i = i + 1
GoTo start
End If
End Sub
还有,我是在其它过程中直接用:
TURN
引用的.在通用声明中声明了:
dim a(10)
dim b(10)
并且在后续步骤中给a(0)和b(0)都赋值为0.