【加试题】某VB程序段如下：

    s=0

    For i=1 To 5

    a(i)=0

    Next i

    For i=2 To 5

         For j=i To 5

         If j Mod i=0 Then

            a(j)=a(j)+1

            s=s+a(j)

         End If

       Next j

    Next i

运行程序段后，变量s的值为（  ）

A、6

B、5

C、4

D、3