行业应用

开发平台：

VFP

BOX_1.PRG：源码内容

							i=1
@ x1,y1 say '┏'
do whil y2-y1>i*2
@ x1,y1+i*2 say '━'
i=i+1
enddo
@ x1,y2 say '┓'
i=x1+1
  do whil i<x2
     @ i,y1 say '┃'
     @ i,y2 say '┃'
      i=i+1
  enddo
@ x2,y1 say '┗'
i=1
do whil y2-y1>i*2
@ x2,y1+i*2 say '━'
i=i+1
enddo
@ x2,y2 say '┛'
retu

						