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

本站文章搜索:

<< 上一篇下一篇 >>

搜索

Tags列表

扫我手机登录

赞助商链接