一个两位的正整数,如果将它的个位数字与十位数字对调,则产生另一个正整数,后者叫做前者的对调数.
若给定一个两位的正数,请找到一个两位的正整数,使得这两个整数之和等于他们各自的对调数之和.
例如: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]

我再研究看看
[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

不能这么写噢

会导致错误：类型不匹配


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

我知道我为什么通不过了

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

千万别！！！
你死了没人指导我了！
一定要勇敢的活下去啊！！！