若一个正整数从左向右读与从右向左读都一样，我们就将其称之为回文数。如 11、121 均是回文数。请你编写程序，输出 10 至 n 之间的所有回文数。程序运行界面如图所示，在文本框 Text1 中输入一个正整数 n,单击“查找”按钮 Command1，在列表框 List1 中显示 10-n 之间的所有回文数，并且在标签 Label1 中输出查找到回文数的总数。
问题：实现上述功能的 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=10To n    
y=0
Do While x＞0 
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