【程序】 SET TALK OFF CLEAR STORE 10 TO A STORE 20 TO B SET UDFPARMS TO REFERENCE DO SWAP W1TU A,(B) A,B PROCEDURE SWAP PARAMETERS X1,X2 TEMP=X1 X1=X2 X2=TEMP ENDPROC SET TALK ON RETURN |
【程序说明】 如果在命令窗口输入并执行命令“LIST名称”后在主窗口中显示: 记录号 名称 1 电视机 2 计算机 3 电话线 4 电冰箱 5 电 线 假定名称字段为字符型、宽度为6。 【程序】 GO 2 SCAN NEXT 4 FOR LEFT (名称,2)=“电” IF RIGHT (名称,2)=“线” LOOP ENDIF 名称 ENDSCAN |
【程序说明】 使用如下表的数据:
|