初学者！输入一个两位正整数，找出这个数的对调数…感谢各位大侠

菜鸟求助！输入一个两位正整数，找出这个数的对调数……感谢各位大侠！
一个两位的正整数，如将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。如给定一个两位的正整数，请找到另一个两位的正整数，值得这两个整数之和等于他们各自的对调数之和，例如，12+32=21+23.编写程序，输入一个两位的正整数，把具有这种特征的每一对两位正整数都找出来。万分感谢！

[解决办法]
因为10x+y-(10y+x)=9x-9y=9(x-y),所以,只需两个整数的十位与个位数字的差相反即可.
[解决办法]
好难。
for i=1 to 9
for j=1 to 9
for k=1 to 9
for l=1 to 9
if (i*10+j)+(k*10+l)=(j*10+i)+(l*10+k) then
'记下ij,kl
end if
next l
next k
next j
next i
[解决办法]

VB code

Private Sub Command1_Click()    Dim a As String    Dim i As Long    a = InputBox("输入一个两位的正整数:")    If Val(a) <= 0 Or Val(a) >= 100 Then        MsgBox "输入不合法"        Exit Sub    End If                For i = 1 To 99        If Val(a) + i = Val(getDuiTiao(a)) + getDuiTiao(CStr(i)) Then            Debug.Print i        End If    NextEnd SubPrivate Function getDuiTiao(ByVal vStr As String) As String    Dim strTmp As String    strTmp = Right(CStr(vStr), 1) & Left(CStr(vStr), 1)    getDuiTiao = strTmpEnd Function