CLS
INPUT n$
DIM a$(4)
1 FOR i=1 TO 4:a$(i)=MID$(n$,i,1):NEXT i
FOR i=1 TO 3:FOR j=i+1 TO 4
    IF a$(i)<a$(j) THEN SWAP a$(i),a$(j)
NEXT j,i
a1=VAL(a$(1)+a$(2)+a$(3)+a$(4))
a2=VAL(a$(4)+a$(3)+a$(2)+a$(1))
PRINT a1;"-";a2;"=";a1-a2
IF a1-a2=6174 THEN END
n$=LTRIM$(STR$(a1-a2)):GOTO 1
END

A.  最大的数:把四个数字倒序排列
B.  最小的数:把四个数字顺序排列
C.  它们的差:很简单,四位数:
  1.(最大的数字-最小的数字)
  2.(次大的数字-次小的数字)-1
  3.(次小的数字-次大的数字)+9
  4.(最小的数字-最大的数字)

.....
貌似很简单 ..哎怎么都那么简单呢。.

谢谢Matodied和moz