vf实验程序设计.doc

实验报告课程名称： 数据库技术 实验类别：综合性 设计性 其他 实验项目： 程序设计 专业班级： 工程管理0901 姓 名： 李金坤 学 号：090501015 实验室号： 文科楼126实验组号： 实验时间： 2011 批阅时间： 指导教师： 成 绩： 沈阳工业大学实验报告（适用经、管、文、法专业）专业班级： 工程管理0901 学号： 090501015 姓名： 李金坤 实验项目：程序设计一、 实验目的和要求1.掌握命令文件的建立和修改。2.掌握常用输入/输出语句的使用。3.掌握顺序结构的程序设计方法。4.掌握分支结构的程序设计方法。5.掌握循环结构的程序设计方法。6.掌握过程调用的方法。二、 实验方法在Visual FoxPro环境下，对要解决的问题编制程序，将程序输入到相应的命令窗口中，就可以得到结果。三、 设备或条件电脑、VF软件四、 实验内容成果见附件一五、 收获或体会 通过本次试验掌握了VF软件的使用方法，使用Visual FoxPro的编程语言和开发工具，可以建立较为复杂的数据库应用系统，用命令编制程序可以解决实际应用中的复杂问题。 六、 实验准备报告 见附件二附件一: 沈阳工业大学实验报告（适用经、管、文、法专业）专业班级： 工程管理0901 学号： 090501015 姓名： 李金坤 实验项目：程序设计实验内容或作品名称：1掌握命令文件的建立和修改 (1)命令行方式 命令格式：Modify Command (2)菜单方式。操作步骤如下： 1 Visual ForPro 系统菜单中，选择“文件”菜单中的“新建”命令，打开“新建”对话框。 2在“新建”对话框中，选择“程序”单选按钮，然后单击“新建”按钮，进入程序文件编辑器窗口。 3 在程序编辑器窗口中，系统会自动将文件命名为“程序1”，可在白色的编辑区内输入程序。 4 程序输完后，按【Ctrl+W】组合键存盘。如果程序还未命名，系统会弹出“另存为”对话框。 5 在“另存为”对话框中选择文件存储路径，在“保存文档为”文本框中输入程序文件名，“保存类型”系统默认为“程序（*.prg）”。 6 单击“保存”按钮进行存盘。 (3)执行命令文件。 命令格式：Do (4)修改命令文件。 命令格式：Modify Command 2.输入/输出语句。 (1)设计一个程序，显示“学生”表中不同专业的学生记录集，当完成一组显示后，在屏幕的右上角提示用户操作结束，提示信息在屏幕上停留5秒。 程序代码如下： Use 学生.dbf Exclusive Accept 请输入专业: to zy List all for 专业=zy Wait 专业为”+zy +记录已显示 Window Timeout 5 (2)设计一个程序，显示“学生”表中不同专业的学生记录集。 程序代码如下：Use 学生.dbf ExclusiveAccept 请输入专业: to zyList all for 专业=zy附件一: 沈阳工业大学实验报告（适用经、管、文、法专业）专业班级： 工程管理0901 学号： 090501015 姓名： 李金坤 实验项目：程序设计3顺序结构的程序利用“教学”数据库中的“学生”表，统计男同学和女同学的人数。源程序清单如下:*顺序结构程序举例Set Talk OffOPEN DATEBASE 教学Use 学生Count For 性别=男 To manCount For 性别=女 To woman?男同学人数:, man?女同学人数: womanReturn4分支结构的程序计算变量Var的绝对值并存入变量AbsVar。源程序清单如下：*程序名Lab1.prgInput 请输入数值:To VarIf Var=0 AbsVar= VarElse AbsVar=VarEndIf?VAR,的绝对值是,AbsVarSet Talk On5.循环结构的程序(1) 利用Do While 循环语句编写求S=的程序。 源程序清单如下：*求累加和程序 Set Talk off S=0 I=1 Do While I=100 S=S+I I=I+1 EndDo附件一: 沈阳工业大学实验报告 ?S=,S Set Talk On Return(2) 用For.EndFor编程，计算1+2+3+4+100的值源程序清单如下： *求累加和程序 Set Talk off S=0 N=100 For I=1 To N S=S+I EndFor ?S=,S Set Talk On Return(3) 逐条显示“教学”数据库中“学生”数据表中，性别为“男”的记录。 程序清单如下： *显示“学生”数据表中，性别为“男”的记录 Set Talk off Clear Open Datebase 教学 Use 学生 Scan For 性别=“男” Display EndScan Use Set Talk On Return(4) 编写程序判断100999之间的水仙花数。分析：若一个三位的自然数的值等于该数各位的数字的立方和，则这个自然数称做“水仙花”数。例如：153=+=1+125+27源程序清单如下： *判断100999之间的水仙花数 Set Talk off Clear A=1专业班级： 工程管理0901 学号： 090501015 姓名 李金坤 实验项目：程序设计附件一: 沈阳工业大学实验报告专业班级： 工程管理0901 学号： 090501015 姓名： 李金坤 Do while A=9 B=0 Do While B=9 C=0 Do While C=9 M=100*A+10*B+C N=A*3+B*3+C*3 If M=N ?水仙花数为：“，M EndIf C=C+1EndDoB=B+1 EndDo A=A+1EndDoReturn6.过程调用。(1) 采用子程序编程的方法编写如下计算公式的程序。已知M和N,计算： =分析：此程序中反复用到了求阶乘的计算公式，所以可以把阶乘部分单独拿出来作为一个子系统，程序设计如下： *主程序：程序名为Main.prg Set Talk off Input 输入M的值： To M Input 输入N的值: To N *计算M！ X=M Do Sub Result=Result/X *计算(M-N)! X=M-N实验项目：程序设计 Do Sub Result=Result/X ?Result Set Talk on Return *子程序：程序名为Sub.prg Store 1 to k,temp Do While k=x Temp=Temp*k K=k+1 EndDo X=Temp Return(2)采用自定义函数编程的方法设计组合公式程序。已知M和N，计算： =分析：此程序中反复用到了求阶乘的计算公式，所以可以把阶乘部分单独拿出来作为一个用户自定义函数，以便在主程序中反复调用程序设计如下： *主程序Main.prg Set Talk off Clear Input M= To M Input N= To N C=JC(M)/(JC(N)*JC(M-N) ?C=,C Return *阶乘自定义函数 Function JC Parameter K T=1 I=1 Do While I=K T=T*I I=I+1 EndDo Return T附件一: 沈阳工业大学实验报告专业班级： 工程管理0901 学号： 090501015 姓名： 李金坤 附件一: 沈阳工业大学实验报告专业班级： 工程管理0901 学号： 090501015 姓名： 李金坤 (2) 利用参数语句传递参数。使用参数传递方法，编写计算矩形面积的程序。程序设计如下：*主程序：Main.prgSet Talk offClearArea=0Input 请输入矩形的长:To LengthInput 请输入矩形的宽:To WidthDo sub1 With Length,Width,Area?矩形面积为：,AreaReturn*子程序:sub1.prgParameters A,B,CC=A*B Return实验项目：程序设计实验准备完成情况： 1.复习第8章程序设计基础的程序文件的建立与执行内容。 2.复习常用交互命令：Wait、Accept 和Input. 3.