abc+cba=1333,其中a、b、c均为一位数，编写一个程序求出a、b、c分别代表什么数字。

a*100+b*10+c+c*100+b*10+a=1333
a*(100+1)+c*(100+1)+20*b=1333
(a+c)*101+20b=1333
(a+c)*101+101b - 81b=1333
(a+b+c)*101=1333+81b
(a+b+c)*101=101*14-81+81b
(a+b+c)/14=14*(1+b)

但是a+c=3或是13 及a+b+c要能整除14, a+c=3不成立
a+c=13, 所以 b =1
a+c = 13的组合有7+6, 8+5及9+4

所以会是914+419=1333
815+518=1333
716+617=1333

Option Explicit
Private Sub Command1_Click()
'abc + cba = 1333
Dim a As Long, b As Long, c As Long
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
If a <> b And a <> c And b <> c Then
If CLng(a & b & c) + CLng(c & b & a) = 1333 Then
Print a; b; c, a & b & c & " + " & c & b & a & " = " & CLng(a & b & c) + CLng(c & b & a)
End If
End If
Next
Next
Next

End Sub

这个不会了