某數(shù)的平方與它的逆序數(shù)的平方互為逆序數(shù)，則該數(shù)被稱(chēng)為奇妙平方數(shù)。
如12²=144，21²=441，12與21互逆，144與441互逆，12就是奇妙平方數(shù)，小明編寫(xiě)了一個(gè)找出200以?xún)?nèi)的所有奇妙平方數(shù)的VB程序，運(yùn)行界面如圖所示。實(shí)現(xiàn)上述功能 的VB程序如下，但加框處代碼有誤，請(qǐng)改正。
Private Sub Commandl_-Click（　　）
Dim a As Integer,b As Integer,al As Integer,sum As Integer
Dim t1  As Long,t2 As Long
sum=0
For a=1 To 200
      b=0：a1=a
       Do While a1＞0
         b=b*10+a1 Mod 10
         a1=a1\10
    Loop
    t1=a^2Lt2=b^2
    If And a＜＞b   Then
      Listl.AddItem Str（a）  &“^2“&“=“&Str（t1）
      List2．AddItem Str（b）  &“^2“&“=“& Str（t2）
      sum=sum+1
    End    If
     Next a
     Labell.Caption=“共有“+Str（sum）+“個(gè)”
End Sub
Function compare（x As Long,y As Long） As Boolean
  Dim k1 As Integer,s1 As String,s2 As String
  s1=trim（Str（x））：s2=Trim（Str（y））'Trim（　?。┖瘮?shù)用于刪除字符串首尾空格
  k1=Len（s1）
  compare=True
  For i=1 to k1
     If Mid（s1，i,1）＜＞Then copare=False
  Next i
End Function。