'問題 1
Sub quiz1()
    Dim A, B, C, D, max As Integer
    A = Range("b5").Value
    B = Range("d5").Value
    C = Range("f5").Value
    D = Range("h5").Value
    max = A
    If max < B Then
        max = B
    End If
    If max < C Then
       max = C
    End If
    If max < D Then
       max = D
    End If
    
    Range("j5").Value = max
    End Sub
'問題 2
Sub quiz2()
    Dim temp As String
    
    temp = Range("b13").Value
    Range("b13").Value = Range("d13").Value
    Range("d13").Value = Range("f13").Value
    Range("f13").Value = temp
    
    End Sub
'問題 3
Sub quiz3()
    Dim year, gankin As Integer
    Dim rishi As Single

    gankin = Range("b21").Value
    year = Range("d21").Value
    
    If year < 3 Then
       rishi = Range("l19").Value
    Else
       rishi = Range("l20").Value
    End If
    gankin = gankin * (1 + rishi) ^ year
       
    Range("f21").Value = gankin
       
End Sub
'問題 4
Sub quiz4()
    Dim year, gankin As Integer
    Dim rishi As Single

    gankin = Range("b29").Value
    year = Range("d29").Value
    
    If year <= 2 Then
       rishi = Range("l27").Value
    ElseIf year <= 4 Then
       rishi = Range("l28").Value
    Else
       rishi = Range("l29").Value
    End If
    gankin = gankin * (1 + rishi) ^ year

    Range("f29").Value = gankin
       
End Sub
'問題 5
Sub quiz5()
    Dim year, gankin As Integer
    Dim rishi As Single

    gankin = Range("b37").Value
    year = Range("d37").Value
    
    If year >= 1 And year <= 2 Then
       rishi = Range("l35").Value
       gankin = gankin * (1 + rishi) ^ year
    ElseIf year <= 4 Then
       rishi = Range("l35").Value
       gankin = gankin * (1 + rishi) ^ 2
       year = year - 2
       rishi = Range("l36").Value
       gankin = gankin * (1 + rishi) ^ year
    Else
       rishi = Range("l35").Value
       gankin = gankin * (1 + rishi) ^ 2
       rishi = Range("l36").Value
       gankin = gankin * (1 + rishi) ^ 2
       year = year - 4
       rishi = Range("l37").Value
       gankin = gankin * (1 + rishi) ^ year
    End If

    Range("f37").Value = gankin       
End Sub