abc+cba=1333,其中a、b、c均为一位数,编写一个程序求出a、b、c分别代表什么数字.还需要编写一个程序？麻烦了？很重要的

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

这个不会了

a*100+b*10+c+c*100+b*10+a=1333a*(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,...