用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.