vf练习完整答案.docVIP

第5章 实验一 答案 在e盘的根目录下按学号建立学生个人文件夹，再将教师机上提供的数据文件夹下的所有文件复制到学生机本地磁盘上的个人文件夹下。并将其设置为VFP工作的默认目录。打开“教学管理.pjx”项目文件，试建立以下程序文件并运行：注：程序文件分别命名为cx01.prg、cx02.prg、cx03.prg和……。 1．《学习指导》P86第6章[实验1]:1：编写程序，从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。 *从键盘输入一个日期，查询STUDENT表中该日期以后出生的学生信息并显示在浏览窗口中。 clear open database 教学管理 input 请输入一个日期： to rq 输入时应加日期定界符 select * from student where 出生日期rq close database return 2．将上题程序修改为：从键盘输入日期后，首先判断该指定日期以后出生的学生是否存在，若存在，浏览显示这些学生信息，否则弹出信息框提示“没找到！”。 *从键盘输入日期后，首先判断该指定日期以后出生的学生是否存在， *若存在，浏览显示这些学生信息，否则弹出信息框提示没找到！ clear open database 教学管理 input 请输入一个日期： to rq 输入时应加日期定界符 use student locate for 出生日期rq if found() select * from student where 出生日期rq else messagebox(没找到,48) endif close database return 3．分别用双分支If—else—Endif和单分支If—Endif结构实现：从键盘上输入两个数，输出其中大的数。 *用If—else—Endif结构实现 *从键盘上输入两个数，输出其中大的数 set talk off clear input 请输入第一个数： to x input 请输入第二个数： to y if x=y max=x else max=y endif ?两个数中大的数是:,max set talk on return *用If—Endif结构实现 *从键盘上输入两个数，输出其中大的数 set talk off clear input 请输入第一个数： to x input 请输入第二个数： to y max=x if xy max=y endif ?两个数中大的数是:,max set talk on return 4．分别用双分支If—else—Endif和单分支If—Endif结构实现：从键盘上输入两个数，按从大到小的顺序输出。 *用If—else—Endif结构实现 *从键盘上输入两个数，按从大到小的顺序输出 set talk off clear input 请输入第一个数： to x input 请输入第二个数： to y if x=y ?两个数从大到小的顺序是：,x,y else ?两个数从大到小的顺序是：,y,x endif set talk on return *用If—Endif结构实现 *从键盘上输入两个数，按从大到小的顺序输出 set talk off clear input 请输入第一个数： to x input 请输入第二个数： to y if xy t=x x=y y=t endif ?两个数从大到小的顺序是：,x,y set talk on return 5．从键盘上输入三个数，输出其中大的数。 方法一： set talk off clear input 请输入第一个数： to x input 请输入第二个数： to y input 请输入第三个数： to z if x=y max=x else max=y endif if maxz max=z endif ?三个数中大的数是:,max set talk on return 方法二： set talk off clear input 请输入第一个数： to x input 请输入第二个数： to y input 请输入第三个数： to z if x=y if x=z max=x else max=z endif else if y=z max=y else max=z endif endif ?三个数中大的数是:,max set talk on return 6．计算分段函数值： x （x1) y=