Private Sub Command1_Click()

    Dim a(0 To 9)As Integer

    Dim t As Long

    t=Val(Text1.Text)

    Do While t<>0

       a(t Mod 10)=1

       t=t\10

    Loop

    For i=0 To 9

        x=x+a(i)

    Next i

  End Sub

若在文本框Text1中输入10242048，则程序执行后，变量x的值为（  ）

For i = 1 To Len(Text1.Text)

  c = Mid(Text1.Text, i, 1)

  If c >= "0" And c <= "9" Then c = Chr(Asc(c) + 1)

  If c >= "A" And c <= "Z" Then c = Chr(Asc(c) + 32)

  s =s + c

Next i

若文本框Text1的内容为“Number 2468！”执行程序后，变量s的值为（   ）