1. (2018高三上·宁波期末) 【加试题】某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的值为（  ）