实验九VFP数据基础.docVIP

实验实验目的 1、? Visual FoxPro程序的概念和程序的建立与运行。 2、? Visual FoxPro程序常用的基本语句。 3、? 4、? Visual FoxPro源程序语句。 5、? IF…ELSE…ENDIF和DO CASE…ENDCASE语句编写分支结构程序。 6、? 实验内容 、设计程序完成对如下数据表的查询操作。 ?? **************源程序代码************ SET TALK OFF CLEAR USE XSDA.DBF????????? 打开XSDA.DBF ACCEPT? “请输入待查学生姓名：” TO NAME LOCATE? FOR? 姓名=NAME?? 顺序查找 IF? ?????????? ? ”学号：”+学号+”姓名：”+姓名+”出生日期：”+DTOC(出生日期)+; ? ”专业：”+专业 ELSE ????????????????? ENDIF USE???????????????????? 关闭XSDA.DBF SET TALK OFF RETURN 若“ACCEPT? “请输入待查学生姓名：” TO NAME”语句中的“ACCEPT ”改成“INPUT”，程序运行时如何准确输入待查学生姓名？ 二、编写程序求出3个数中的最大数。 编程思路： （1）首先从键盘上输入3个数依次保存在A、B、C变量中，并假设输入的第一个数（保存在A中）最大并保存在MAX变量中。 （2）然后用IF…ENDIF语句实现MAX中的数与第B进行比较，若小于B，则把B赋给MAX。 （3）再次用IF…ENDIF实现把MAX中的数与C进行比较，若小于C，则将C中的值赋给MAX。最后，MAX中保存的即是3个数中最大的一个。 要求编写出完整的程序代码，并调试运行。 三、编写程序自动判断出分数等级。 SET TALK OFF CLEAR INPUT “请输入考试成绩：”TO SCORE DO CASE ? CASE SCORE=90 ?”优秀” ? CASE SCORE=70 AND SCORE90 ?? ??”良好” CASE SCORE=60 AND SCORE70 ?? ??”及格” OTHERWISE ?”不及格” ENDCASE SET TALK ON RETURN 完成上述程序文件的建立并调试，并考虑每个CASE后的条件是否可以简化，如何简化？ 四、利用循环结构计算S=1+2+3+……+100 SET TALK OFF CLEAR SUM=0 FOR I=1 TO 10 ??? ?????X=1??? ????????? FOR J=1 TO I??? ??? X=X*J ? ENDFOR ? SUM=??SUM+X??????????? ENDFOR ? 1！+2！+……+10！=,SUM SET TALK ON RETURN 修改上述程序代码的循环部分，采用单层循环同样实现1！+2！+……+10！的计算。 思考与练习 、? x，计算下列分段函数的值并输出结果。要求用IF…ENDIF语句编写程序。