一个两位数的正整数,如果将其个位数与十位数对调所生成的数称为对调数,如28是82的对调数.现给定一个两

来源：学生作业帮编辑：灵鹊做题网作业帮分类：综合作业时间：2024/04/28 04:13:24

一个两位数的正整数,如果将其个位数与十位数对调所生成的数称为对调数,如28是82的对调数.现给定一个两
Dim a As Integer,b As Integer,c As Integer
Dim d As Integer,e As String,f As String
Private Sub Command1_Click()
f = InputBox("请输入一个两位数")
a = Val(f)
b = Val(Right(f,1)) * 10 + Val(Left(f,1))
c = 9
Do Until c >= 100
c = c + 1
e = Str(c)
d = Val(Right(e,1)) * 10 + Val(Left(e,1))
If a + b = c + d Then
Print a,b,c,d
End If
Loop
End Sub
为什么这个程序print输出为空?

没有满足你的表达式的数呗
看一下你的表达式错没有?
If a + b = c + d Then
再问：我觉得没错啊！？原题：一个两位数的正整数，如果将其个位数与十位数对调所生成的数称为对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的正整数，使这两个数之和等于它们各自的对调数之和，如56+32=65+23。
再答：看吧，你的表达式错了，该是 If a + c = b + d Then 或 if a+d=b+c then 才对
再问：不好意思再问一下我按照你说的做了 print能输出了但是输出的结果不对麻烦大侠半忙看看程序哪里又错了还有要求能输出所有的对调数谢谢！我现在输入56 输出的结果是 56 65 99 90 明显不对
再答：改正如下： Dim a As Integer, b As Integer, c As Integer Dim d As Integer, e As String, f As String Private Sub Command1_Click() f = InputBox("请输入一个两位数") a = Val(f) If a Mod 10 0 Then b = (a Mod 10) * 10 + Int(a / 10) End If c = 9 Do Until c >= 100 c = c + 1 If (c Mod 10) 0 Then d = (c Mod 10) * 10 + Int(c / 10) End If If a + d = b + c Then Print a, b, c, d End If Loop End Sub

一个两位数,将其个位数与十位数对调,所得的新数与原数的和（）一个两位数,其个位数与十位数之和为13,如果把个位数与十位数对调,新数比原来的数小9,求原来的两位数. 已知一个两位数,十位数比个位数大3,将十位数与个位数对调,所得的新数比原数大27,求这个两位数. 一个两位数,个位数比十位数小1,如果将个位数字与十位数字对调,所得的新数比原数大9,求这个两位数一个两位数,十位数比个位数小2,如果把这两个数的个位数与十位上数字对调,所得的新两位数与原两位数之和一个两位数,十位数是个位数的两倍,将两个数对调后得到的两位数比原来的数小36,求这个两位数! 合并同类项于移项.一个两位数,个位数是十位数上的数的2倍,如果把十位数上的数与个位数上的数对调,那么所得的两位数比原来的一个两位数,十位数与个位数的和为7,如果这个数加45,就为个位与十位数字对调后的数,求这个数? 一个两位数,个位数是十位数的2倍,如果把十位和个位的数对调,那么得到新两位数比原数的36,求原数. 一个两位数,个位数是十位数的4倍,如果把个位数字与十位数字对调,那么得到的新数比原数大54,求原数. 一个两位数,十位数是个位数的两倍,将两个数字对调后得到的两位数比原来的数小了36,求这个两位数.方程一个两位数,十位数是个位数的两倍,将两个数字对调后得到的两位数比原来的数小36,求这个两位数.