情報(bào)員小王在工作時(shí)發(fā)現(xiàn)R國會(huì)用一些對(duì)稱字符（如ABBA、ABA、123321）進(jìn)行通信．R國為防止通信內(nèi)容被破解，會(huì)在對(duì)稱字符的頭、尾加一些無關(guān)字符，如：12ABBA，ABAKK、51233214．因此小王編寫了一個(gè)VB程序，用于讀取通信字符串中最長的對(duì)稱字符．在文本框Text1中輸入通信字符，單擊”讀取“按鈕Command1，在標(biāo)簽Label1中顯示最長的對(duì)稱字符，程序運(yùn)行界面如圖所示．
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Private Sub Command1_-Click（　?。?br />Dim x As String,n As Intrger,i As Integer,k As Integer
Dim start As Integer,max As Integer
max=0
start=1
x=Textl.Text
n=Len（x）
For i=l To n
k=n
Do While k＞i
If Then'（1）
max=k-i+1
start=i
End If
'（2）
Loop
Next i
Labell.Caption=''最長對(duì)稱字符：''+Mid（x,start,max）
End Sub
Function palin（temp As String）As Boolean
'判斷字符串是否對(duì)稱，若對(duì)稱返回值True,否則返回值False
'代碼略
End Function.