切分字符用midle ()函数，
循环用 for---next 
或do  ----while 

切分字符用mid,left,right函数，
循环用 for---next 
或do  ----while 

CLS
DIM a(4, 4), x(5, 2), n$(4)
FOR I = 1 TO 5: READ x(I, 1), x(I, 2): NEXT I
FOR I = 1 TO 4: READ n$(I): NEXT I
DATA 2,4,1,4,1,3,1,2,2,3,中,英,法,日
FOR a = 1 TO 2: a(1, x(a, 1)) = 1: a(1, x(a, 2)) = 1
FOR b = 3 TO 5: a(2, x(b, 1)) = 1: a(2, x(b, 2)) = 1
FOR c = 1 TO 5: a(3, x(c, 1)) = 1: a(3, x(c, 2)) = 1
FOR d = 3 TO 5: a(4, x(d, 1)) = 1: a(4, x(d, 2)) = 1
FOR I = 1 TO 4
  IF a(1, I) + a(3, I) = 2 THEN 10
     x = a(2, I) + a(3, I) + a(4, I)
     IF x = 3 THEN 10
        Y = x + a(1, I): m = m + (Y = 3)
        P = P + ABS(a(1, I) AND a(2, I))
        L = L + ABS(a(2, I) AND a(3, I))
        Q = Q + ABS(a(1, I) AND a(4, I))
NEXT I
IF m = -1 AND P = 1 AND L = 1 AND Q = 1 THEN
FOR I = 1 TO 4
  PRINT CHR$(64 + I); ":";
  FOR j = 1 TO 4
    IF a(I, j) = 1 THEN PRINT n$(j); SPC(1);
  NEXT j: NEXT I: PRINT
END IF
10 a(4, x(d, 1)) = 0: a(4, x(d, 2)) = 0: m = 0: P = 0: L = 0: Q = 0
NEXT d
a(3, x(c, 1)) = 0: a(3, x(c, 2)) = 0
NEXT c
a(2, x(b, 1)) = 0: a(2, x(b, 2)) = 0
NEXT b
a(1, x(a, 1)) = 0: a(1, x(a, 2)) = 0
NEXT a
END