若一個數(shù)（首位不為零）從左向右讀與從右向左讀都是一樣，我們就將其稱之為回文數(shù)。給定一個十進制數(shù)n,構(gòu)建一個回文數(shù)的過程如下：求n與n的逆序數(shù)（從右向左重新排列）之和，如果和為回文數(shù)則停止，否則將和視為n,繼續(xù)按前面過程求和，直到找到回文數(shù)。例如，對于十進制數(shù)78：
STEP1：78+87=165
STEP2：165+561=726
STEP3：726+627=1353
STEP4：1353+3531=4884
實現(xiàn)上述功能的VB程序如下，但加框處代碼有錯，請改正。
Private Function fanxu（a As String）As String
Dim i As Integer
For i=Len（a）To 1 Step-1
fanxu=fanxu&Mid（a,i,1）
Nexti
End Function
Private Function huiwen（b As String）As Boolean
Dim i As Integer,xAs String,y As String
huiwen=False
For i=1 To Len（b）
x=Mid（b,i,1）
y='①
If x＜＞y Then Exit For
Next i
If i＞Len（b）Then huiwen=True
End Function
Private Sub Command1_Click （　?。?br />Dims As Long,t As Long,i As Integer
List1．Clears=Val（Text1．Text）
Fori=1To 10
'②
List1．AddTtem Str（s）+″+″+fanxu（Str（s））+″=″+Str（t）
s=t
If huiwen（Trim（t））Then
Label1．Caption=″經(jīng)過″&Str（i）&″步得到回文數(shù)！″
Exit For
End If
Next i
Ifi＞10Then Label1．Caption=″經(jīng)過10步運算不能得到回文數(shù)?！?br />End Sub