Dim n As Integer
    n = 5
    ReDim T0(1 To n) As Double
    ReDim T1(1 To n) As Double
    ReDim p0(1 To n) As Double
    ReDim p1(1 To n) As Double

    Dim rT0, rT1, rT10, rJtp, rJp As Double

    T0(1) = 8564.3
    T0(2) = 24384.5
    T0(3) = 17562.4
    T0(4) = 354.7
    T0(5) = 15458.4

    T1(1) = 12835.4
    T1(2) = 25856.7
    T1(3) = 18124.2
    T1(4) = 425.6
    T1(5) = 17681.3

    p0(1) = 43.5
    p0(2) = 168.3
    p0(3) = 361.2
    p0(4) = 15.6
    p0(5) = 261.5

    p1(1) = 51.5
    p1(2) = 215.4
    p1(3) = 415.2
    p1(4) = 18.4
    p1(5) = 165.2

    Dim i As Integer

    For i = 1 To n
        rT0 = rT0 + T0(i)
        rT1 = rT1 + T1(i)
        rT10 = rT10 + T1(i) / (p1(i) / p0(i))
    Next
    rJtp = rT1 / rT0
    rJp = rT1 / rT10

    MsgBox CStr(rT0) + " " + CStr(rT1) + " " + CStr(rT10) + " " + CStr(rJtp) + " " + CStr(rJp)