17.回數猜想:如果一個正整數從左到右讀與從右到左讀是一樣的,就稱之為回文式數(簡稱回數),如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,bAs Long Dim count As Integer′count用于存儲回數猜想的驗證次數 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)程序代碼中自定義函數Turn的作用是