17.回?cái)?shù)猜想:如果一個(gè)正整數(shù)從左到右讀與從右到左讀是一樣的,就稱(chēng)之為回文式數(shù)(簡(jiǎn)稱(chēng)回?cái)?shù)),如12321.“回?cái)?shù)猜想”的主要思想是對(duì)任意正整數(shù),若它不是回?cái)?shù),則按下列算法可獲得一個(gè)回?cái)?shù): (1)把該整數(shù)的數(shù)字順序顛倒,求得該數(shù)的逆序數(shù); (2)將該整數(shù)和其對(duì)應(yīng)的逆序數(shù)相加; (3)若相加結(jié)果不是回?cái)?shù),則將結(jié)果作為新的整數(shù),返回步驟(1). 小林按照上述算法設(shè)計(jì)了驗(yàn)證回?cái)?shù)猜想的VB程序(猜想次數(shù)不超過(guò)10次),程序功能如下:在文本框Text1中輸入一個(gè)正整數(shù),單擊Command1按鈕,獲取文本框Text1中的數(shù),當(dāng)該數(shù)不是回?cái)?shù)時(shí),采用回?cái)?shù)猜想的方法進(jìn)行驗(yàn)證,并在列表框List1中輸出每次驗(yàn)證的過(guò)程,若驗(yàn)證成功或驗(yàn)證次數(shù)超過(guò)10次,則停止驗(yàn)證,最后在列表框List1中輸出驗(yàn)證結(jié)果.程序運(yùn)行效果如圖所示. 實(shí)現(xiàn)上述功能的VB程序如下: Private Sub Command1_Click( ?。?br /> Dim t As String,a As Long,bAs Long Dim count As Integer′count用于存儲(chǔ)回?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 (1)程序代碼中自定義函數(shù)Turn的作用是