'問題 1
Sub quiz1()
   Dim i, j, n As Integer
    
   n = Range("c16").Value

   Range("e15").Select
   j = 1
   For i = 1 To n
     If [ 1 ] Then
       ActiveCell.Offset(0, j).Value = [ 2 ]
       j = j + 1
     End If
   Next i
End Sub
'問題 2
Sub quiz2()
   Dim i, j, n As Integer
    
   n = Range("c19").Value
    
   Range("e18").Select
   i = 1
   j = 1
   Do While i <= n
     If [ 1 ] Then
       ActiveCell.Offset(0, j).Value = [ 2] 
       j = j + 1
     End If
     i = i + 1
   Loop
End Sub
'問題 3
Sub quiz3()
   Dim i, j, n, m, min As Integer
    
   m = Range("c22").Value
   n = Range("d22").Value

   If m >= n Then
     min = n
   Else
     min = m
   End If
    
   Range("f21").Select
   j = 1
   For i = 1 To min
     If [ 1 ] Then
       ActiveCell.Offset(0, j).Value = [ 2 ]
       j = j + 1
     End If
 
   Next i
End Sub
'問題 4
Sub quiz4()
   Dim i, n, m, min As Integer
   Dim saidai As Integer
   
   m = Range("c25").Value
   n = Range("d25").Value

   If m >= n Then
     min = n
   Else
     min = m
   End If

   saidai = 1
    
   For i = [ 1 ]
     If [ 2 ] Then
       [ 3 ]
     End If
   Next i
   Range("f25").Value = saidai
   
End Sub
'問題 5
Sub quiz5()
   Dim i, n, m, min As Integer
   Dim saidai, saisyo As Integer
    
   m = Range("c28").Value
   n = Range("d28").Value
   
   If m >= n Then
     min = n
   Else
     min = m
   End If
   
   saidai = [ 1 ]
    
   For i = [ 2 ]
     If [ 3 ] Then
       [ 4 ]
     End If
   Next i
   
   Range("f28").Value = [ 5 ]
   
End Sub
'問題 6
Sub quiz6()
   Dim i, j As Integer
   Dim saidai As Integer
   Dim yakusu As Integer
   Dim kosu As Integer
        
   yakusu = 1
    
   For i = 1 To 99
     kosu = [ 1 ]
     For j = 1 To i
       If [ 2 ] Then
         kosu = [ 3 ]
       End If
     Next j
     If [ 4 ] Then
       yakusu = kosu
       saidai = [ 5 ]
     End If
   Next i
   
    Range("c31").Value = saidai
    Range("d31").Value = yakusu
   
End Sub