VFP程序设计综合练习题(含答案)

1、1、有一张0.5mm厚足够大的纸,问对折多少次可以达到珠峰高度(8848.13m?h=0.5cs=0do while h<8848000h=h*2cs=cs+1enddo?"对折的次数为:",cs2、文本框Text1中输入的值与文本框Text2中输入的值进行交换。Form1的click事件3、在表单的标签上输出自然数1,2,3,4,5Form1的click事件For i=1 to 5next4、判断一个学生的计算机考试成绩x属于哪个分数段之间(0-59,60-69,70-79, 80-89,90-100Form1的click事件input to xdo casecas

2、e x<0 or x>100=messagebox("成绩在0-100之间,重新输入"case x<=59=messagebox("该生的计算机成绩"+str(x,3+"在0-59之间"case x<=69=messagebox("该生的计算机成绩"+str(x,3+"在60-69之间"case x<=79=messagebox("该生的计算机成绩"+str(x,3+"在70-79之间"case x<=89=messag

3、ebox("该生的计算机成绩"+str(x,3+"在80-89之间"otherwise=messagebox("该生的计算机成绩"+str(x,3+"在90-100之间"endcase5、找出zgqk.dbf中基本工资最高记录,输出其姓名和基本工资Form1的click事件Use zgqkmax=基本工资scanif 基本工资>maxmax=基本工资endifendscanloca for 基本工资=max?姓名,基本工资6、找出2010至2100之间所有闰年的年份Form1的click事件for y=201

4、0 to 2100if y%4=0 and y%100!=0 or y%400=0?y,"年是闰年"endifnext7、计算1+3+5+99,并将结果存入文本框Text1中Form1的click事件sum=0for i=1 to 99 step 2sum=sum+inextForm1的click事件input to aarea=3.14*(a/22?"边长为",a,"的正方形的内切圆面积为",area9、求t=n!Form1的click事件input to nt=1for i=1 to nt=t*inext?n,"的阶乘是

5、",t10、在zgqk.dbf 中按姓名查找职工情况,找到后显示其情况,否则显示“查无此人”。Form1的click事件Use zgqkloca for 姓名=xmif found(dispelse=messagebox("查无此人"endif11、求s=1/12+1/22+1/n2Form1的click事件input to ns=0for i=1 to ns=s+1/i2next?"1/12+1/22+1/n2的结果为",s12、假设表单与表文件zgqk.dbf 建立了数据环境,在其中按姓名查找职工情况,找到后将其情况在表单上显示,否则在信息

6、框中显示“查无此人”。Form1的click事件loca for 姓名=xmif found(this.refreshelse=messagebox("查无此人"endif13、求所有的3位正整数除以99的商和余数Form1的click事件for i=100 to 999sh=int(i/99ys=i%99为:"+allt(str(sh+"余数为:"+allt(str(ys+chr(10next14、输出101500之间的所有奇数及计算这些奇数的和。Form1的click事件sum=0for i=101 to 500 step 2?i,&quo

7、t;是奇数"sum=sum+inext?"101-500所有的奇数和是:",sum15、在Text1中输入一个3位自然数进行分解求和,其结果存入Text2中。Form1的click事件bw=int(x/100sw=int(x-bw*100/10gw=x%10sum=0for i=3 to 100 step 3sum=sum+inext?"1-100之间能被3整除的数之和为",sum 17、输出zgqk.dbf的基本工资大于600的所有记录Form1的click事件Use zgqklist for 基本工资>60018、求s=1!+2!+3!+4!+5!。Form1的click事件sum=0for i=1 t