Dim a(1 To 5) As Integer

Dim f As Boolean

a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10

i = 1: f = True

Do While i <= 5 And f = True

  If a(i) = 56 Then f = False

  i = i + 1

Loop

Label1.Caption = i

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