SET TALK OFFCLEARQM="" *CREATE CURSOR QWM (QWM C(4),ZF C(2))FOR I=1 TO 87 QM=IIF(I<10,'0'+STR(I,1),STR(I,2)) @ 0,62 SAY "第 "+STR(I,2)+" 区" FONT "宋体",12 ROW=3 COL=1 WM="" QMWM="" FOR K=1 TO 94 WM=IIF(K<10,'0'+STR(K,1),STR(K,2)) QMWM=QM+WM *INSERT INTO QWM (QWM,ZF) VALUES (QMWM,CHR(VAL(LEFT(QM,2))+160)+CHR(VAL(RIGHT(WM,2))+160)) @ ROW,COL SAY QMWM+" " +CHR(VAL(LEFT(QM,2))+160)+CHR(VAL(RIGHT(WM,2))+160) FONT "宋体",12 COL=COL+13 IF MOD(K,10)=0 ROW=ROW+1.5 COL=1 *=INKEY(0.4) ENDIF ENDFOR IF I!=87 CLEAR ENDIF QM=""ENDFORRETURN*********************PROCEDURE QWHZPARAMETERS QWIF LEN(QW)!=4 RETURN "不是区位码"ENDIFRETURN CHR(VAL(LEFT(QW,2))+160)+CHR(VAL(RIGHT(QW,2))+160)