VFP程序设计典型例题汇总.docVIP

VFP程序设计典型例题汇总

4．编写程序，输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、“E”。90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。

clear

input“请输入一百分制成绩”tocj

docase

casecj=90

?”A”

casecj=80

?”B”

casecj=70

?”C”

casecj=60

?”D”

otherwise

?”E”

endcase

5．编写程序，从键盘输入一个正整数M，输出M内（包括M）所有偶数。

clear

inputtom

fori=0tomstep2

??str(i,5)

Endfor

6．编写程序，从键盘输入一个正整数M，计算M内（包括M）所有偶数之和。

clear

inputtom

s=0

fori=2tomstep2

s=s+i

Endfor

?s

7．编写程序，从键盘输入5个数，找出其中的最大数和最小数。

clear

input请输入第一个数tomax

min=max

fori=2to5

?请输入第+str(i,2)+个数

inputtoa

ifamax

max=a

endif

ifamin

min=a

endif

endfor

?max=,max

?min=,min

8．利用数组编写程序，从键盘输入10个数，再按逆序输出。

dimea(10)

fori=1to10

inputtoa(i)

endfor

fori=10to1step-1

?a(i)

endfor

9．编写程序，逐条显示STUDENT表中的男生记录（显示一个记录后，由用户按任意键来显示下一个记录）。

usestudent

scanfor性别=”男”

disp

wait

endscan

use

10．编写程序，自STUDENT表的最后一个记录开始向前逐个显示（显示一个记录后，由用户按任意键来显示上一个记录）。

usestudent

gobott

dowhilenotbof()

disp

wait

skip-1

enddo

use

11．先在STUDENT表中插入一个新字段：平均成绩（数值型,6,2）。然后编写程序，根据GRADE表统计每个学生的平均成绩，并填入新插入的字段中。

select学号,avg(成绩)as平均成绩fromgradegroupby学号intotablet

uset

indexon学号totxh

sele2

usestudent

indexon学号tosxh

setrelato学号intot

replall平均成绩witht-平均成绩

12．写程序，输入一个三位自然数，判断该数是否为水仙花数。所谓水仙花数是指一个三位自然数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153＝13+53+33。

inputtozrs

gw=zrs%10

sw=int(zrs/10)%10

bw=int(zrs/100)

ifbw**3+sw**3+gw**3=zrs

?”yes!”

else

?”no.”

Endif

13．编写一个自定义函数，判断一个三位自然数是否为水仙花数，若是，返回逻辑真，否则，返回逻辑假。编写主程序，输入一个三位自然数，调用自定义函数判断该数是否为水仙花数。

clear

inputton

ifsxh(n)

?”yes”

else

?”no”

endif

functionsxh

parazrs

gw=zrs%10

sw=int(zrs/10)%10

bw=int(zrs/100)

ifbw**3+sw**3+gw**3=zrs

return.t.

else

return.f.

endif

endfu

14．编写程序，输入一个自然数，判断该数是否为素数。

clear

inputtozrs

sf=.t.

fori=2tosqrt(zrs)

ifzrs%i=0

sf=.f.

exit

endif

endfor

ifsf=.t.

?”yes”

else

?”no”

Endif

15．编写一个自定义函数，判断一个自然数是否为素数，返回一个逻辑值。编写主程序，调用自定义函数求100～200间的所有素数。

fori=100to200

ifprime(i)

??i

endif

endfor

functi