|
??? |
|
Option Explicit
Dim a(15) As Integer Sub Macro1() Cells(1, 1).Value = 0 Call saiki(1) Range("A1").Select End Sub Sub saiki(ByVal n As Integer) Dim dame As Integer Dim j As Integer a(n) = 0 While a(n) <= 1 If n <= 2 Then dame = 0 ElseIf a(n - 2) = a(n - 1) And a(n - 1) = a(n) Then dame = 1 Else dame = 0 End If If dame = 0 Then If n < 15 Then Call saiki(n + 1) Else Cells(1, 1).Value = Cells(1, 1).Value + 1 For j = 1 To 15 If a(j) = 0 Then Cells(Cells(1, 1).Value, j + 1).Value = "○" Else Cells(Cells(1, 1).Value, j + 1).Value = "●" End If Next j Range("B" & Cells(1, 1).Value).Select End If End If a(n) = a(n) + 1 Wend End Sub |
|
6月24日（木） 9:02:09
36387 |