VFP程序设计典型例题汇总

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

Visual FxoPro程序设计题

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

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”。

clear

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

s

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

clear

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

min=max

for i=2 to 5

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

input to a

if a>max

max=a

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表统计每个学生的平均成绩,并填入新插入的字段中。

select 学号,avg(成绩)as 平均成绩from grade group by 学号into 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

相关文档
最新文档