来自杜永昌的问题
【一个两位数,交换它的十位数和个位数上的数字后相减,所得的差是18,像这样的两位数算式,你能写几个?】
一个两位数,交换它的十位数和个位数上的数字后相减,所得的差是18,像这样的两位数算式,你能写几个?
1回答
2020-06-07 08:51
【一个两位数,交换它的十位数和个位数上的数字后相减,所得的差是18,像这样的两位数算式,你能写几个?】
一个两位数,交换它的十位数和个位数上的数字后相减,所得的差是18,像这样的两位数算式,你能写几个?
31,13
02,20
42,24
13,31
53,35
24,42
64,46
35,53
75,57
46,64
86,68
57,75
97,79
68,86
79,97
用VB写
OptionExplicit
PrivateSubForm_Load()
DimiAsLong
DimjiaohuanAsString
DimjieguoAsLong
DimshujuAsString
Fori=10To99
jiaohuan=Mid(i,2,1)&Mid(i,1,1)
IfAbs(jiaohuan-i)=18Then
jieguo=jieguo+1
shuju=shuju&Mid(i,2,1)&Mid(i,1,1)&","&i&vbCrLf
EndIf
Next
MsgBoxjieguo
Text1.Text=shuju
EndSub