Dim a,b,c As Integer

   Dim s AS string

   a=9

   b=41

   c=2*(a+b)

   s=str(b+c)

实现上述功能的VB 代码如下，其中加框处代码有错，请改正。

Dim n As Integer, i As Integer, t As Integer, sum As Long, s As String n = Val(Text1.Text)

For i = 1 To n ^ 3 Step 2

    sum = 0: t = i: flag = False

    Do While sum <= n ^ 3 And flag = False

       sum = sum + t

            ⑴

       If sum = n ^ 3 Then flag = True

    Loop

    If flag = True Then Exit For

Next i

s = Str(n) + "^" + Str(3) + "="

Do While sum > 0

         ⑵

    If sum = 0 Then

        s = s + Str(i)

    Else

        s = s + Str(i) + "+"

    End If

    i = i + 2

Loop

Text2.Text = s

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

Dim a(0 To 9) As Integer, 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

Text1中输入10242048，则程序执行后x的值为（  ）

输入2350123456783，先将字符串拆成三段，分别是235,012345678,3要求每一段必须严格有序，如果无法实现连续升序，则单独作为一个拆分。

在文本框Text1中输入原文，单击“加密”按钮，可在文本框Text2中输出密文。

在文本框Text2中输入密文，单击“解密”按钮，可在文本框Text3中输出原文。

请结合所学知识，分析上图，完成下列题目。