'問題 1
Sub quiz1()
    Dim A, B, C, D, max As Integer
    A = [ 1 ]
    B = [ 2 ]
    C = [ 3 ]
    D = [ 4 ]
    max = A
    If [ 5 ] Then
        max = B
    End If
    If [ 6 ] Then
       max = C
    End If
    If [ 7 ] Then
       max = D
    End If
    
    Range("j5").Value = max
    End Sub
'問題 2
Sub quiz2()
    Dim temp As String
    
    [ 1 ] = Range("b13").Value
    Range("b13").Value = [ 2 ]
    Range("d13").Value = [ 3 ]
    Range("f13").Value = [ 4 ]
    
    End Sub
'問題 3
Sub quiz3()
    Dim year, gankin As Integer
    Dim rishi As Single

    gankin = Range("b21").Value
    year = Range("d21").Value
    
    If [ 1 ]  Then
       [ 2 ] 
    Else
       [ 3 ]
    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 [ 1 ] Then
       [ 2 ]
    ElseIf [ 3 ] Then
       [ 4 ]
    Else
       [ 5 ]
    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 [ 1 ] Then
       rishi = Range("l35").Value
       gankin = gankin * (1 + rishi) ^ year
    ElseIf [ 2 ] Then
       rishi = Range("l35").Value
       gankin = gankin * (1 + rishi) ^ 2
       year = [ 3 ]
       [ 4 ]
       [ 5 ]
    Else
       rishi = Range("l35").Value
       [ 6 ]
       rishi = Range("l36").Value
       [ 7 ]
       [ 8 ]
       rishi = Range("l37").Value
       [ 9 ]
    End If

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