某數的平方與它的逆序數的平方互為逆序數，則該數被稱為奇妙平方數。
如12²=144，21²=441，12與21互逆，144與441互逆，12就是奇妙平方數，小明編寫了一個找出200以內的所有奇妙平方數的VB程序，運行界面如圖所示。實現上述功能 的VB程序如下，但加框處代碼有誤，請改正。
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）+“個”
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（　　）函數用于刪除字符串首尾空格
  k1=Len（s1）
  compare=True
  For i=1 to k1
     If Mid（s1，i,1）＜＞Then copare=False
  Next i
End Function。