x=10

y=3

print(x%y，x**y)

小王利用VB程序实现这一加密功能，程序界面和代码如下所示：

Private Sub Com_ jm_ Click()

    Dim x As String, ch As String, cl As String

    Dim s1 As String, s2 As String, s As String

    Dim i As Integer, n As Integer, y As Integer

    x= Text1. Text

    n=Len(x)

    For i=1 To n

        ch= Mid(x, i, 1)

        If ch >= "0" And ch <= "9" Then

               ①     

            s2=s2 & y

        Elself ch >="a" And ch<="z" Then

            y=(Asc(ch)-Asc("a")+3) Mod 26

                 ②   

            s1=c1+s1

        Else

            y=(Asc(ch)- Asc("A")+3) Mod 26

            c2=Chr(Asc("A")+y)

            s1=c2+s1

        End If

    Next i

        ③  

    Text2 Text=s

End sub

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