A、C是多位数的首位,不能为0,B、D是可以为0的,循环要从0开始.语法上就不帮你看了.
结果是
A=1
B=0
C=9
D=8
Private Sub Form_load()
Dim A,B,C,D As Integer
For A = 1 To 9
For B = 0 To 9
For C = 1 To 9
For D = 0 To 9
If (1000 * A + 100 * B + 10 * C + D) - (100 * C + 10 * D + C) = 100 * A + 10 * B + C Then
Print "A=" ; A
Print "B=" ; B
Print "C=" ; C
Print "D=" ; D
End If
Next D
Next C
Next B
Next A
End Su