REPORT XXX.
DATA: WK_A TYPE N,
WK_B TYPE N,
WK_PRO TYPE CHAR2,
WK_S TYPE STRING.
WRITE /(50) '九九乘法表' CENTERED. “输出内容居中
WRITE /.
DO 9 TIMES.
WK_A = WK_A + 1.
CLEAR WK_B.
DO WK_A TIMES.
WK_B = WK_B + 1.
WK_PRO = WK_A * WK_B.
CONCATENATE WK_B '*' WK_A '=' WK_PRO INTO WK_S.
WRITE WK_S.
ENDDO.
WRITE: /.
ENDDO.
使用DO循环的时候,一定要设置退出循环的条件,避免死循环。
防止死循环
方式1:DO X