Tag: 魔方

VBA：将随机数添加到网格中的网格中

Sub FWP() Dim i As Integer Dim j As Integer Dim n As Integer n = Range("A1").Value For i = 1 To n For j = 1 To n If Cells(i + 1, j) = 0 Then Cells(i + 1, j).Value = Int(((n ^ 2) – 1 + 1) * Rnd + 1) ElseIf Cells(i […]