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 =
Write a Tetris game code that can run in excel
Guess you like
Origin blog.csdn.net/weixin_35748962/article/details/129536861
Ranking