Option Explicit
Private Sub Form_Load()
Me.AutoRedraw = True
Dim p As Integer, e As Integer, a As Integer, r As Integer
Dim pear As Integer, ara As Integer, pea As Integer, n As Integer
n = 0
For p = 0 To 9
For e = 0 To 9
For a = 0 To 9
For r = 0 To 9
pear = ((p * 10 + e) * 10 + a) * 10 + r
ara = (a * 10 + r) * 10 + a
pea = (p * 10 + e) * 10 + a
If p <> e And p <> a And p <> r And e <> a And e <> r And a <> r Then
If pear - ara = pea Then
Print "P=" & p & ",E=" & e & ",A=" & a & ",R=" & r
End If
End If
Next r
Next a
Next e
Next p
End Sub
P=1,E=0,A=9,R=8
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024