rki 183 迅雷:一个两位数，交换它的十位数和个位数上的数字后相减，所得的差是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写
Option Explicit

Private Sub Form_Load()
Dim i As Long
Dim jiaohuan As String
Dim jieguo As Long
Dim shuju As String
For i = 10 To 99
jiaohuan = Mid(i, 2, 1) & Mid(i, 1, 1)
If Abs(jiaohuan - i) = 18 Then
jieguo = jieguo + 1
shuju = shuju & Mid(i, 2, 1) & Mid(i, 1, 1) & "," & i & vbCrLf
End If
Next
MsgBox jieguo
Text1.Text = shuju
End Sub

10x+y-10y-x=18
1<=x,y<=9
======================
9x-9y=18
x-y=2

31,13,
42,24
53,35
64,46
75,57,
86,68
97,79

31-13=18
42-24=18
53-35=18
64-46=18
75-57=18
86-68=18
97-79=18

设m=10*a+b；则n=10*b+a；
由于m-n=9（a-b）；如果该值为18，则a-b=2；
即数为：31，42，53，64，75，86，97；
如果可以交换位置，则还有：13，24，35，46，57，68，79；

( 1 3 )( 2 0 )( 2 4 )( 3 1 )( 3 5 )( 4 2 )( 4 6 )( 5 3 )( 5 7 )( 6 4 )( 6 8 )( 7 5 )( 7 9 )( 8 6 )( 9 7 )

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