編寫“尋找平方根”程序，實(shí)現(xiàn)的功能為：計(jì)算[32000，40000]范圍內(nèi)數(shù)的平方數(shù)，若該平方數(shù)十個(gè)數(shù)位上的數(shù)字正好是0123456789的不同組合，不重復(fù)、不缺失（每個(gè)數(shù)字均只能出現(xiàn)一次），則在列表List1中輸出，程序運(yùn)行時(shí)，界面如圖所示．實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有誤，請(qǐng)改正．把改正后的代碼填在題后的橫線上．
Private Sub Command1_Click（　?。?br />    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）應(yīng)改為

n=i^2或n=i*i

n=i^2或n=i*i

；
（2）應(yīng)改為

a（x）=1

a（x）=1

．