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

--------------------------校验:_____________-----------------------日期:,从键盘输入一个日期,查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。usestudent&&运行前单击教学管理数据库input“请输入某日期:”torq*输入时有提示,或inputtorq输入时无提示,输{^1987-01-01}browsefor出生日期>:x(x<1)y=2x-1(1≤x<10)3x-11(x≥10)编写程序,输入x,输出y的值。clearinput"Enterxplease!"toxifx<1y=xelseifx<10y=2*x-1elsey=3*x-11endifendif?'x=',x,'y=',,从键盘输入一个年份,判断它是否闰年。clearinput"Enteryearnumberplease!"toyify%4=0andy%100<>0ory%400=0?y,"isaleapyear!"else?y,"isnotleapyear.",输入一个百分制成绩,要求输出成绩等级“A”、“B”、“C”、“D”、“E”。90分以上为“A”,80~89分为“B”,70~79分为“C”,60~69分为“D”,60分以下为“E”。clearinput“请输入一百分制成绩”tocjdocasecasecj>=90?”A”casecj>=80?”B”casecj>=70?”C”casecj>=60?”D”otherwise?”E”,从键盘输入一个正整数M,输出M内(包括M)所有偶数。clearinputtomfori=0tomstep2??str(i,5),从键盘输入一个正整数M,计算M内(包括M)所有偶数之和。clearinputtoms=0fori=2tomstep2s=s+iEndfor?,从键盘输入5个数,找出其中的最大数和最小数。clearinput"请输入第一个数"tomaxmin=maxfori=2to5?"请输入第"+str(i,2)+"个数"inputtoaifa>maxmax=aendififa<minmin=aendifendfor?'max=',max?'min=',,从键盘输入10个数,再按逆序输出。dimea(10)fori=1to10inputtoa(i)endforfori=10to1step-1?a(i),逐条显示STUDENT表中的男生记录(显示一个记录后,由用户按任意键来显示下一个记录)。usestudentscanfor性别=”男”,自STUDENT表的最后一个记录开始向前逐个显示(显示一个记录后,由用户按任意键来显示上一个记录)。usestudentgobottdowhilenotbof()dispwaitskip-:平均成绩(数值型,6,2)。然后编写程序,根据GRADE表统计