FOR ... ENDFOR 命令示例

在示例 1 中，显示数字 1 到 10。

示例 2 使用内存变量作为初始值、最终值和 STEP 值，显示 customer 表 2 号到 10 号记录中所有记录号为偶数的记录。

* Example 1
CLEAR
FOR gnCount = 1 TO 10
    ? gnCount
ENDFOR

* Example 2
SET TALK OFF
CLOSE DATABASES
OPEN DATABASE (HOME( ) + 'samples\data\testdata')
USE customer && 打开 Customer 表
STORE 2 TO gnI && 初始值
STORE 10 TO gnJ && 最终值
STORE 2 TO K && 步长
FOR gnCount = gnI TO gnJ STEP K
    GOTO gnCount && 移动记录指针
    DISPLAY company && 显示公司名
ENDFOR