用VFP编写程序

2、clear

?"1到100之内的所有素数："

s=0

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))+space(2)

s=s+i

endif

endfor

?"它们的和是：",s

3、clear

?"1到1000之间所有奇数的和:"

s=0

for i=1 to 1000

if mod(i,2)<>0

s=s+i

endif

endfor

?s

4、command1的click代码：

if ALLTRIM(thisform.text1.value)="12345".and.alltrim(thisform.text2.value)="abcd"

messagebox("欢迎进入QQ世界")

else

messagebox("你的用户名或密码是错误的!")

endif

5、1）select * from STUDENT where 入学成绩>500

2)select 学号,姓名,专业信息 from STUDENT where substr(alltrim(姓名),1,2)="李"

3)count for 性别="女" to mm

6、CLEAR

SET UDFPARMS TO REFERENCE &&地址传递

DIME AAA(10)

FOR i= 1 TO 10

input "请输入第"+ALLTRIM(STR(i))+"个数：" to AAA(i)

NEXT

=MySort(AAA,10) &&调用冒泡排序函数.

i=1

?"从大到小排序结果为："

do while i<=10

??AAA(i) &&显示排完序后的数据.

i=i+1

enddo

RETURN

*冒泡排序函数.

*参数: pData: 传入数组, nCount:数组的大小.

function MySort

para pData, nCount

for i=1 to nCount

for j=nCount to i+1 step -1

if pData(j)>pData(j-1)

iTemp = pData[j-1]

pData(j-1) = pData[j]

pData(j) = iTemp

endif

endfor

endfor

endfunc

1、打开VFP,文件——新建——表单——新建立文件

lable1在属性中设置它的caption属性为"前项"

lable2在属性中设置它的caption属性为"后项"

lable3在属性中设置它的caption属性为"结果"

text1、text2、text3不用设置

optiongroup1的生成器:

command1在属性中设置它的caption属性为“计算”

command2在属性中设置它的caption属性为“退出”

3、接着将属性摆好；

4、接着双击command1，输入click代码：

a=val(alltrim(thisform.text1.value)) &&去除前后空格，并将字符型数据转换为数值型数据

b=val(alltrim(thisform.text2.value)) &&由于文本框默认的数据类型是字符型，所以要转换

if thisform.optiongroup1.value=1

thisform.text3.value=a+b

endif

if thisform.optiongroup1.value=2

thisform.text3.value=a-b

endif

if thisform.optiongroup1.value=3

thisform.text3.value=a*b

endif

if thisform.optiongroup1.value=4

thisform.text3.value=a/b

endif

command2代码：

thisform.release

5、运行，计算器就实现了。

Visual FoxPro简称是VFP，是Microsoft公司推出的数据库开发软件，用它来开发数据库，既简单又方便。

Visual FoxPro源于美国Fox Software公司推出的数据库产品FoxBase，在DOS上运行，与xBase系列相容。

FoxPro原来是FoxBase的加强版，最高版本曾出过2.6之后，Fox Software被微软收购，加以发展， 使其可以在 Windows 上运行， 并且更名为 Visual FoxPro。

扩展资料：

Visual FoxPro 6.0 的特点。

Visual FoxPro 6.0 能够得到广泛的使用，这是与其具有的强大的功能分不开的，Visual FoxPro 6.0 与其前期的版本相比，有更高的性能指标和鲜明的特点。

⑴ 提供多种可视化编程工具，最突出的是面向对象编程。

⑵ 在表的设计方面，增添了表的字段和控件直接结合的设置。

除此之外，Visual FoxPro 6.0 具有一系列的新特色，如：

① 成功解决了计算机2000年的问题。

② 增强了 Internet 技术和 WWW 数据库的设计。

③ ActiveX 和向导、生成器及控件等集成化工具。

④ 新引入了网络图象文件格式：gif 和 jpeg 。

参考资料来源：百度百科-visual foxpro

---