如果一個正整數(shù)從左到右讀與從右到左讀是一樣的，就稱它為回文式數(shù)（簡稱回?cái)?shù)），如12321．“回?cái)?shù)猜想”的主要思想是，對任意正整數(shù)，若它不是回?cái)?shù)，則按下列算法即可獲得一個回?cái)?shù)：
（1）把該整數(shù)的數(shù)字順序顛倒，求得該數(shù)的逆序數(shù)；
（2）將該整數(shù)和其對應(yīng)的逆序數(shù)相加；
（3）若相加結(jié)果不是回?cái)?shù)，則將結(jié)果作為新的整數(shù)，返回步驟（1）．
小林按照上述算法，設(shè)計(jì)了驗(yàn)證回?cái)?shù)猜想的VB程序（猜想次數(shù)不超過10次），程序功能如下：在文本框Text1中輸入一個正整數(shù)，單擊“驗(yàn)證”按鈕（Command1），獲取文本框Text1中的數(shù)，當(dāng)該數(shù)不是回?cái)?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 （　　）
Dim t As String,a As Long,b As Long
Dim count As Integer'count用于存儲回?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
t=Str（c）
Loop
If Check（t） Then
List1．AddItem“驗(yàn)證成功！“
Else
List1．AddItem“10次內(nèi)未驗(yàn)證成功！“
End If
End Sub
'自定義函數(shù)Turn
Function Turn（x As String） As Long
Dim s As String,i As Integer
s=““
For i=Len（x） To 1Step-1
s=s & Mid（x,i,1）
Next i
Turn=Val（s）
End Function
'自定義函數(shù)Check,檢查x是否為回文數(shù)
Function Check（x As String） As Boolean
Dim i As Integer
Check=True
For i=1To Len（x）\2Step 1
If Mid（x,i,1）＜＞

②

②

Then Check=False
Next i
End Function
（1）程序代碼中，自定義函數(shù)Turn（x）的功能是

求x的逆序數(shù)

求x的逆序數(shù)

．
（2）請?jiān)跈M線處填入合適代碼．