编写“寻找平方根”程序，实现的功能为：计算[32000，40000]范围内数的平方数，若该平方数十个数位上的数字正好是0123456789的不同组合，不重复、不缺失（每个数字均只能出现一次），则在列表List1中输出，程序运行时，界面如图所示．实现上述功能的VB程序如下，但加框处代码有误，请改正．把改正后的代码填在题后的横线上．
Private Sub Command1_Click（　　）
    Dim a （0 To 9）As Integer
    Dim i As Long,n As Long
    Dim j As Integer,x As Integer,y As Integer
    List1．Clear
    For i=32000 To 40000
n=i*2'（1）
          For j=0 To 9
                a（j）=0
          Next j
          Do While n＜＞0
                      x=n Mod 10
a（x）=a（x）+1'（2）
                          n=n\10
                          Loop
          y=0
          For j=0 To 9
                     y=y+a（j）
          Next j
          If y=10 Then List1．AddItem Str（i）+“^2=“+Str（i^2）
    Next i
End Sub
（1）应改为

n=i^2或n=i*i

n=i^2或n=i*i

；
（2）应改为

a（x）=1

a（x）=1

．