data8-3实验8-3答题文件（答案）.doc

《data8-3实验8-3答题文件（答案）.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第8章VisualFoxPro的程序设计技术实验8-3VFP程序设计综合应用+实验要求1、打开其中的“实验8-3答题文件.doc”文件，边做实验边将各题的操作步骤或所用的命令记录在该文件中。实验完成后将实验完成后将整个文件夹上传到你的“作业”文件夹中。2、在答题时将答案的文字格式加上蓝色。+实验综合应用一l本题知识点：子程序、分支语句、循环语句、格式化输入输出语句、表的基本操作。l本题的数据源：“学生”。l要求如下：设计一个程序,使其具有追加、删除、查询、修改记录的功能，并能根据不同的输入值选择执行不同的功能，

2、即1--追加记录2--删除记录3--查询记录4--修改记录(程序名为8_3_1.PRG)。l操作步骤：答：(1)创建程序文件p8_3_1.prg；(2)在程序窗口输入如下代码：SETTALKOFFCLEAR@2,13TO7,45@3,15SAY"表操作菜单"@4,15SAY"1--追加记录2--删除记录"@5,15SAY"3--查询记录4--修改记录"@6,15SAY"0--退出"DOWHILE.T.INPU"请选择(0--4)"TOSELDOCASECASESEL=1DOZJCASESEL=2DOSCCASE

3、SEL=3DOCXCASESEL=4DOXGCASESEL=0EXITOTHERWISE?"选择错误,请重选"ENDCASEENDDO（3）创建查询记录子程序CX.PRG；（4）在程序窗口输入如下代码：USE学生ACCEPT"请输入要查找的姓名:"TOXMLOCATEFOR姓名=XMDOWHILENOTEOF()DISPLAYWAITCONTINUEENDDO（5）保存子程序；（6）创建追加记录子程序ZJ.PRG；（7）在程序窗口输入如下代码：USE学生INPUT"输入要插入的记录号:"TONRECGOTONR

4、ECINSERTBEFOWAIT（8）保存子程序；（9）创建删除记录子程序SC.PRG；（10）在程序窗口输入如下代码：USE学生INPUT"输入要删除的记录号:"TONRECDELETE序号=NRECWAIT（11）保存子程序；（12）创建修改记录子程序XG.PRG；（13）在程序窗口输入如下代码：USE学生BROWSEWAIT（14）保存子程序；（15）运行主程序p8_3_1,运行结果如下：综合应用二l本题知识点：循环语句的嵌套、数组。l要求如下：随机产生8个互不相同的两位正整数，然后求出这8个数的最大值和

5、平均值，最后在屏幕上显示出这些最大值和平均值。(程序名为8_3_2.PRG)。l操作步骤：答：(1)创建程序文件p8_3_2.prg；(2)在程序窗口输入如下代码：SETTALKOFFCLEARDIMENSIONA(8)*定义数组AN=0P=10S=0DOWHILEN<8YES=.T.*下面的DOWHILE循环用于产生一个符合要求的两位正整数DOWHILEYESX=INT(10+90*RAND())YES=.F.FORK=1TONIFX=A(K)YES=.T.EXITENDIFENDFORENDDON=N+1?

6、STR(N,2)+":",XA(N)=XS=S+XIFP