某算法的VB程序段如下：

i=1: flag=True

Do While i<6 And flag=True

    flag=False

    For j =6 To i+1 step -1

        If a(j) > a(j-1) Then

            t = a(j): a(j) = a(j-1): a(j-1) = t

            flag=True

        End If

    Next j

    f(i)=1          'f 数组初值均为 0

    i=i+1

Loop

For i=1 To 6

    s=s+f(i)

Next i

数组元素a(1)到a(6)的值依次为“17,79,93,55,15,13”，执行该程序段后，s的值是（     ）

A、3

B、4

C、5

D、6