如果一個正整數從＜imgsrc=“image6．png“style=“vertical-align：middle；border：0“/＞左到右讀與從右到左讀是一樣的，就稱它為回文式數（簡稱回數），如12321．“回數猜想”的主要思想是，對任意正整數，若它不是回數，則按下列算法即可獲得一個回數：
（1）把該整數的數字順序顛倒，求得該數的逆序數；
（2）將該整數和其對應的逆序數相加；
（3）若相加結果不是回數，則將結果作為新的整數，返回步驟（1）。
小林按照上述算法，設計了驗證回數猜想的VB程序（猜想次數不超過10次），程序功能如下：在文本框Text1中輸入一個正整數，單擊“驗證”按鈕（Command1），獲取文本框Text1中的數，當該數不是回數時，采用回數猜想的方法進行驗證，并在列表框List1中輸出每次驗證的過程，若驗證成功或驗證次數超過10次，則停止驗證，最后在列表框List1中輸出驗證結果。程序運行效果如圖所示。
實現上述功能的VB程序如下：
Private Sub Command1_Click（　　）
   Dim t As String,a As Long,b As Long
   Dim count As Integer'count用于存儲回數猜想的驗證次數
   t=Text1．Text
   count=1
   Do While Check（t）=False And count＜=10
     a=Val（t）

b=turn（t）

b=turn（t）

b=turn（t）
     c=a+b
    List1．AddItem Str（a） &“+“& Str（b） &“=“& Str（c）
     count=count+1
     t=c
   Loop
   If Check（t） Then
      Lis t1．AddItem“驗證成功！“
   Else
      List1．AddItem“10次內未驗證成功！“
   End If
End Sub
'自定義函數Turn
Function Turn（x As String） As Long
   Dim s As String,i As Integer
   s=““
   For i=Len（x） To 1 Step-1
      s=s & Mid（x,i,1）
   Next i
   Turn=

Val（s）

Val（s）

Val（s）
End Function
'自定義函數Check,檢查x是否為回文數
Function Check（x As String） As Boolean
   Dim i As Integer
   Check=True
   For i=1 To Len（x）\2 Step 1
      If Mid（x,i,1）＜＞

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

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

 Then Check=Falsemid（x,len（x）+1-i,1）
   Next i
End Function
（1）程 序代碼中，自定義函數Turn（x）的功能是求x的逆序數。
（2）請在橫線處填入合適代碼。