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

本题通过试探法求解。在输入一个两位数K后，通过g=int(k/10)和h=k-g*10 可以救出它的十位数和个位数，把这两个数对调，即可得到k的对调数。
以下是此题的【VB源代码】
Private Sub Form_Click()
    k = InputBox("请输入一个两位数")
    k = Val(k)
    g = Int(k / 10)
    h = k - g * 10
    m = h * 10 + g
    Print
    Print "输入的两位数是"; k
    Print
    For n = 0 To 99
        i = Int(n / 10)
        j = n - i * 10
        t = i * 10 + j
        s = j * 10 + i
        If k + n = m + s Then
            Print "   "; k; "+("; t; ")=("; s; ")+"; m
        End If
    Next n

End Sub


运行此VB源码后，点击窗体，输入两位数，如56，运行结果情况如下图所示：

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_7.11.html