最大回文子串。回文字符串是具有回文特性的字符串：即該字符串從左向右讀，與從右向左讀都一樣。如：鳳落梧桐梧落鳳，abcba 等。“最大回文子串”是指一個字符串中長度最大的回文字符串，其基本算法思想如下：
（1）每個回文都有一個“中心”，當回文字符數為奇數時，中間的那個字符就是回文中心；但是當回文的字符數為偶數時，回文的中心是最中間的那兩個字符，且這兩個字符相同。
（2）對任意一個字符或者相同的兩個連續字符，我們都可以假設它為回文的“中心”，向它的左右兩邊擴展出盡可能長的回文。對于每種假設，我們都能得到一個回文，而最長回文必定由其中的某個假設中得到。
現編寫一個 VB 程序，在 Text1 中輸入一串字符，單擊“統計”按鈕，在 Text2 中顯示該字符串中的最大的回文子串（長度相同時，輸出最左邊的子串）。運行界面如圖所示。
請回答下列問題：
（1）當 Text1 中輸入“123321344332423112113123”時，則輸出的結果為

3112113

3112113

 。
（2）請在橫線處填入合適的代碼。
Dim n As Integer
Dim a（0To 100）As String
Private Sub Command1_Click（　　）
Dim s As String
Dim left As Integer,right As Integer,i As Integer
Dim max As Integer,m As Integer,b1As Integer
'變量 b1 用于記錄回文子串的左端起點
Text2．Text=““
s=Text1．Text
n=Len（s）
For i=1To n
a（i）=Mid（s,i,1）
Next i
max=0：left=0：right=0
For i=1To n
left=i
right=i
m=longest（left,right）
If m＞max Then

①

①

max=m
End If
left=i
right=i+1
If a（left）=a（right） Then
m=longest（left,right）+1
If m＞max Then
b1=i-m\2+1
max=m
End If
End If
Next i
For i=b1To

②

②

Text2．Text=Text2．Text+a（i）
Next i
End Sub
Function longest（left As Integer,right As Integer） As Integer
Dim p As Integer
p=1
Do While left＞1 And right＜n And

③

③

left=left-1
right=right+1
p=p+2
Loop
longest=p
End Function