Visual FoxPro程序设计

来源：百度知道 编辑：UC知道 时间：2024/06/17 08:09:45
一、 编写如下2个子程序，分别取程序名sub1,sub2。子程序要求：
(1) 从键盘上输入十个数，在屏幕上输出这十个数中的最大数和最小数
(2) 编写程序输出以下图形

1
2 2
3 3 3
4 4 4 4
3 3 3
2 2
1
二、编写一菜单主程序（程序名 main.prg），用来调用上面的几个子程序sub1,sub2。菜单要求：可以任意次显示，有选择容错功能和退出机制。

【程序清单】

唉,发表了些意见,变到楼下了,呵呵!真没想到,还有这种人,呵呵!我可以把程序修改一下,对于"显示图形"的程序,你可以输入任何数,都可以按要求显示,不过现在不行,有人的行为让我很不齿,剽窃了我的程序!!就是三楼的(原先是四楼)
如果需要,你把问题补充一下就行了或留个邮箱号,我直接把程序打包给你.
请三楼的同志做一下,你要是能把我上面说的功能加进去,我次回答就算你的!分数都归你!!!
已经很简单了,你行吗???

这几天忙,终于给你做完了,呵呵!程序如下:

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 colo 9