Excel VBA 实现俄罗斯方块
俄罗斯方块作为经久不衰的休闲游戏，其简单直观的玩法一直备受玩家喜爱。基于 Excel 2007，借助 VBA 和 Excel 自身的功能，详细阐述了俄罗斯方块游戏的开发过程。同时，针对原书中存在的两个问题进行了修正：一是移除了第八页方块下落控制模块中的冗余代码“AddScore (TempBlock.SmallBoxInCurrentBlock(1).Row)”，二是修复了第九页游戏满行判断逻辑，在“For TempColumn = 1 To Column IsFullRow = IIf(Range("GameArea").Cells(Row, TempColumn).Interior.ColorIndex <> xlNone, True, False)”后添加代码“If IsFullRow = False then Exit for End If Next”。
文件大小：697.11KB
评论区