Question

求VB大佬帮忙解决一下！！谢谢

回数猜想： 任取一个数，再把它倒过来，并把这两个数相加，然后把这个和数再倒过来，与原和数相加，重复此过程，一定能获得一个回数。 例： 68+86= 154 ，154+451= 605 ， 605+506=1111 (回数) 。编程：输入任意整数，按上述方法产生一个回数，规定最多计算7步，看是否能得到一个回数。

Answer 1

Private Sub Command1_Click()

Randomize

Dim a As Long, b As Long, n As Integer

a = Rnd * 1000 + 1

Do While True

b = rev(a)

If b = a Or n = 7 Then Exit Do

Print a; "+"; b; "="; a + b

a = a + b

n = n + 1

Loop

Print

End Sub

Function rev(ByVal x)

While x > 0

y = y * 10 + x Mod 10

x = x \ 10

Wend

rev = y

End Function