九九乘法口诀表的输出，带分隔线

最新推荐文章于 2024-07-15 18:03:03 发布

chuzhaowei

最新推荐文章于 2024-07-15 18:03:03 发布

阅读量807

点赞数

分类专栏： SAP-ABAP

本文链接：https://blog.csdn.net/chuzhaowei/article/details/6142603

版权

SAP-ABAP 专栏收录该内容

16 篇文章 0 订阅

订阅专栏

data: ii type i value 1,
      jj type i value 1,
      lineLen type i,
      lineWidth type i,
      multiply type i.
while ii <= 9.
lineLen = ii * 14 + ii.
WRITE AT /(lineLen) SY-ULINE.
while jj <= ii.
    multiply = ii * jj.
    lineWidth = jj * 15.
    if ( jj = 1 ).
      write /(1) sy-vline no-gap.
    endif.
    write: (2) jj, '*', (2) ii, '=', (2) multiply COLOR COL_KEY, ' ', at lineWidth sy-vline.
    jj = jj + 1.
endwhile.
ii = ii + 1.
jj = 1.
endwhile.
WRITE AT (lineLen) SY-ULINE.