|
??? |
|
休みをいくらでもとることができるのなら，4063
最後腹筋を１分で終わりにしてもよいのなら，77 Option Explicit Dim a(16) As Integer Sub Macro1() Cells(1, 1).Value = 0 Call saiki(1) End Sub Sub saiki(ByVal n As Integer) Dim max As Integer Dim stepp As Integer Dim j As Integer If n = 1 Then a(1) = 0 max = 2 stepp = 2 ElseIf a(n - 1) = 0 Then a(n) = 1 max = a(n) stepp = 1 ElseIf a(n - 1) = 1 Or a(n - 1) = 2 Then a(n) = 3 max = a(n) stepp = 1 ElseIf a(n - 1) = 3 Then a(n) = 0 max = 2 stepp = 2 End If While a(n) <= max If n < 16 Then Call saiki(n + 1) ElseIf a(16) = 1 Or a(16) = 2 Then Cells(1, 1).Value = Cells(1, 1).Value + 1 For j = 1 To 16 Cells(Cells(1, 1).Value, j + 1).Value = training(a(j)) Next j End If a(n) = a(n) + stepp Wend End Sub Private Function training(ByVal n As Integer) Select Case n Case 0 training = "腹筋運動1" Case 1 training = "腹筋運動2" Case 2 training = "スクワット" Case Else training = "休み" End Select End Function |
|
5月23日（木） 9:05:18
40586 |