'問題 1
Sub quiz1()
   Dim i, j, n As Integer
    
   n = Range("c16").Value
   Range("e15").Select
   j = 1
   For i = 1 To n
     If n Mod i = 0 Then
       ActiveCell.Offset(0, j).Value = i
       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 n Mod i = 0 Then
       ActiveCell.Offset(0, j).Value = i
       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 n Mod i = 0 And m Mod i = 0 Then
       ActiveCell.Offset(0, j).Value = i
       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 To min
     If n Mod i = 0 And m Mod i = 0 Then
       saidai = i
     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 = 1 To min
     If n Mod i = 0 And m Mod i = 0 Then
       saidai = i
     End If
   Next i
   
   Range("f28").Value = n * m \ saidai
   
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 = 0
     For j = 1 To i
       If i Mod j = 0 Then
         kosu = kosu + 1
       End If
     Next j
     If yakusu < kosu Then
       yakusu = kosu
       saidai = i
     End If
   Next i
   
    Range("c31").Value = saidai
    Range("d31").Value = yakusu
   
End Sub