在呢！

CLS
FOR f = 1 TO 9
 FOR r = 0 TO 9
  FOR y = 0 TO 9
   FOR h = 1 TO 9
    FOR a = 0 TO 9
     FOR m = 0 TO 9
      IF 7 * (f * 100000 + r * 10000 + y * 1000 + h * 100 + a * 10 + m) = 6 * (h * 100000 + a * 10000 + m * 1000 + f * 100 + r * 10 + y) THEN
       PRINT "f="; f; "r="; r; "y="; y; "h="; h; "a="; a; "m="; m
      END IF
     NEXT
    NEXT
   NEXT
  NEXT
 NEXT
NEXT

如有其他人有跟简便的方法， 请速回帖！给予高分（因为WZC1996是我的同学，所以给高分）

调查发现，wzc1996和Bakerham是1个人。

根本不用这么麻烦！
CLS
OPTION BASE 1
DIM a(6)
FOR i = 102345 TO 857142
    s$ = LTRIM$(STR$(i))
    FOR j = 1 TO 6
        a(j) = VAL(MID$(s$, j, 1))
    NEXT j
    i2 = a(4) * 100000 + a(5) * 10000 + a(6) * 1000 + a(1) * 100 + a(2) * 10 + a(3)
    IF 7 * i = 6 * i2 THEN PRINT i: END
NEXT i
END

再来，最快的：
CLS
FOR i = 102348 TO 857142 STEP 6
    i2 = i / 6 * 7
    s1 = i \ 1000: s2 = i - s1 * 1000
    IF s2 * 1000 + s1 = i2 THEN PRINT i: END
NEXT i

只要1.5秒钟就出结果。与wzc1996的那个破程序相比快了很多吧！

[quote]调查发现，wzc1996和Bakerham是1个人。[/quote]
不！