Question

求帮忙做VB编程题 正在考试 急急急！！！任意一个正整数和其反序数相加，得到一个新的正整数，

【题目】编写程序，通过调用通用过程验证下列命题：任意一个正整数和其反序数相加，得到一个新的正整数，再对这个新整数重复上述步骤，最终一定可以得到一个回文数（例如，正整数351，其反序数为153，351 + 153= 504，504 + 405 = 909，909是回文数）。
【编程要求】
程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。
单击“开始查找”按钮，则找到的数显示在列表框中。
程序中至少要包含一个子过程。

Answer 1

Function getPalindromeNumber(ByVal Number As Long) As Long '获取回文数
Dim n1 As Long, n2 As Long, sum As Long
Do
n1 = Number
n2 = CLng(StrReverse(CStr(Number)))
sum = n1 + n2
Number = sum
Loop While sum <> CLng(StrReverse(CStr(sum)))
getPalindromeNumber = Number
End Function

追问

我最后交的版本 跟你的不一样