Sub kuku1()
   Dim A, sum As Integer

   A = Range("a7").Value

   Range("e7").Select
   For i = 1 To A
      sum = 0
      For j = 1 To i
         ActiveCell.Offset(0, j).Value = "*"
         sum = sum + j
      Next j
      ActiveCell.Offset(0, 0).Value = sum
      ActiveCell.Offset(1, 0).Select
   Next i
End Sub
Sub kuku2()
   Dim A As Integer

   A = Range("a7").Value

   Range("e7").Select
   For i = A To 1 Step -1
      For j = 1 To i
         ActiveCell.Offset(0, j).Value = "*"
      Next j
      ActiveCell.Offset(1, 0).Select
   Next i
End Sub
Sub kuku3()
   Dim A As Integer

   A = Range("a7").Value

   Range("e7").Select
   For i = 1 To A
      For j = 1 To A
         If (i <= j) Then
           ActiveCell.Offset(0, j).Value = "*"
         End If
      Next j
      ActiveCell.Offset(1, 0).Select
   Next i
End Sub
Sub kuku4()
   Dim A As Integer

   A = Range("a7").Value

   Range("e7").Select
   For i = 1 To A
      For j = 1 To A
         ActiveCell.Offset(0, j).Value = A * (i - 1) + j
      Next j
      ActiveCell.Offset(1, 0).Select
   Next i
End Sub
Sub kuku5()
   Dim A, sum1, sum2, sum3 As Integer

   sum1 = 0
   sum2 = 0
   sum3 = 0

   A = Range("a7").Value
   Range("e7").Select
   For i = 1 To A
      For j = 1 To A
         If (i = j) Then
           ActiveCell.Offset(0, j).Value = "*"
           sum0 = sum0 + 1
         ElseIf (i < j) Then
           ActiveCell.Offset(0, j).Value = "+"
           sum1 = sum1 + 1
         Else
           ActiveCell.Offset(0, j).Value = "-"
           sum2 = sum2 + 1
         End If
      Next j
      ActiveCell.Offset(1, 0).Select
   Next i
   MsgBox "*の個数=" & sum0 & "  +の個数=" & sum1 & "  -の個数=" & sum2
   
   
End Sub