当n为100、p为10时，实付金额s的值是(   )。

    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的值为（  ）

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim s1 As String, s2 As String, c As String

s1=Text1.Text

s2=” ”

n=Len(s1)

For i=1 To n

c=Mid(s1,i,1)

s2=c+s2

Next i

Text2.Text=s2

End Sub

Dima( 1 To 5) As Integer

Dimi As Integer, j As Integer, s As String

s=“”

    For i= 2 To 5

        For j=i To 5

            If j Mod i=0 Then a(j) =a(j)+1

        Next j

    Next i

    For i= 1 To 5

        If a(i) <>1Then s=Str(i) +s

    Next i

    Text 1．Text=S

若数组a的初始值都为0，则运行该程序段后，Text 1中显示的内容为（  ）