VFP是一个功能强大的交互式数据管理工具,而且可以创建应用程序来充分发挥其完善的功能。掌握 Visual FoxPro
的面向对象程序设计技术以及事件驱动模型,可以最大限度地提高程序设计的效率。
VFP还提供了一个集成化的系统开发环境,它不仅支持过程式编程技术,而且在语言方面作了强大的扩充,支持面向对象可视化编程技术,并拥有功能强大的可视化程序设计工具。目前,VFP是用户收集信息、查询数据、旅高郑创建集成数据库系统、进行实用系念逗统开发较为理想的工具软件。
VFP从5.0到6.0,VFP已经升级到版本9,并且拆颂完全支持.NET技术。
参考:1)MSDN6.0的Visual FoxPro 文档
2)http://baike.baidu.com/link?url=CrTKPQFwNgIhQAQ5KNSTU3F8nSAFN4_LERFNZMpXxvdAkOXs96OsMI70ryBHLMvjrTAgLI6emV56xDuJCLz1Q_
input "亮裤物输入一敬液个整数:" to nif n%2=0
?"偶纯歼数"
else
?"奇数"
endif
return
1、clear
s=0
m=1
for i=1 to 10
input "请输入一个数:" to a
if a/2=int(a/2)
s=s+a
else
m=m*a
endif
endfor
?"奇数的积是毁余:",m
?"偶数穗脊的和是:",s
2、
clear
accept "请输入一串字符:" to x
store 0 to dyw,xyw,kg,sz,qt
m=len(x)
for i=1 to m
x1=substr(x,i,1)
k=asc(x1)
do case
case k=32
kg=kg+1
case k>=48 and k<=57
sz=sz+1
case k>=65 and k<=90
dyw=dyw+1
case k>=97 and k<=122
xyw=xyw+1
other
qt=qt+1
endcase
endfor
?"其中空格有: "+alltrim(str(kg))+"个"
?"大写字母有: "+alltrim(str(dyw))+"个"
?"小写字母有: "+alltrim(str(xyw))+"个猜余渗"
?"数字有: "+alltrim(str(sz))+"个"
?"其它字符有: "+alltrim(str(qt))+"个"
3、
clear
??"1到100之间的素数为:"
for i=2 to 100
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
??alltrim(str(i))+" "
endif
endfor
4、
clear
for i=5 to 1 step -1
??space(5-i)
for j=2*i-1 to 1 step -1
??"*"
endfor
?
endfor
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)