使得俄羅斯方塊

Question

Sub left() 

Dim m As Integer 
Dim n As Integer 
For m = 0 To 3 
    For n = 0 To 3 
    If j < 3 Then 
     GoTo end 
    End If 
    If board(m + i - 1, n + j) = 1 Then 
     If board(i + m - 1, j + n - 1) = 2 Then 
     GoTo end 
     End If 
    End If 
    Next n 
Next m 
j = j - 1 
end: 
End Sub 

所以我嘗試讓俄羅斯方塊遊戲Excel和我的「moveleft」功能不工作正常，當我按下左2或3次很快就跳過檢查是否有與值的單元格2（全細胞），並通過全細胞。有什麼建議麼？

Answer 1

首先，我建議探測一下代碼，看看你跳出命令的位置。例如，在您的第一個if命令內部的debug.print "j<3"會告訴您這是代碼的退出位置。在不同的地方放置一條不同的線路，並觀察您的直接窗口以查看正在處理的內容。您可能還想打印出您的全局變量，以確保它們是預期的。

其次，不要使用end作爲goto點，因爲end是VBA中的關鍵字。我把它改成endleft

如果速度是一個問題，那麼以下兩點可能會幫助：

第三，由於j內不會改變for循環，外面拉。這是你在每個循環內進行的少一點評估。

第四，把你的另外兩個如果合在一起並且使用邏輯AND。現在，當第一個條件爲假時，您在每個循環中做一個更少的評估。

---

Sub left() 
    Dim m As Integer 
    Dim n As Integer 
    If Not (j < 3) Then 
    For m = 0 To 3 
     For n = 0 To 3 
     If ((board(m + i - 1, n + j) = 1) And (board(i + m - 1, j + n - 1) = 2)) Then 
      GoTo endleft 
     End If 
     Next n 
    Next m 
    j = j - 1 
    End If 
endleft: 
End Sub 

五，酷的項目。你會在分享完成後分享嗎？