CLEAR
INPUT "起始数:" TO a
LOCAL i
i = 1
DO WHILE .T.
IF i > 20 && 发现 20 个就退出循环
EXIT
ENDIF
IF MOD(a,6) = 0 AND RIGHT(STR(a),1) = "8" && 如果被 6 整除且末位为 8
i = i + 1
ENDIF
a = a + 1
ENDDO