CLS
DIM a(4)
a(1) = 2: a(2) = 3: a(3) = 5: a(4) = 7
FOR i1 = 1 TO 4
 FOR i2 = 1 TO 4
  FOR i3 = 1 TO 4
   FOR j1 = 1 TO 4
    FOR j2 = 1 TO 4
    c = a(i1) * 100 + a(i2) * 10 + a(i3)
    d = a(j1) * 10 + a(j2)
    e1 = a(j2) * c
    e2 = a(j1) * c
    e3 = c * d
    IF e1 > 1000 AND e2 > 1000 AND e3 > 10000 THEN
    e1$ = STR$(e1): e2$ = STR$(e2): e3$ = STR$(e3)
    l1 = LEN(e1$): l2 = LEN(e2$): l3 = LEN(e3$)

     FOR i = 1 TO l1
     b$ = MID$(e1$, i, 1)
      FOR j = 1 TO 4
      b1$ = STR$(a(j))
      IF b$ = b1$ THEN 10
      NEXT j
      GOTO 40
10 NEXT i

     FOR i = 1 TO l2
     b$ = MID$(e2$, i, 1)
      FOR j = 1 TO 4
      b1$ = STR$(a(j))
      IF b$ = b1$ THEN 20
      NEXT j
      GOTO 40
20 NEXT i

     FOR i = 1 TO l3
     b$ = MID$(e3$, i, 1)
      FOR j = 1 TO 4
      b1$ = STR$(a(j))
      IF b$ = b1$ THEN 30
      NEXT j
      GOTO 40
30 NEXT i
     PRINT c; "*"; d; "="; e3: END
     END IF
    
40 NEXT j2
NEXT j1
NEXT i3
NEXT i2
NEXT i1
END

这是我的程序，我认为没错，请各位大哥帮帮忙检查一下