image click事件加上这一句代码后反映速度会出问题？

Question

这个click事件就是实现一个转换 我用
zhuannum = zhuannum + 1
If (zhuannum = 2) Then
zhuannum = 0
End If
加以区分次数（第一次单击转换过去，第二次单击转换回来），但是发现反映速度出现问题，有时只有双击才能正常转换，或者单击的时间长一些，或者两次单击的间隔时间长一些才会正常 否则就不会转换（要不就是连续转换回来了 肉眼看不到） 以下是具体代码 请教朋友们是什么原因？尽快结贴给朋友们分，谢谢！具体代码如下
DIM zhuannum as IntegerPrivate Sub zhuanhuan_Click()
If (num = 100) ThenIf (zhuannum = 0) Then
bizhongImg(6)
End If
If (zhuannum = 1) Then
bizhongImg(0)
End If
zhuannum = zhuannum + 1
If (zhuannum = 2) Then
zhuannum = 0
End IfEnd If
End Sub

Answer 1

没看懂。
bizhongImg里面干了什么？

Answer 2

DIM zhuannum as Integer Private Sub zhuanhuan_Click() 
If (num = 100) Then If (zhuannum = 0) Then 
bizhongImg(6) 
End If 
If (zhuannum = 1) Then 
bizhongImg(0) 
End If 
zhuannum = zhuannum + 1 
If (zhuannum = 2) Then 
zhuannum = 0 
End If End If 
End Sub看别处吧，大概根这段代码无关。

Answer 3

If (zhuannum >= 2) Then