Sub Command1_Click()

Dim i As Integer, n As Integer

m=106

n = {#blank#}1{#/blank#}

Do While m <= 996

    If {#blank#}2{#/blank#} Then n = n + 1

    m={#blank#}3{#/blank#}

Loop

Text1.Text = Str(n)

End Sub

⑴找出文章(以“.”结束)中所有用英文表示的数字(均为小写，数字范围1≤n≤20)，单词与数字对应如下：

⑵将这些数字平方后除以100取余，得到两位数如00，04，21，96。

⑶把这些两位数按升序排成一行，组成一个最小的新数，如果新数开头为0，就去除。

⑷步骤(3)找出的最小数即为密码。

小明按照上述方法，设计了一个解密的VB程序，功能如下：单击“解密”按钮Command1，程序依次将文本框Text1中以空格分隔的每个英文单词取出，若单词属于数字单词，则按解密步骤进行处理，最后在文本框Text2中输出解密结果。

程序运行效果如图所示，请回答下列问题：

图1

输入火柴棍的数量n（n≤24），计算可以拼出多少个“A+B=C”的等式？要求：

① 加号与等号各自需要两根火柴棍。

② A、B、C为非负的整数，且该数非零时，最高位不能是0。

③ 如果A≠B，则A+B=C 与B+A=C 视为不同的等式。

④ n 根火柴棍必须全部用上。

小明发现，数字1用的火柴棍最少，24根火柴棍全部用上的话，能拼出最大的整数A或B不超过1111，C不超过2222。他编写了一个VB 程序，在文本框Text1中输入火柴棍的数量，单击“统计”按钮Command1，在文本框Text2中输出“A+B=C”的方案数，程序界面如图2所示。

图2

实现上述功能的VB程序如下，请回答下列问题：

为实现上述功能程序如下，但加框处的代码有误，请改正。

Private Sub Command1_Click()

    Dim n As Integer

    Dim i As Integer, c As Integer

    n = Val(Text1.Text)

    List1.Clear

    c = 0

    If n Mod 2 = 0 Then

        For        ①

            If    Then            ②

                List1.AddItem n & "=" & i & "+" & n - i

                c = c + 1

            End If

        Next i

        Label2.Caption = "共有" & c & "种组合"

    Else

        Label2.Caption = "请输入一个大于 2 的偶数"

    End If

End Sub

Function is Prime(x As Integer) As Boolean

    Dim i As Integer

    Is Prime = True

    For i = 2 To Int(Sqr(x))

        If x Mod i = 0 Then

            Is Prime = False

            Exit For

        End If

    Next i

End Function

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

问题：实现上述功能的VB 代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

    Dim n as long , sum as long , i As Long Dim x as long , y as long

    List1.Clear

    n = Val(Text1.Text) sum = 0

    For i = 10 To n

        x =               ‘①

        y = 0

        Do While x > 0

            y =         ‘②

            x = x \ 10

        Loop

        If y = i Then

            List1.additem Str(i)

            sum = sum+1

        End if

    Next i

Label1.caption = “共有”& Str(sum) & “个回文数” End Sub

①{#blank#}1{#/blank#}②{#blank#}2{#/blank#}