用VFP编写程序

?"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)use 订货单

go 3

list next 3 订单号，客户号

(2)repl all 商品种数 with 商品种数*2

list

repl all 商品种数 with 商品种数/2

(3) append blank

(4)go top

dele

go bottom

dele

list

(5) locate for 客户号="D014"

disp

2.(1)use 库存商品

aver 售价 for 商品名=“电冰箱”

(2)CALC ALL MAX(售价),MIN(售价) TO A,B

(3)index on 商品名 to aa

TOTAL ON 商品名 TO hz FIELD 商品号,商品名,库存量

建：

点label按钮，建label1

的

caption为

QQ登陆

label2

的

caption为

密码

点combo按钮，建combo1

点text按钮，建立text1

点command按钮，建

command1

的

caption为

登陆

command2

的

caption为

退出

双击command1

中输入代码:

do

case

case

thisform.text1.value="user"

.and.thisform.text2.value="123"

i=messatextgebox("欢迎光临",48)

thisform.release

otherwise

i=messagebox("错了",32)

thisform.release

endcase

双击command2

中输入代码:

thisform.release

点击运行！OK啦！

这可是我手写的呵，希望采纳！