VFP程序设计典型例题汇总

V i s u a l F x o P r o程序设计题1．编写程序，从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。

use student &&运行前单击教学管理数据库

input “请输入某日期:” to r q

*输入时有提示，或input to rq输入时无提示，输{^1987-01-01}

browse for 出生日期>rq

2．有一函数：

x （x<1)

y= 2x-1 （1≤x＜10)

3x-11 （x≥10）

编写程序，输入x，输出y的值。

clear

input "Enter x please!" to x

if x<1

y=x

else

if x<10

y=2*x-1

else

y=3*x-11

endif

'x=',x,'y=',y

3．编写程序，从键盘输入一个年份，判断它是否闰年。

clear

input "Enter year number please!" to y

if y%4=0 and y%100<>0 or y%400=0

y,"is a leap year!"

else

y,"is not leap year."

Endif

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

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

do case

case cj>=90

” A”

case cj>=80

” B”

case cj>=70

” C”

case cj>=60

” D”

otherwise

” E”

endcase

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

clear

input to m

for i=0 to m step 2

str(i,5)

Endfor

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

clear

input to m

s=0

for i=2 to m step 2

s=s+i

Endfor

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

clear

input "请输入第一个数" to max

min=max

for i=2 to 5

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

input to a

if a>max

endif

if a

min=a

endif

endfor

'max=',max

'min=',min

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

dime a(10)

for i=1 to 10

input to a(i)

endfor

for i=10 to 1 step -1

a(i)

endfor

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

use student

scan for 性别=”男”

disp

wait

endscan

use

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

use student

go bott

do while not bof()

disp

wait

skip -1

enddo

use

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

table t

use t

index on 学号 to txh

sele 2

use student

index on 学号 to sxh

set rela to 学号 into t

repl all 平均成绩 with t->平均成绩

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

input to zrs

gw=zrs%10

sw=int(zrs/10)%10

bw=int(zrs/100)

if bw**3+sw**3+gw**3=zrs

”yes!”

else

”no.”

Endif

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

clear

input to n

if sxh(n)

”yes”

else

”no”

endif

function sxh

para zrs

gw=zrs%10

sw=int(zrs/10)%10

bw=int(zrs/100)

return .t.

else

return .f.

endif

endfu

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

clear

input to zrs

sf=.t.

for i=2 to sqrt(zrs)

if zrs%i=0

sf=.f.

exit

endif

endfor

if sf=.t.

”yes”

else

”no”

Endif

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

for i=100 to 200

if prime(i)

endif

endfor

function prime

para zrs

sf=.t.

for j=2 to sqrt(zrs)

if zrs%j=0

sf=.f.

exit

endif

return sf

endfunc

16.九九乘法表

（1）矩形样式

Clear

For I=1 to 10 &&外循环I控制输出9行

For J=1 to 9 &&内循环J控制第I行输出9项

str(I,1)+”×”+str(J,1)+”=”+str(I*J,2) &&输出I*J项”“

Endfor

Return

17.阶乘

（1）求单个数阶乘（以5为例）

Clear

J=1

I=1

Do while i<=5

J=j*i

I=i+1

Enddo

Return

（2）求阶乘和（求1到5阶乘的和）

Clear

S=0

I=1

J=1

Do while i<=5

J=j*i

S=s+j

I=i+1

Enddo

Return