vf的环境与运算实验报告结果分析.docxVIP

vf的环境与运算实验报告结果分析 　　华北科技学院计算机学院综合性实验　　实验报告　　课程名称程序设计语言(VF)实验学期XX至XX学年第二学期学生所在院部外国语学院年级XX专业班级英语B13-1　　学生姓名陈杨学号XX任课教师王晓菊实验成绩　　计算机学院制　　华北科技学院计算机学院综合性实验报告　　《程序设计语言(VF)》课程综合性实验报告　　VisualFoxpro及其应用系统开发实验报告　　学院：理学院专业：电子信息科学与技术班级：电科091　　1　　2　　3　　4　　5　　实验报告：程序设计答案　　?求圆环面积，分别用子程序、过程、函数实现。用子程序实现：主程序：　　SettalkoffClearS=0　　Input“请输入大圆的半径：”tor1Input“请输入小圆的半径：”tor2Doareawithr1,r2?“圆环的面积为：”,sSettalkonReturn　　用过程实现：主程序：　　SettalkoffClearS=0　　Input“请输入大圆的半径：”tor1Input“请输入小圆的半径：”tor2Setproceduretosub1Doareawithr1,r2?“圆环的面积为：”,sCloseprocedureSettalkonReturn　　用函数实现：主程序：SettalkoffClear　　Input“请输入大圆的半径：”tor1Input“请输入小圆的半径：”tor2S=area(r1,r2)　　?“圆环的面积为：”,sSettalkonReturn　　子程序：　　Parametersk1,k2　　S=Pi()*k1*k1-Pi()*k2*k2Return　　过程文件　　Procedurearea(k1,k2)S=Pi()*k1*k1-Pi()*k2*k2ReturnEndproc　　函数：　　Parametersk1,k2　　m=Pi()*k1*k1-Pi()*k2*k2Returnm　　?从1-200，若该数能被3整除且末位数为5则显示该数。SettalkoffClear　　Fori=1to200　　Ifmod(i,3)=0.and.mod(i,5)=0.and.mod(i,10)0?iEndifEndforSettalkonReturn　　?从键盘上接受一个字符串，统计该字符串中包含的数字字符(0~9)的总个数并显示出来。settalkoffclears=0　　accept请输入一个字符串：toan=len(a)fori=1tonj=substr(a,i,1)　　ifasc(j)=48.and.asc(j)=600　　Replace基本工资With基本工资*Case基本工资=400.and..基本工资=?折叠次数为：,nexitendifn=n+1enddosettalkonreturn　　?输入三角形的三个边长Ａ、Ｂ、Ｃ，若Ａ、Ｂ、Ｃ能构成三角形，则计算出三角形　　“构积式中W=(A+B+C)／2　　SETTALKOFFCLEAR　　INPUT请输入三角形的第一边长度：TOAINPUT请输入三角形的第二边长度：TOBINPUT请输入三角形的第三边长度：TOCIFA+BC.AND.B+CA.AND.C+ABW=(A+B+C)/2　　S=SQRT(W*(W-A)*(W-B)*(W-C))　　?输入的三个边长能构成三角形，三(转载于:写论文网:vf的环境与运算实验报告结果分析)角形面积=,S　　IFA**2+B**2=C**2.OR.B**2+C**2=A**2.OR.C**2+A**2=B**2?构成直角三角形.ENDIFELSE　　?输入的三个边长不能构成三角形！ENDIF　　SETTALKONReturn?某班学生计算机考试成绩已登记到自由表的成绩(N)型字段中，　　另有评估(C型)字段。编程序将每个学生计算机的学习评估：“优秀”(90－100)“良好”(80－89)“中等”(70－79)“及格”(60－69)“不及格”(0－59)，写到评估字段中。　　SETTALKOFFCLEARCLOSEALL　　USECOMPUTER　　DOWHILE.NOT.EOF()DOCASE　　CASE成绩60　　REPLACE评估WITH“不及格”CASE成绩70　　REPLACE评估WITH“及格”CASE成绩80　　REPLACE评估WITH“中等”CASE成绩90　　REPLACE评估WITH“良好”OTHERWISE　　REPLACE评估WITH“优秀”ENDCASESKIPENDDOUSE　　SETTALKONRETURN　　?已知数据表N_中只有一个数值型字段Data，