用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(thisformtext1value)="12345"andalltrim(thisformtext2value)="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、

accept "输入学生姓名" to ls

sele 学生

loca for 姓名=ls

if found()

=messagebox("存在",48,"")

else

=messagebox("不存在",48,"")

enif

2、do while pd="n"

1的东西

wait "是否继续y or n" to pd

enddo

3、在存在下面写

do case

case 分数<300

=messagebox("bu ",48,"")

case 分数>=300 and 分数<400

=messagebox("hege ",48,"")

case 分数>400

=messagebox("youxiu ",48,"")

endcase

你的意思是讲结束VFP程序吧？

如果你是在VFP环境下，按“Esc”就可以中断程序运行；

如果是已经编译的，你在结束语句中未使用“clear

events”语句的话，提示“不能退出VFP”，你可以按“Ctrl+Alt+Del”组合键，中止你编译的程序进程，然后重新修改程序，在结束的地方加入“clear

events”语句。

以上就是关于用VFP编写程序全部的内容，包括:用VFP编写程序、VFP 编写程序、怎样删除VFP程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！