Question

VBA计算出穷举字母减式还原

VBA计算出穷举字母减式还原

Answer 1

Sub s()
    For a = 1 To 9
    For e = 0 To 9
    If a <> e Then
    For p = 1 To 9
    If p <> a And p <> e Then
    For r = 0 To 9
    If r <> a And r <> e And r <> p Then
    x = p * 1000 + e * 100 + a * 10 + r
    y = a * 101 + r * 10
    Z = p * 100 + e * 10 + a
    If x - y = Z Then
    Debug.Print x; "-"; y; "="; Z
    End If: End If
    Next: End If
    Next: End If
    Next: Next
End Sub

追问

果然高手啊