CLS
INPUT n$
l = LEN(n$)
IF l MOD 3 <> 0 THEN
   IF l MOD 3 = 1 THEN n$ = "00" + n$ ELSE n$ = "0" + n$
END IF
l = LEN(n$): k = l / 3
a1 = VAL(LEFT$(n$, k))
a2 = VAL(MID$(n$, k + 1, k))
a3 = VAL(RIGHT$(n$, k))
s = a1 + a3 - a2: PRINT s
OPEN "lyx.dat" FOR OUTPUT AS #1
WRITE #1, s
CLOSE
END
运行后,输入数据,在当前目录就会出现"lyx.dat"文件.