企业管理

开发平台：

VFP

BOX-1.PRG：源码内容

							 i = 1
 @ x1, y1 SAY '┏'
 DO WHILE y2-y1>i*2
      @ x1, y1+i*2 SAY '━'
      i = i+1
 ENDD
 @ x1, y2 SAY '┓'
 i = x1+1
 DO WHILE i<x2
      @ i, y1 SAY '┃'
      @ i, y2 SAY '┃'
      i = i+1
 ENDD
 @ x2, y1 SAY '┗'
 i = 1
 DO WHILE y2-y1>i*2
      @ x2, y1+i*2 SAY '━'
      i = i+1
 ENDD
 @ x2, y2 SAY '┛'
 RETU
*

						