vb编程求解 算式“PEAR-ARA=PEA”中各字母所代表的数字（不同字母代表

vb编程求解 算式“PEAR-ARA=PEA”中各字母所代表的数字（不同字母代表

Private Sub Command1_Click()
    Dim P As Integer
    Dim E As Integer
    Dim A As Integer
    Dim R As Integer
    
    Dim x As Integer
    Dim y As Integer
    Dim z As Integer
    
    For P = 1 To 9
        For E = 0 To 9
            For A = 1 To 9
                For R = 0 To 9
                    x = 1000 * P + 100 * E + 10 * A + R
                    y = 100 * A + 10 * R + A
                    z = 100 * P + E * 10 + A
                    If P <> E And P <> A And P <> R And E <> A And E <> R And A <> R And x = y + z Then
                        Print "P=" & P & ",E=" & E & ",A=" & A & ",R=" & R
                    End If
                Next R
            Next A
        Next E
    Next P
End Sub