对调数的VB程序该如何写？

来源：百度知道 编辑：UC知道 时间：2024/06/06 00:22:31
题目：一个两位的正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者较做前者的对调数。现给定一个两位的正数，请找到另一个两位的正整数，使得这两个两位正整数之和等于他们各自的对调数之和。例如，12+32=23+21。编写程序，把具有这种特征的一对两位正整数都找出来。
下面是其中的一种结果：
56+10=1+65 56+65=56+65 56+21=12+65 56+76=67+65 …………
请教各位电脑高手，该如何写程序？？

算法都出来了,由于输出太多,具体怎么输出,输出到哪自己改去
我这是直接输出到窗体上,要把窗体拉到足够大才能看到全部结果
重要的是算法,具体输出按照自己需要改,我认为输出到一个文件比较合适
Private Sub Command1_Click()
Dim a, b, c, d, sum, i, j As Integer
For i = 10 To 99
a = i Mod 10
b = Int(i / 10)
a = a * 10 + b
For j = 10 To 99
c = j Mod 10
d = Int(j / 10)
c = c * 10 + d
If i + j = c + a Then
Print i & "+" & j & "=" & c & "+" & a
End If
Next j
Next i
End Sub