vb6做了个贪食蛇，有bug可悲的是知道有bug不知道什么情况下出现

Question

我这个代码写得很凌乱，求大神帮我分析下什么时候会出现bug
bugVisual Basic 6.0贪食蛇

Answer 1

这种代码核心部分应该只有百来行吧,建议先发上来看看,好调试的话自然有人帮你调试,实在不方便还可发http://www.csto.com呢

Answer 2

本帖最后由 bcrun 于 2013-04-23 12:38:41 编辑

  

Answer 3

'从随机数开始，向后（有折返）找一个背景点，确保一次命中。
Public Sub dimfoodran()
    Dim i As Long
    Dim j As Long
    i = Int((1023) * Rnd + 1)
    For j = i To 1023
        If box(j).FillColor = vbBackground Then box(j).FillColor = vbBonusColour: Exit Sub
    Next
    For j = 0 To i - 1
        If box(j).FillColor = vbBackground Then box(j).FillColor = vbBonusColour: Exit Sub
    Next
End Sub