|
??? |
|
Sub Macro1()
Cells(1, 1).Value = 0 Call saiki(1) End Sub Sub saiki(ByVal n As Integer) Dim deta As Integer, j As Integer a(n) = 1 While a(n) <= 6 If onaji(n) = 0 Then If n < 6 - 1 Then Call saiki(n + 1) Else a(6) = 6 For j = 1 To 6 - 1 a(6) = a(6) + j - a(j) Next j deta = 0 For j = 1 To 6 - 1 deta = deta - (a(j) > a(j + 1)) Next j If deta = 1 Then Cells(1, 1).Value = Cells(1, 1).Value + 1 For j = 1 To 6 Cells(Cells(1, 1).Value, j + 1).Value = a(j) Next j End If End If End If a(n) = a(n) + 1 Wend End Sub Private Function onaji(ByVal n As Integer) As Integer Dim j As Integer onaji = 0 : j = 1 While onaji = 0 And j < n If a(j) = a(n) Then onaji = 1 Else j = j + 1 End If Wend End Function |
|
2月18日（木） 8:35:55
44183 |