问题标题：
编写程序，把具有这种特征的一对两位正整数都找出来。一个两位的正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。现给定一个两位的
问题描述：
编写程序，把具有这种特征的一对两位正整数都找出来。
一个两位的正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。现给定一个两位的正整数，请找到另一个两位的正整数，使得这两位正整数之和等于它们各自的对调数之和。例如，12+32=44=23+21。要用两个text,一个按钮控件。
林晓娜回答：
假设在Text1中输入给定的正整数，在Text2中输出结果
在按钮事件中的代码就是：
dimaasinteger,basinteger,xasinteger,yasinteger
dimiasinteger
dimFindasboolean
find=false
a=val(text1.text)mod10
b=val(text1.text)10
fori=11to99
x=imod10:y=i10
ifa*10+b+x*10+y=b*10+a+y*10+xthen
text2.text=i
find=true
exitfor
endif
next
iffind=falsethenmsgbox"没有这样的数"
其实可以用一个幽默点的办法：
a*10+b+x*10+y=b*10+a+y*10+x
即a*9+x*9=b*9+y*9
即a+x=b+y
dimaasinteger,basinteger
dimiasinteger,jasinteger
dimFindasboolean
find=false
a=val(text1.text)mod10
b=val(text1.text)10
fori=1to9
forj=1to9
ifa+i=b+jthen
text2.text=i*10+j
find=true
exitfor
endif
next
next
iffind=falsethenmsgbox"没有这样的数"
刘韬回答：
两个text,将text2设为可接收多行文本，因为答案不唯一。
PrivateSubCommand1_Click()
Dimi,a,b,cAsInteger
IfVal(Text1.Text)>9AndVal(Text1.Text)
点击显示
其它推荐
热门其它推荐