回文數(shù)是從左向右讀和從右向左讀結(jié)果一樣的數(shù)字串，例如：1和363都是回文數(shù)編寫VB程序，構(gòu)造一個(gè)大于給定正整數(shù)n的最小回文數(shù)p,構(gòu)造方法如下
（1）根據(jù)數(shù)字串n的左半部分子串st,構(gòu)造對稱的右半部分，生成回文數(shù)p
（2）若p＞n,則p即為最小回文數(shù)，如：98712→98789
（3）若p＜=n則需重新構(gòu)造p,方法是：從右向左查找字符串st中第一個(gè)“9”的字符；若不存在，則生成形如“10…01”的回文數(shù)p,p的長度比n的長度多1位，如：9999→10001若存在，則將第一個(gè)非“9”字符加1，并將該字符后面部分用字符“0“填充，最后構(gòu)造對稱的右半部分，生成回文數(shù)p。如：98992→99099，
實(shí)現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）如果n為69999，則p為

70007

70007

。
（2）請?jiān)跈M線處填入合適的代碼
Private Sub Command1_Click（　?。?br />Dim n As String,st As String.p As String
Dim In As Integer.i As Integer.j As Integer
n=Text1．text
ln=Len（n）
st=Mid（n,1，＜ln+1＞\2）
p=st
For i=ln\2To1 Stop-1
  p=p+Mid（n,i,1）
Next i
If

①

①

Then
   i=（ln+1）\2
Do While i＞0
If Mid（st,i,1）=“9“Then

②

②

EIse Exit Do
Loop
If i＜1 THen
    p=“1“
    For i=2 To In
       p=p+“0“
    Next i
   p=p+“1“
Else
   p=Mid（st,1，i-1）
   p=p+Chr（Asc（Mid（st,i,1））+1）
   For j=i+1 To ln-i
     p=p+“0“
   Next j
      If

③

③

Then p=p+Mid（p,i,1）
      For j=i-1 To Step-1
      p=p+Mid（p,j,1）
      Next j
     End If
  End If
End If
Text2．Text=p
End Sub