求帮忙。。对调数。。（菜鸟呼叫高手） - 编程论坛

#2

笑笑苍天2013-11-13 23:27

补充下。。。
Private Sub Command1_Click()
Dim a, b, c, d, sum, i, j As Integer
For i = 11 To 29
a = i Mod 10
b = Int(i / 10)
a = a * 10 + b
For j = 11 To 29
c = j Mod 10
d = Int(j / 10)
c = c * 10 + d
If i + j = c + a Then
Print i & "+" & j & "=" & c & "+" & a
End If
Next j
Next i
End Sub
就是11to29时怎么把20排除在外。。

#3

lowxiong2013-11-14 09:55

第一次听说对调数，查了下知道是怎么回事，只需要判断对调数大于10即可(因为个位数为0的对调数必定小于10），整个程序的代码如下：
  Dim i As Integer, j As Integer, m As Integer, n As Integer
  For i = 11 To 29
    For j = 11 To 29
      If i <> j Then
        m = i \ 10 + (i Mod 10) * 10
        n = j \ 10 + (j Mod 10) * 10         '产生两个对调数
        If m > 10 And n > 10 And i + j = m + n Then Print i; "+"; j; "="; m; "+"; n
      End If
    Next
  Next

#4

vbvcr512013-11-14 17:57

学习