vf练习答案.doc 8页

'第5章实验一答案在e盘的根目录下按学号建立学生个人文件夹，再将教师机上提供的数据文件夹下的所有文件复制到学生机本地磁盘上的个人文件夹下。并将其设置为VFP工作的默认目录。打开“教学管理.pjx”项目文件，试建立以下程序文件并运行：注：程序文件分别命名为cx01.prg、cx02.prg、cx03.prg和……。1．《学习指导》P86第6章[实验1]:1：编写程序，从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。*从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。clearopendatabase教学管理input"请输入一个日期："torq&&输入时应加日期定界符select*fromstudentwhere出生日期>rqclosedatabasereturn2．将上题程序修改为：从键盘输入日期后，首先判断该指定日期以后出生的学生是否存在，若存在，浏览显示这些学生信息，否则弹出信息框提示“没找到！”。*从键盘输入日期后，首先判断该指定日期以后出生的学生是否存在，*若存在，浏览显示这些学生信息，否则弹出信息框提示"没找到！"clearopendatabase教学管理input"请输入一个日期："torq&&输入时应加日期定界符usestudentlocatefor出生日期>rqiffound() select*fromstudentwhere出生日期>rqelsemessagebox("没找到",48)endifclosedatabasereturn3．分别用双分支If—else—Endif和单分支If—Endif结构实现：从键盘上输入两个数，输出其中大的数。*用If—else—Endif结构实现*从键盘上输入两个数，输出其中大的数settalkoffclearinput"请输入第一个数："toxinput"请输入第二个数："toyifx>=ymax=xelsemax=yendif?"两个数中大的数是:",maxsettalkonreturn*用If—Endif结构实现*从键盘上输入两个数，输出其中大的数settalkoffclearinput"请输入第一个数："tox input"请输入第二个数："toymax=xifx=y?"两个数从大到小的顺序是：",x,yelse?"两个数从大到小的顺序是：",y,xendifsettalkonreturn*用If—Endif结构实现*从键盘上输入两个数，按从大到小的顺序输出settalkoffclear input"请输入第一个数："toxinput"请输入第二个数："toyifx=ymax=xelsemax=yendififmax=yifx>=zmax=xelsemax=zendifelseify>=zmax=yelsemax=zendifendif?"三个数中大的数是:",maxsettalkonreturn6．计算分段函数值：x（x<1)y=2x-1（1≤x＜10)3x-11（x≥10）方法一：clearinput"x="tox ifx<1y=xelseifx<10y=2*x-1elsey=3*x-11endifendif?"x=",x,"y=",yreturn方法二：clearinput"x="toxifx<10ifx<1y=xelsey=2*x-1endifelsey=3*x-11endif?"x=",x,"y=",yreturn7．《学习指导》P87第6章[实验1]:4：输入一个百分制成绩，要求输出成绩等级“A”、“B”、“C”、“D”、“E”。90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。 *输入一个百分制成绩，要求输出成绩等级"A"、"B"、"C"、"D"、"E"*90分以上为"A"，80～89分为"B"，70～79分为"C"*60～69分为"D"，60分以下为"E"input"请输入学生的百分制成绩："tocjifcj<0orcj>100?"成绩输入有错误"elsedocasecasecj>=90dj="A"casecj>=80dj="B"casecj>=70dj="C"casecj>=60dj="D"otherwisedj="E"endcase?"成绩是"+str(cj,5,1)+",相应的等级是"+djendifreturn8．课本P161三2：编写程序从键盘输入一个年份，判断它是否闰年。闰年的条件是：能被4整除但不能被100整除，或能被400整除。*从键盘输入一个年份，判断它是否闰年。*闰年的条件是：能被4整除但不能被100整除，或能被400整除clearinput"请输入一个年份："tonfif(nf%4==0andnf%100!=0)ornf%400==0 ?str(nf,4)+"是闰年"else?str(nf,4)+"不是闰年"endifreturn9．课本P161三4：编写程序从键盘输入一个数（可以是C、N、D或L类型)，用INPUT语句接收到变量A中，通过类型判断，输出其数据类型的汉字说明。如输入A的值是“Hello!”，输出为：Hello!——字符型数据；又如输入A的值是.T.，输出为：.T.——逻辑型数据。提示：函数TYPE("A")测试变量A的数据类型，返回一个大写字母。用DOCASE语句*从键盘输入一个数（可以是C、N、D或L类型)*用INPUT语句接收到变量A中，通过类型判断，输出其数据类型的汉字说明clearinput"请输入A的值："toAlx=type("A")docasecaselx="C"?A,"__是字符型数据"caselx="N"?A,"__是数值型数据"caselx="D"?A,"__是日期型数据"caselx="L"?A,"__是逻辑型数据"endcasereturn'