如果一个正整数从＜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）请在横线处填入合适代码。