Sub quiz1()
    Dim A, B, C, D, min As Integer
    A = Range("b5").Value
    B = Range("d5").Value
    C = Range("f5").Value
    D = Range("h5").Value
    min = A
    If min > B Then
        min = B
    End If
    If min > C Then
       min = C
    End If
    If min > D Then
       min = D
    End If
    
    Range("j5").Value = min
    End Sub
Sub quiz2()
    Dim A, B, C, temp As Integer
    A = Range("b13").Value
    B = Range("d13").Value
    C = Range("f13").Value
    If A < B Then
       temp = A
       A = B
       B = temp
    End If
    If B < C Then
       temp = B
       B = C
       C = temp
    End If
    If A < B Then
       temp = A
       A = B
       B = temp
    End If
    
    Range("b13").Value = A
    Range("d13").Value = B
    Range("f13").Value = C
    End Sub
Sub quiz3()
    Dim year, gankin As Integer
    Dim rishi As Single

    gankin = Range("b19").Value
    year = Range("d19").Value
    rishi = Range("b22").Value
    
    gankin = gankin * (1 + rishi) ^ year
       
    Range("f19").Value = gankin
       
End Sub