VFP程序设计综合练习题含答案.docx
- 文档编号:7985569
- 上传时间:2023-05-12
- 格式:DOCX
- 页数:6
- 大小:16.75KB
VFP程序设计综合练习题含答案.docx
《VFP程序设计综合练习题含答案.docx》由会员分享,可在线阅读,更多相关《VFP程序设计综合练习题含答案.docx(6页珍藏版)》请在冰点文库上搜索。
VFP程序设计综合练习题含答案
1、有一张0.5mm厚足够大的纸,问对折多少次可以达到珠峰高度(8848.13m?
h=0.5
cs=0
dowhileh<8848000
h=h*2
cs=cs+1
enddo
?
"对折的次数为:
",cs
2、文本框Text1中输入的值与文本框Text2中输入的值进行交换。
Form1的click事件
a=this.text1.value
this.text1.value=this.text2.value
this.text2.value=a
3、在表单的标签上输出自然数1,2,3,4,5
Form1的click事件
This.label1.caption=””
Fori=1to5
This.label1.caption=this.label1.caption+str(I,1
next
4、判断一个学生的计算机考试成绩x属于哪个分数段之间(0-59,60-69,70-79,80-89,90-100
Form1的click事件
inputtox
docase
casex<0orx>100
=messagebox("成绩在0-100之间,重新输入"
casex<=59
=messagebox("该生的计算机成绩"+str(x,3+"在0-59之间"
casex<=69
=messagebox("该生的计算机成绩"+str(x,3+"在60-69之间"
casex<=79
=messagebox("该生的计算机成绩"+str(x,3+"在70-79之间"
casex<=89
=messagebox("该生的计算机成绩"+str(x,3+"在80-89之间"
otherwise
=messagebox("该生的计算机成绩"+str(x,3+"在90-100之间"
endcase
5、找出zgqk.dbf中基本工资最高记录,输出其姓名和基本工资Form1的click事件
Usezgqk
max=基本工资
scan
if基本工资>max
max=基本工资
endif
endscan
locafor基本工资=max
?
姓名,基本工资
6、找出2010至2100之间所有闰年的年份
Form1的click事件
fory=2010to2100
ify%4=0andy%100!
=0ory%400=0
?
y,"年是闰年"
endif
next
7、计算1+3+5+……99,并将结果存入文本框Text1中
Form1的click事件
sum=0
fori=1to99step2
sum=sum+i
next
this.text1.value="1+3+5+...+99的和:
"+allt(str(sum8、求边长为a的正方形内切圆面积。
Form1的click事件
inputtoa
area=3.14*(a/2^2
?
"边长为",a,"的正方形的内切圆面积为",area
9、求t=n!
Form1的click事件
inputton
t=1
fori=1ton
t=t*i
next
?
n,"的阶乘是",t
10、在zgqk.dbf中按姓名查找职工情况,找到后显示其情况,否则显示“查无此人”。
Form1的click事件
Usezgqk
xm=allt(this.text1.value
locafor姓名=xm
iffound(
disp
else
=messagebox("查无此人"
endif
11、求s=1/1^2+1/2^2+…+1/n^2
Form1的click事件
inputton
s=0
fori=1ton
s=s+1/i^2
next
?
"1/1^2+1/2^2+…+1/n^2的结果为",s
12、假设表单与表文件zgqk.dbf建立了数据环境,在其中按姓名查找职工情况,找到后将其情况在表单上显示,否则在信息框中显示“查无此人”。
Form1的click事件
xm=allt(this.text1.value
locafor姓名=xm
iffound(
this.refresh
else
=messagebox("查无此人"
endif
13、求所有的3位正整数除以99的商和余数
Form1的click事件
this.edit1.value=""
fori=100to999
sh=int(i/99
ys=i%99
this.edit1.value=this.edit1.value+str(i,3+"除以99的商
为:
"+allt(str(sh+";余数为:
"+allt(str(ys+chr(10
next
14、输出101~500之间的所有奇数及计算这些奇数的和。
Form1的click事件
sum=0
fori=101to500step2
?
i,"是奇数"
sum=sum+i
next
?
"101-500所有的奇数和是:
",sum
15、在Text1中输入一个3位自然数进行分解求和,其结果存入Text2中。
Form1的click事件
x=val(this.text1.value
bw=int(x/100
sw=int((x-bw*100/10
gw=x%10
this.text2.value=allt(str(bw+sw+gw16、计算1至100之间所有能被3整除的数之和Form1的click事件
sum=0
fori=3to100step3
sum=sum+i
next
?
"1-100之间能被3整除的数之和为",sum17、输出zgqk.dbf的基本工资大于600的所有记录Form1的click事件
Usezgqk
listfor基本工资>600
18、求s=1!
+2!
+3!
+4!
+5!
。
Form1的click事件
sum=0
fori=1to5
x=1
forj=1toi
x=x*j
next
sum=sum+x
next
?
"1!
+2!
+3!
+4!
+5!
=",sum
或:
sum=0
x=1
fori=1to5
x=x*i
sum=sum+x
next
?
"1!
+2!
+3!
+4!
+5!
=",sum19、使用文本框输入三个整数,将这三个整数从小到大排序,排序后的结果使用文本框输出Form1的click事件a=val(this.text1.valueb=val(this.text2.valuec=val(this.text3.valueifa>bt=aa=bb=tendififa>ct=aa=cc=tendififb>ct=bb=cc=tendifthis.text4.value="按从小到大排序后的结果:
"+allt(str(a+"、"+allt(str(b+"、"+allt(str(c20、在屏幕上逐条显示zgqk.dbf的所有记录Form1的click事件Usezgqkscandispwaitendscan21、在文本框Text1中输入一个字符串,统计其中数字字符的个数,结果存入文本框Text2中。
Form1的click事件s=this.text1.valuegs=0fori=1tolen(sm=subs(s,i,1ifm>="0"andm<="9"gs=gs+1endifnextthis.text2.value=s+"中数字字符的个数为:
"+allt(str(gs22、已知任意一个三角形的三条边为a、b、c,求其面积。
Form1的click事件inputtoainputtobinputtocifa+b>canda+c>bandb+c>ap=(a+b+c/2s=sqrt(p*(p-a*(p-b*(p-c?
"边长为:
",a,b,c,"的三角形面积为:
",sendif23、输出九九乘法表Form1的click事件fori=1to9forj=1toi?
?
str(i,1+"*"+str(j,1+"="+str(i*j,2+space(1next?
next24、统计1至100之间能被7整除的数的个数Form1的click事件gs=0fori=7to100step7
gs=gs+1next?
"1-100之间能被7整除的数的个数是:
",gs25、通过邮政局寄交“特快专递”邮件,计费标准每克为0.05元,但超过100克后,超出数每克为0.02元,计算邮费。
Form1的click事件inputtowifw<=100yf=w*0.05elseyf=100*0.05+(w-100*0.02endif?
"重量是",w,"需付邮资:
",yf26、计算2+4+6+„„100,并将结果存入文本框Text1中Form1的click事件sum=0fori=2to100step2sum=sum+inextthis.text1.value="2+4+6+...+100="+allt(str(sum27、若x=”wyu5,.j3k79”,求x中的数字之和。
Form1的click事件x="wyu5,.j3k79"?
val(subs(x,4,1+val(subs(x,8,1+val(subs(x,10,1+val(subs(x,11,128、求使s=1+2+3+„+n>10000的最小的nForm1的click事件s=0n=0dowhiles<=10000n=n+1
s=s+nenddo?
"使s=1+2+3+„+n>10000的最小的n",n29、计算1+2+3+„„100,并将结果在文本框Text1中输出Form1的click事件sum=0fori=1to100sum=sum+inextthis.text1.value="1+2+3+...+100="+allt(str(sum
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 程序设计 综合 练习题 答案