Question

Visual FoxPro程序设计

一、 编写如下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。菜单要求：可以任意次显示，有选择容错功能和退出机制。

【程序清单】

Answer 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 colo 9
define bar 1 of _hg2 prompt "退出系统"
on selection bar 1 of _hg2 do gohome
acti menu _msysmenu
enddo
retu

sub1.prg 选大小程序
clea
dime x(10)
y=0
store 0 to x
j=10
for i=1 to j
@4,4 say '输入10个数字:' get x(i)
read
@4,30 say i
@i+6,4 say x(i)
endfor

y=x(1)
for i=2 to 10
if y<x(i)
y=x(i)
endif
endfor
@18,4 say '最大数:'
@18,20 say y

y=x(1)
for i=2 to 10
if y>x(i)
y=x(i)
endif
endfor
@20,4 say '最小数:'
@20,20 say y

sub2.prg 显示图形程序

clea
s=4
x=1
j=1
m=1
n=1
do while x<=s+s-1
if x<=s
for i=1 to j
@m,n say j
n=n+11
endfor
x=x+1
m=m+1
j=j+1
n=1
else
if x=s+1
j=1
endif
n=0
for i=s to j+1 step -1
@m,n say int(s-j)
n=n+11
endfor
x=x+1
m=m+1
j=j+1
n=1
endif
enddo

容错程序:err.prg
clea
@8,20 say '程序错误,强制退出系统!'
retu

退出程序:gohome.prg
set sysmenu to defa
set colo to
on key
on error
clea
close all
clea all
set device to scree
set esca on
cancel

可以了,呵呵!你可以调用一下试试.

楼下的(WSTTG)!你不觉得卑鄙吗???
剽窃别人的程序,连一点改动都没有??真是无耻!
这里是给别人提供帮助的地方,你这样做会使别人得不到应有的帮助,就为了那200分吗?可怜的人...

Answer 2

ss

Answer 3

嗯，VF多年没用了，原理知道，命令忘了，要是VB还可以帮你哦。

Answer 4

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
define bar 1 of _hg2 prompt "退出系统"
on selection bar 1 of _hg2 do gohome
acti menu _msysmenu
enddo
retu

sub1.prg 选大小程序
clea
dime x(10)
y=0
store 0 to x
j=10
for i=1 to j
@4,4 say '输入10个数字:' get x(i)
read
@4,30 say i
@i+6,4 say x(i)
endfor

y=x(1)
for i=2 to 10
if y<x(i)
y=x(i)
endif
endfor
@18,4 say '最大数:'
@18,20 say y

y=x(1)
for i=2 to 10
if y>x(i)
y=x(i)
endif
endfor
@20,4 say '最小数:'
@20,20 say y

sub2.prg 显示图形程序

clea
s=4
x=1
j=1
m=1
n=1
do while x<=s+s-1
if x<=s
for i=1 to j
@m,n say j
n=n+11
endfor
x=x+1
m=m+1
j=j+1
n=1
else
if x=s+1
j=1
endif
n=0
for i=s to j+1 step -1
@m,n say int(s-j)
n=n+11
endfor
x=x+1
m=m+1
j=j+1
n=1
endif
enddo

容错程序:err.prg
clea
@8,20 say '程序错误,强制退出系统!'
retu

退出程序:gohome.prg
set sysmenu to defa
set colo to
on key
on error
clea
close all
clea all
set device to scree
set esca on
cancel

Answer 5

很高兴为您解答，希望能够对您起到帮助！
再这里祝您；身体健康，万事如意，福如东海，寿比南山！
娶个好老婆，找个好工作，出门就拣钱！！