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，則程序執(zhí)行后，變量x的值為（  ）