1. (2023·章丘模拟) 【加试题】有VB编写的程序如下：

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