某VB程序段如下：

For i=1 To 6

    j=7

    Do While i>i

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

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

        End If

        j=j-1

    Loop

Next i

For i=3 To 6

    s=s+a(i)

Next i

Labell. Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8，2，3，7，10，6，5”，则执行该程序段后，标签 Label1中显示的是（    ）

A、21

B、26

C、41

D、18