一個整數(shù)n（n≥11）從左向右和從右向左讀其結(jié)果相同，且是素數(shù)，則稱n為回文素數(shù)，例如133 020 331是回文素數(shù)．小張設計一個VB程序用于找出1000以內(nèi)的所有回文素數(shù)，程序運行界面如圖所示．實現(xiàn)上述功能的VB程序如下，但加框處代碼有誤，請改正．

Private Sub Command1_Click（　?。?br />    Dim n As Interger,j As Integer,m As Integer
     '（1）
      Do While n＜1000'判斷是否為素數(shù)
          m=Int（Sqr（n））
           For j=2  To m
               If  n  Mod j=0 Then Exit For
            Next  j
             If  j＞m  Then
                  If  hws（n）=Ture Then
                       List 1．AddItemStr（n）
                   EndIf
               EndIf
                n=n+2
      Loop
End   Sub
Function  hws（n  As  Integer）As　Boolean'判斷所給n是不是回文數(shù)
     Dim　j,k　As　Integer 
     Dim　m　As  String
     Dim　a　As　Integer,b　As　Integer  
      hws=True
      m=Str（n）
      k=Len（m）
      For j=1 To  k\2
           a=Val（Mid（m,j,l）
           b='（2）
            If  a＜＞b  Then
                 hws=False
                  Exit  For 
            EndIf
       Next j
End  Function.