关于VB的一道题.很急!!!!!麻烦给个准确的答案.在线等

来源：百度知道 编辑：UC知道 时间：2024/05/05 01:17:57
一个两位正整数,如果将它的个位与十位对调,则产生另一个正整数,后者称为前者的对调数,现给定一个两位的正整数,编写程序找出另一个正整数,使得这两个两位正整数之和等于他们各自对调数之和.

例如 56+10=65+1,63+4=36+41等.

63+4=36+41应该是63+14=36+41吧

Private Sub Command1_Click()
Dim a, a1, b, s As Integer
a = InputBox("")
a1 = Val(StrReverse(a))
For s = 1 To 99
s1 = Val(StrReverse(s))
If a + s1 = a1 + s And s1 <> a1 Then
Print s1
End If
Next
End Sub

'''代码有点多,但是运行的时候会比楼上那个快 :-D
Private Sub Command1_Click()
Dim a As Integer
Dim x As Integer
Dim da As Integer
Dim dx As Integer
a = Val(Text1)
da = duishu(a)
For i = 10 To 99
x = i
dx = duishu(x)
If a + x = da + dx Then
MsgBox "你要找的数为" & x
End If
Next i

End Sub

Private Function duishu(ByVal n As Integer) As Integer
Dim g As Integer
Dim s As Integer
g = n Mod 10
s = (n - g) / 10
duishu = g * 10 + s
End Function

(10a+b)+(10c+d)=(10b+a)+(10d+c)
--> a-b=d-c (应满足c,d均>=0，且<=9）
添加text及command控件，t