回?cái)?shù)猜想：如果一個(gè)正整數(shù)從左到右讀與從右到左讀是一樣的，就稱之為回文式數(shù)（簡(jiǎn)稱回?cái)?shù)），如12321．“回?cái)?shù)猜想”的主要思想是對(duì)任意正整數(shù)，若它不是回?cái)?shù)，則按下列算法可獲得一個(gè)回?cái)?shù)：
（1）把該整數(shù)的數(shù)字順序顛倒，求得該數(shù)的逆序數(shù)；
（2）將該整數(shù)和其對(duì)應(yīng)的逆序數(shù)相加；
（3）若相加結(jié)果不是回?cái)?shù)，則將結(jié)果作為新的整數(shù)，返回步驟（1）．
小林按照上述算法設(shè)計(jì)了驗(yàn)證回?cái)?shù)猜想的VB程序（猜想次數(shù)不超過10次），程序功能如下：在文本框Text1中輸入一個(gè)正整數(shù)，單擊Command1按鈕，獲取文本框Text1中的數(shù)，當(dāng)該數(shù)不是回?cái)?shù)時(shí)，采用回?cái)?shù)猜想的方法進(jìn)行驗(yàn)證，并在列表框List1中輸出每次驗(yàn)證的過程，若驗(yàn)證成功或驗(yàn)證次數(shù)超過10次，則停止驗(yàn)證，最后在列表框List1中輸出驗(yàn)證結(jié)果．程序運(yùn)行效果如圖所示．

實(shí)現(xiàn)上述功能的VB程序如下：
Private Sub Command1_Click（　?。?br />     Dim t As String,a As Long,bAs Long
     Dim count As Integer′count用于存儲(chǔ)回?cái)?shù)猜想的驗(yàn)證次數(shù)
     t=Text1．Text
     count=1
     Do While Check（t）=False And count＜=10
           a=Val（t）
           ___①____
           c=a+b
           List1．AddItem Str（a） &“+“& Str（b） &“=& Str（c）
           count=count+1

（1）程序代碼中自定義函數(shù)Turn的作用是

返回反轉(zhuǎn)后的數(shù)字（或返回 數(shù)字x的逆序數(shù)）

返回反轉(zhuǎn)后的數(shù)字（或返回 數(shù)字x的逆序數(shù)）

．
（2）請(qǐng)將橫線處的代碼補(bǔ)充完整

①b=Turn（t）

①b=Turn（t）

、

②mid（x,len（x）-i+1，1）

②mid（x,len（x）-i+1，1）

．