一个两位的正整数,如果将它的个位数字与十位数字对调,则产生另一个正整数,后者叫做前者的对调数.
若给定一个两位的正数,请找到一个两位的正整数,使得这两个整数之和等于他们各自的对调数之和.
例如:12+32=21+23.
编写程序,输入一个两位的正整数,把具有这种特征的每一对两位正整数都找出来.
以下是我自己写的程序
请教高手将其完善和简化
谢谢

Private Sub Form_Click()
Dim x As Integer, y As Integer, m As Integer, n As Integer, a As Integer, b As Integer
a = Val(InputBox("请输入一个两位正整数"))
x = a \ 10
y = a Mod 10
For m = 1 To 9
For n = 0 To 9
b = m * 10 + n
If a + b = (y * 10 + x) + (n * 10 + m) Then
Print a, b
End If
Next n
Next m
Print
End Sub

[url=http://wpa.]点击这里给我发消息[/url]

想优化还是很简单的，不过优化就不是程序问题了，是数学问题：
如果你已知的数是ab(10a+b)
要求的数是xy(10x+y)
很明显你的要求是：
(10a+b)+(10x+y)=(10b+a)+(10y+x)
化简：
a+x=b+y
如果想保证xy是个两位数就For x=1 to 9
不然就For x=0 to 9也行，看你的要求了，后面的你自己做吧

我再研究看看
[url=http://wpa.qq.com/msgrd?V=1&Uin=12471737&Site=www.bbs.bc-cn.net&Menu=yes]点击这里给我发消息[/url]

Option Explicit

Private Function getSwapNum(ByVal n As Integer) As Integer

getSwapNum = CInt(Right(CStr(n), 1) & Left(CStr(n), 1))

End Function

Private Sub Command1_Click()
Dim myNum As Integer
Dim i As Integer
myNum = CInt(InputBox("请输入您的整数："))

If myNum < 11 Or myNum > 99 Then
MsgBox "不是两位数！", vbOKOnly + vbCritical
Exit Sub
End If

For i = 11 To 99
If myNum + i = getSwapNum(myNum) + getSwapNum(i) Then Print myNum & "+" & i & "=" & getSwapNum(myNum) & "+" & getSwapNum(i)
Next
End Sub

你怎么就不明白我的意思呢?
Dim a As Integer, b As Integer
a = CInt(Left(Text1.Text, 1))
b = CInt(Right(Text1.Text, 1))
Dim m As Integer, n As Integer
For m = 1 To 10 - b
If m <> b Then
n = b + m - a
Print CStr(a) & CStr(b) & "+" & CStr(n) & CStr(m) & "=" & CStr(m) & CStr(n) & "+" & CStr(b) & CStr(a)
End If
Next

不能这么写噢

会导致错误：类型不匹配


你的意思我看明白了，谢谢啊！

我都调试通过了啊

我知道我为什么通不过了

原来我没有输入数字就单击窗体了，所以显示“类型不匹配”

死给你看……