用VB程序编写计算两个字符环上最长连续公共字符串长度的程序．例如，字符串“ABCEFAGADEGKABUVKLM”的首尾连在一起，构成一个环；字符串“MADJKLUVKL”的首尾连在一起，构成另一个环；“UVKLMA”是这两个环的一个连续公共字符串．
功能如下：在文本框Text1中输入字符串1，在文本框Text2中输入字符串2，单击“判断”按钮Command1后，
在文本框Text1中显示公共字符串，程序运行界面如图所示．
实现上述功能的VB程序如下，但加框处代码有误，请改正．
Function  maxnum（a  As　Integer,b　As　Integer）As　Integer
    If  a＜b Then  maxnum=a  Else  maxnum=b
 End  Function
Private　Sub　Command1_Click （　　）
    Dim sl  As　String,s2　As　String,res  As　String'存储2个字符环
    Dim  i　As　Integer,j　As　Integer,m　As　Integer
    Dim　num　As　Integer,pd  As Boolean,n　As　Integer
    Dim　max　As　Integer'存储字符环中最长的连续公共字符串长度
    Dim  resmax  As　string'存储字符环中最长的连续公共字符串
    s1=Text1．Text：s2=Text2．Text
     max=0：res=''''
     For　i=1 To  Len（s1）
          For　j=1 To Len（s2）
             If  Mid（s1，i,1）=Mid（s2，j,1）Then
                  res=Mid（s1，i,1）
                  num=l：m=i：n=j
                   pd=True
              EndIf
              Do While  pd=True
                    m=m+1：n=n+1
                    If  m＞Len（s1）Then m=m-Len（s1）
                    If  n＞Len（s2）Then n=n-Len（s2）
                    If    Then'（1）
                         pd=flash
                     Else
                        num=num+1
                        res=res+Mid（s2，n,1）
                      EndIf
                      If num＞=maxnum （Len（s1），Len（s2））  Then  pd=False
               Loop
               If num＞max  Then
                 '（2）
                   resmax=res
                   res=''''
                EndIf
               Next j
            Next  i
            Text3．Text=resmax
End　Sub.