有如下 VB 程序段：

For i=1 to 6

    b(i)=a(i)

Next i

s=0

For i=2 to 6

    if a(i)+a(i-1)<a(i) then b(i)=a(i)+a(i-1)

    s=s+b(i)

Next i

数组元素a(1)到a(6)的值依次为“8，-2，5，7，-6，1”，执行该程序后，变量s的值为（      ）

A、-3

B、17

C、5

D、13