vf实验报告答案

《vf实验报告答案》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、实验报告：程序设计答案其求圆环面积，分别用子程序、过程、函数实现。用子程序实现：主程序：子程序：area.prgSettalkoffClearS=0Input“请输入大圆的半径：’’toriInput“请输入小圆的半径：”tor2Doareawithrl，r2?“圆环的面积为：”，sSettalkonReturn用过程实现：主程序：SettalkoffClearS=0Input“请输入大圆的半径：’’toriI叩ut“请输入小圆的半径：”tor2SetproceduretosublDoareawithrl，r2?“圆环的面积为：”

2、，sCloseprocedureSettalkonReturn用函数实现：主程序：SettalkoffClearInput“请输入大圆的半径：’’toriInput“请输入小圆的半径：’’tor2S=area(rl,r2)?“圆环的面积为:”，sSettalkonReturnParameterskl，k2S=Pi()*kl*kl-Pi()*k2*k2Return过程文件subl.prgProcedurearea(kl，k2)S=Pi()*kl*kI-Pi()*k2*k2ReturnEndproc函数：area.prgParamet

3、erskl，k2m=Pi()*kl*kl-Pi()*k2*k2Returnm其从1-200,若该数能被3整除且末位数为5则显示该数。SettalkoffClearFori=lto200Ifmod（i，3）=0.and.mod（i，5）=0.and.mod（i，10）<>0?iEndifEndforSettalkonReturn其从键盘上接受一个字符串，统计该字符串中包含的数字字符(0〜9)的总个数并显示出来。settalkoffclears=0accept’•请输入一个字符串：”toan=len(a)fori=ltonj=subs

4、tr(a，i，l)ifasc(j)>=48.and.asc(j)<=57s=s+lendifendfor?”该字符串数字的个数是：”，ssettalkonreturn其从键盘上接受一个字符串，以相反的顺序将其显示出来(例如，若输入为“aBxyxtyl”,则输出应为“lytxyxBa”)。settalkoffclearaccept"请输入一个字符串："toafori=Ien（a）to1step-1s=s+substr（a，i，l）endfor?”该字符串的相反顺序为：”+ssettalkonreturn其若基本工资大于等于600元，

5、增加工资20%，若小于600元大于等于400元，则増加工资15%，若小于4«0元则增加工资1«%.请将rsgz.dbf表中的基本工资字段按此规则调整。SETTALKOFFCLEARCLOSEALLUSERsgzDoWhile.not.eof（）DoCaseCase基本工资＞=600Replace基本工资With基本工资*1.2Case基本工资＞=400.and..基本工资＜600Replace基本工资With基本工资*1.15Case基本工资＜400Replace基本工资With基本工资*1.10EndcaseSkipEnddoU

6、SESETTALKONRETURN其设有一张足够大的厚度为0.5毫米的纸，问至少折叠多少次可以达到（或超过）珠穆朗玛峰（8844.43米）。settalkoffclearn=lhight=0.5dowhile.t.hight=hight*2ifhight>=8848130?’’折叠次数为："，iiexitendifn=n+lenddosettalkonreturn其输入三角形的三个边长A、B、C,若A、B、C能构成三角形，则计算出三角形面积；f则提示“不能构成三角形！”。若构成的三角形为直角三角形，也给出“构成直角2-A)(W-B

7、)(W—C)积S=式中W=(A+B+C)/2SETTALKOFFCLEARINPUT”请输入三角形的第一边长度：”TOAINPUT”请输入三角形的第二边长度：”TOBINPUT”请输入三角形的第三边长度："TOCIFA+B＞C.AND.B+C＞A.AND.C+A＞BW=(A+B+C)/2S=SQRT(W*(W-A)*(W-B)*(W-C))?”输入的三个边长能构成三角形，三角形面积=’•，SIFA**2+B**2=C**2.OR.B**2+C**2=A**2.OR.C**2+A**2=B**2?”构成直角三角形ENDIFELSE?

8、”输入的三个边长不能构成三角形！”ENDIFSETTALKONReturn其某班学生计算机考试成绩已登记到COMPUTER.DBF自由表的成绩(N)型字段中，另有评估(C型)字段。编程序将每个学生计算机的学习评估：“优秀”(90—1«0)“良好”(