python中的内置函数返回元素_Python内置函数________用来返回数值型序列中所有元素之和。...

5.

如果一个正整数从左到右读与从右到左读是一样的，就称它为回文式数(简称回数)，如图321。“回数猜想”的主要思想是，对任意正整数，若它不是回数，则按下列算法即可获得一个回数：

⑴把该整数的数字顺序颠倒，求得该数的逆序数；

⑵将该整数和其对应的逆序数相加；

⑶若相加结果不是回数，则将结果作为新的整数，返回步骤⑴。

小林按照上述算法，设计了验证回数猜想的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)

①

c = a + b

List1.AddItem Str(a) & " +" & Str(b) & " =" & Str(c)

count = count + 1

t = c

Loop

If Check(t) Then

List1.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 = ②

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) <> ③ Then Check = False mid(x,len(x)+1-i,1)

Next i

End Function