|
??? |
|
Sub Macro1()
Cells(1, 1).Value = 0 Dim a As Integer, b As Integer, c As Integer, d As Integer For a = 1 To 9 For b = 0 To 9 If a <> b And a + b <> 9 Then For c = 0 To 9 If a <> c And b <> c And a + c <> 9 And b + c <> 9 Then For d = 0 To 9 If a <> d And b <> d And c <> d And a + d <> 9 And b + d <> 9 And c + d <> 9 Then Cells(1, 1).Value = Cells(1, 1).Value + 1 Cells(Cells(1, 1).Value, 2).Value = a Cells(Cells(1, 1).Value, 3).Value = b Cells(Cells(1, 1).Value, 4).Value = c Cells(Cells(1, 1).Value, 5).Value = d End If Next d End If Next c End If Next b Next a End Sub |
|
8月27日（木） 9:33:40
43654 |