程序代码如下：

Private Sub Command1_Click()

  Dim sum As Integer    'sum用来统计符合条件的自然数个数

  Dim n, max As Integer

  List1.Clear

  sum = 0

  max = _______①______    '指定查找范围的最大自然数，在text1框中输入

  n = 0

  Do While n <= max

n = n + 1  

    If _______   _②         ___  Then

List1.AddItem Str(n) '

    ________③_______

    End If

  Loop

  List1.AddItem ("共计" + Str(sum) + "个")   

End Sub

Private Sub Command1_Click()

Dim getStr As String

Dim a As String

Dim i As Integer，s As Integer

Dim q As Integer，l As Integer

s=0：q=0：l=0

getStr=Text1.Text

Text2.Text = Str（s）

Text3.Text = Str（q）

Text4.Text = Str（l）

End Sub

问题：实现上述功能的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#}