写一个 excel中可以运行的 俄罗斯方块游戏代码

Sub Sub ADim I as Integer, J as IntegerFor I = 1 To 10For J = 1 To 10Cells(I, J) = Int(Rnd() * 4)Next JNext IEnd SubSub Sub BFor I = 1 To 10For J = 1 To 10Select Case Cells(I, J)Case 0Range(Cells(I, J), Cells(I, J)).Interior.ColorIndex = 0Case 1Range(Cells(I, J), Cells(I, J)).Interior.ColorIndex =