【vfp开源代码栏目提醒】:网学会员鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“box.prg”一文,供大家参考学习
parameter y1,x1,y2,x2
private i,j
@y1,x1 say '*'
@Y2,X1 say '└'
@y1,x2 say '┐'
@y2,x2 say '┘'
i=x1+2
do while i<x2
@y1,i say '─'
@y2,i say '─'
i=i+2
enddo
i=y1+1
do while i<y2
@i,x1 say '│'
@i,x2 say '│'
i=i+1
enddo
return