为什么这个是死循环？不是a超过10就停止吗?

suvenweibo · 发表于 2013-2-20 22:50

为什么这个是死循环？不是a超过10就停止吗?
Sub 按钮1_单击()
Cells(1, 1) = 1
Do
DoEvents
a = a + 1
Cells(1, 1).Select
With Selection.Interior
.ColorIndex = 6
End With
Application.Wait (Now + TimeValue("0:00:2"))
Cells(1, 1).Select
With Selection.Interior
.ColorIndex = xlNone
End With
Application.Wait (Now + TimeValue("0:00:2"))
If a < 10 Then
Call 按钮1_单击
Else
End If
Loop Until a > 10
End Sub

大保 · 发表于 2013-2-20 23:02

本帖最后由大保于 2013-2-21 19:42 编辑

问题出在“Call 按钮1_单击”这句代码上，这句代码不需要，如果用这句代码，a会被重置，造成死循环
如果非这样用的话，在最前面加句代码dim a

Dim a
Sub 按钮1_单击()
Cells(1, 1) = 1
Do
DoEvents
a = a + 1
Cells(1, 1).Select
With Selection.Interior
.ColorIndex = 6
End With
Application.Wait (Now + TimeValue("0:00:2"))
Cells(1, 1).Select
With Selection.Interior
.ColorIndex = xlNone
End With
Application.Wait (Now + TimeValue("0:00:2"))
If a < 10 Then
Call 按钮1_单击
Else
End If
Loop Until a > 10
End Sub

复制代码

白色GG · 发表于 2013-2-20 23:10

这种调用方式，好像叫做递归，不断的调用自己。递归算法中，最关键的一点就是要设置好出口条件，否则就是死循环，直到系统资源耗尽崩溃。

大保 · 发表于 2013-2-21 19:46

白色GG 发表于 2013-2-20 23:10
这种调用方式，好像叫做递归，不断的调用自己。递归算法中，最关键的一点就是要设置好出口条件，否则就是死 ...

所以在调用自己的时候，私有变量a会被重新初始化为0，永远达不到10，造成死循环，解决办法把私有变量a改成公有变量，如2楼

hehex · 发表于 2013-2-22 11:05

大保发表于 2013-2-21 19:46
所以在调用自己的时候，私有变量a会被重新初始化为0，永远达不到10，造成死循环，解决办法把私有变量a改成 ...

如果只是某模块递归调用的话，开全局公有变量并不是好方法。比较好的解决方案是使用Static 定义过程变量。
Static 变量定义数据生成在数据区(Data Segment)，不会随过程的调用而被重置，从而确保递归时参数的稳定压入与弹出。全局公有变量一般仅用于，模块之间的数据传递，窗体与模块之间，窗体与窗体之间。
如下：

Sub test()
Static a As Integer
Cells(1, 1) = 1
Do
DoEvents
a = a + 1
Cells(1, 1).Select
With Selection.Interior
.ColorIndex = 6
End With
Application.Wait (Now + TimeValue("0:00:2"))
Cells(1, 1).Select
With Selection.Interior
.ColorIndex = xlNone
End With
Application.Wait (Now + TimeValue("0:00:2"))
If a < 10 Then
Call test
Else
End If
Loop Until a > 10
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

为什么这个是死循环？不是a超过10就停止吗?

评分