IT博客-Are you ready?http://www.cnitblog.com/glovinglili/Are you ready?zh-cnWed, 29 Apr 2026 07:14:15 GMTWed, 29 Apr 2026 07:14:15 GMT60simple problemhttp://www.cnitblog.com/glovinglili/archive/2005/05/19/167.htmlAre you ready?Are you ready?Thu, 19 May 2005 06:03:00 GMThttp://www.cnitblog.com/glovinglili/archive/2005/05/19/167.htmlhttp://www.cnitblog.com/glovinglili/comments/167.htmlhttp://www.cnitblog.com/glovinglili/archive/2005/05/19/167.html#Feedback0http://www.cnitblog.com/glovinglili/comments/commentRss/167.htmlhttp://www.cnitblog.com/glovinglili/services/trackbacks/167.htmlclear
a=0
b=0
@ 1,2 say "请输入 a:" get a
read
@ 2,2 say "请输入 b:" get b
read
if a>b
 max1=a
 min1=b
 @ 3,2 say ""
 ??"max=",max1,"min=",min1
else
 if a=b
  @ 3,2 say ""
  ??"a=b"
 else
  max1=b
  min1=a
  @ 3,2 say ""
  ??"max=",max1,"min=",min1
 endif
endif
 
修改后：
clear
a=0
b=0
@ 1,2 say "请输入 a:" get a
read
@ 2,2 say "请输入 b:" get b
read
@3,2 say ""
if a=b
 ??"a=b"
else
 if a>b
  max1=a
  min1=b
 else
  max1=b
  min1=a
 endif
 * ??"max=",max1,"min=",min1
 ??"max="+str(max1)+"min="+str(min1)
endif



Are you ready? 2005-05-19 14:03 发表评论
]]>study foxprohttp://www.cnitblog.com/glovinglili/archive/2005/05/19/166.htmlAre you ready?Are you ready?Thu, 19 May 2005 02:34:00 GMThttp://www.cnitblog.com/glovinglili/archive/2005/05/19/166.htmlhttp://www.cnitblog.com/glovinglili/comments/166.htmlhttp://www.cnitblog.com/glovinglili/archive/2005/05/19/166.html#Feedback0http://www.cnitblog.com/glovinglili/comments/commentRss/166.htmlhttp://www.cnitblog.com/glovinglili/services/trackbacks/166.html
FUNCTION  函数名
PARAMETERS  参数表
函数体
RETURN 返回值
ENDFUNC

example:

clear
strout()
function strout
?"Welcome to visual foxpro!"
return
endfunc
*没有参数时，“PARAMETERS  参数表”可以省略


clear
?addon(2,3)
function addon
parameters a,b
c=a+b
return c
endfunc  

过程的定义如下：
 PROCEDURE  过程名
 PARAMETERS 参数表
 过程程序主体
 ENDPROC

example:
clear
do stroutpro
procedure stroutpro
?"visual foxpro is useful"
endproc


clear
c=0
do addonpro with 4,3,c
?c
procedure addonpro
parameters a,b,d
d=a+b
endproc

*运行结果是7
*怎么会是7？难道VFP默认是按址传递参数的？
*这个问题到后面再解决！

**函数和过程的最大不同只在于：函数可以有返回值，过程没有返回值；另外它们的调用方式也有所不同！

Are you ready? 2005-05-19 10:34 发表评论
]]>