VF程序 初始化功能怎么实现

像你这样的问题能有人回答你就已经很不错了饿，
在怎么说也比那些不理你的人强百倍了，尽管答案不是正确的。
重在参与是把~

第二题是不是这个图形啊?
..........1......
.........2 2.....
........3 3 3....
.......4 4 4 4...
........3 3 3....
.........2 2.....
..........1......
程序是这样的:

main.prg

set talk off
set exac off
clea all
close all
clea
on readerror do err
set colo to
set sysmenu to
set sysmenu automatic
do while .t.
define pad _ppp1 of _msysmenu prompt "数据计算"
define pad _ppp2 of _msysmenu prompt "退出系统"
on pad _ppp1 of _msysmenu activate popup _hg1
on pad _ppp2 of _msysmenu activate popup _hg2
define popup _hg1 margin relative shadow colo 8
define bar 1 of _hg1 prompt "选大小"
define bar 2 of _hg1 prompt "显示图形"
on selection bar 1 of _hg1 do sub1
on selection bar 2 of _hg1 do sub2
define popup _hg2 margin relative shadow