Sub quiz1()
    Dim A, B, C, D, min As Integer
    A = Range("[ 1 ]").Value
    B = Range("[ 2 ]").Value
    C = Range("[ 3 ]").Value
    D = Range("[ 4 ]").Value
    min = A
    If [ 5 ] Then
        min = B
    End If
    If [ 6 ] Then
       min = C
    End If
    If [ 7 ] 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 [ 1 ] Then
       temp = B
       B = C
       C = temp
    End If
    If [ 2 ] Then
       temp = A
       A = [ 3 ]
       B = [ 4 ]
    End If
    
    Range("b13").Value = [ 5 ]
    Range("d13").Value = [ 6 ]
    Range("f13").Value = [ 7 ]
    End Sub
Sub quiz3()
    Dim year, gankin As Integer
    Dim rishi As Single

    gankin = Range("[ 1 ]").Value
    year = Range("[ 2 ]").Value
    rishi = Range("[ 3 ]").Value
    
    gankin = [ 4 ]
       
    Range("[ 5 ]").Value = [ 6 ]
       
End Sub