文档介绍：第4章程序设计初步
程序文件
程序文件建立与修改命令:
MAND <文件名>
程序的运行命令:
DO <文件名>
定位输入命令:
@<行,列> [SAY <表达式1>] [[GET <变量名>][DEFAULT <表达式2>]
WAIT命令:
WAIT [<信息文本>] [TO <内存变量>] [WINDOW [AT <行>,<列>]]
[NOWAIT] [CLEAR | NOCLEAR] [TIMEOUT <数值表达式>]
[例4-2] WAIT命令输出信息示例。
WAIT "请检查输入内容!" WINDOW
程序的控制结构
分支语句格式:
IF <逻辑表达式>
<语句序列1>
[ELSE
<语句序列2>]
ENDIF
例:
USE sb
LOCATE FOR NOT 主要设备
IF FOUND() && 若查到,.
DISPLAY 名称,价格
REPLACE 价格 WITH 价格*(1-)
DISPLAY 名称,价格
ELSE
WAIT "无此设备!" WINDOW
ENDIF
USE
RETURN
多分枝语句格式:
DO CASE
CASE <逻辑表达式1>
<语句序列1>
CSAE <逻辑表达式2>
<语句序列2>
…
CASE <逻辑表达式n>
<语句序列n>
[OTHERWISE
<语句序列n+1>]
ENDCASE
顺序结构
分支结构
循环结构
循环语句格式与示例
条件循环
步长循环
DO WHILE <逻辑表达式>
<语句序列>
ENDDO
FOR <内存变量>=<数值表达式1> TO <数值表达式2> [STEP <数值表达式3>]
<语句序列>
ENDFOR NEXT
* e4-
USE sb
DO WHILE NOT EOF( )
IF 价格>10000
?名称
ENDIF
SKIP
ENDDO
USE
* e4-
s=0 && s为累加器,初值为0
FOR i=1 TO 100 && i为计数器,初值为1
s=s+i && 累加
NEXT
?"s=",s
扫描循环
其他
SCAN [<范围>] [FOR< 逻辑表达式1>] [WHILE< 逻辑表达式2>]
<语句序列>
ENDSCAN
循环辅助语句 LOOP语句
EXIT语句
多重循环
* e4-
USE sb
SCAN FOR 价格>10000
?名称
ENDSCAN
USE
多模块程序
类型
格式
调用命令
子程序
[ PARAMETERS <参数表>]
<命令序列>
[RETURN]
DO <程序名1> [WITH <参数表>] [IN <程序名2>]
自定义函数主要在表达式中调用
过程
PROCEDURE <过程名>
[PARAMETERS <参数表>]
<命令序列>
[RETURN]
自定义函数
[FUNCTION <函数名>]
[PARAMETERS <参数表>]
<语句序列>
[RETURN <表达式>]
变量的作用域
建立公共变量命令格式: PUBLIC <内存变量表