VF实验报告答案

实验报告：程序设计答案求圆环面积，分别用子程序、过程、函数实现。用子程序实现：主程序：SettalkoffClearS=0Input“请输入大圆的半径：”tor1Input“请输入小圆的半径：”tor2Doareawithr1,r2?“圆环的面积为：”,sSettalkonReturn子程序：area.prgParametersk1,k2S=Pi()*k1*k1-Pi()*k2*k2Return用过程实现：主程序：SettalkoffClearS=0Input“请输入大圆的半径：”tor1Input“请输入小圆的半径：”tor2Setproceduretosub1Doareawithr1,r2?“圆环的面积为：”,sCloseprocedureSettalkonReturn过程文件sub1.prgProcedurearea(k1,k2)S=Pi()*k1*k1-Pi()*k2*k2ReturnEndproc用函数实现：主程序：SettalkoffClearInput“请输入大圆的半径：”tor1Input“请输入小圆的半径：”tor2S=area(r1,r2)?“圆环的面积为：”,sSettalkonReturn函数：area.prgParametersk1,k2m=Pi()*k1*k1-Pi()*k2*k2Returnm从1-200，若该数能被3整除且末位数为5则显示该数。SettalkoffClearFori=1to200Ifmod(i,3)=0.and.mod(i,5)=0.and.mod(i,10)<>0?iEndifEndforSettalkonReturn从键盘上接受一个字符串，统计该字符串中包含的数字字符(0~9)的总个数并显示出来。settalkoffclears=0accept"请输入一个字符串："toan=len(a)fori=1tonj=substr(a,i,1)ifasc(j)>=48.and.asc(j)<=57s=s+1endifendfor?"该字符串数字的个数是：",ssettalkonreturn从键盘上接受一个字符串，以相反的顺序将其显示出来(例如，若输入为“aBxyxty1”，则输出应为“1ytxyxBa”)。settalkoffclears=""accept"请输入一个字符串："toafori=len(a)to1step-1s=s+substr(a,i,1)endfor?"该字符串的相反顺序为："+ssettalkonreturn若基本工资大于等于600元,增加工资20%,若小于600元大于等于400元,则增加工资15%,若小于400元则增加工资10%.请将rsgz.dbf表中的基本工资字段按此规则调整。SETTALKOFFCLEARCLOSEALLUSERsgzDoWhile.not.eof()DoCaseCase基本工资>=600Replace基本工资With基本工资*1.2Case基本工资>=400.and..基本工资<600Replace基本工资With基本工资*1.15Case基本工资<400Replace基本工资With基本工资*1.10EndcaseSkipEnddoUSESETTALKONRETURN设有一张足够大的厚度为0.5毫米的纸，问至少折叠多少次可以达到（或超过）珠穆朗玛峰（8844.43settalkoffclearn=1hight=0.5dowhile.t.hight=hight*2ifhight>=8848130?"折叠次数为：",nexitendifn=n+1enddosettalkonreturn输入三角形的三个边长Ａ、Ｂ、Ｃ，若Ａ、Ｂ、Ｃ能构成三角形，则计算出三角形面积；否则提示“不能构成三角形！”。若构成的三角形为直角三角形，也给出“构成直角三角形”的提示。

积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?"输入的三个边长不能构成三角形！"ENDIFSETTALKONReturn某班学生计算机考试成绩已登记到COMPUTER.DBF自由表的成绩(N)型字段中，另有评估(C型)字段。编程序将每个学生计算机的学习评估：“优秀”(90－100)“良好”(80－89)“中等”(70－79)“及格”(60－69)“不及格”(0－59)，写到评估字段中。SETTALKOFFCLEARCLOSEALLUSECOMPUTERDOWHILE.NOT.EOF()DOCASECASE成绩<60REPLACE评估WITH“不及格”CASE成绩<70REPLACE评估WITH“及格”CASE成绩<80REPLACE评估WITH“中等”CASE成绩<90REPLACE评估WITH“良好”OTHERWISEREPLACE评估WITH“优秀”ENDCASESKIPENDDOUSESETTALKONRETURN已知数据表N_list.dbf中只有一个数值型字段Data，且目前数据表中无记录，是编写程序，从键盘上接受20个数据存放到该数据表中，然后利用索引排序的方式找出这20个数据中的最大数和最小数并显示输出。SettalkoffClearCloseallDimensiona(20)UseN_listFori=1to20J=str(i,2)Input“请输入第&j.个数：”toa(i)AppendblankReplacedatawitha(i)EndforIndexondatatagdaSetordertodaGotop?“最小数是：”,dataGobottom?“最大数是：”,dataUseSettalkonReturn实验报告：表单设计答案在一个表单Form1中，Xs.dbf在表单的数据环境中。有三个按钮command1,command2，command3,command4分别在三个按钮的click事件中编写程序实现如下功能：点击command1，将command2的CAPTION改为“查询”，将command3的Caption改为“浏览”，将command4的Caption改为“退出”。点击command2对总价按售货员分类汇总，生成Xsb.dbf，并显示记录。点击command3浏览总价超过2000的人员信息。点击command4，退出表单运行并关闭数据表Xs.dbf。按钮cmmand1的click事件的代码如下：Tmand2.caption=“查询”Tmand3.caption=“浏览”Tmand4.caption=“退出”按钮cmmand2的click事件的代码如下：SelectxsIndexon售货员tagshySetordertoshyTotalon售货员toxsbfields总价UsexsbBrowse按钮cmmand3的click事件的代码如下：SelectxsBrowsefor总价>2000按钮cmmand4的click事件的代码如下：SelectxsUseThisform.release实现如下表单的功能。（1）、在表单中的数据环境添加数据表Rsgl.dbf。(2)、在表单上添加3个Label、3个Text和4个命令按钮。表单Form1的Caption属性设置为“查询”。Label1、Label2、Label3的Caption属性分别设置为“姓名”、“性别”、“文化程度”。Text1、Text2、Text3的controlsource属性分别和RSGL表中的姓名、性别、文化程度字段绑定。Command1、Command2、Command3、Command4的Caption属性分别设置为“首记录”、“上一条”、“下一条”、“末记录”。(3)、在command1的clcik事件中添加代码如下：GotopThisform.refresh在command2的clcik事件中添加代码如下：Ifnotbof()Skip-1endifThisform.refresh在command3的clcik事件中添加代码如下：Ifnoteof()SkipEndifThisform.refresh在command4的clcik事件中添加代码如下：GobottomThisform.refresh实现如下表单的功能。(1)、在表单上添加2个Label、1个optiongroup、1个Text和1个Shape，调整合适位置和大小。(2)、Label1、Label2的Caption属性分别设置为“选择颜色”、“选中的颜色”。Optiongroup1的Autosize属性设置为.T.，buttoncount属性设置为5。Optiongroup1中的option1、option2、option3、option4、option5的Caption属性分别设置为“红色”、“蓝色”、“绿色”、“黄色”、“白色”，Forecolor属性和Backcolor属性分别设置为所属颜色。(3)、在Optiongroup1的click事件中添加代码如下：Dimensioncolorarray(5)colorarray(1)="rgb(255,0,0)"colorarray(2)="rgb(0,0,255)"colorarray(3)="rgb(0,255,0)"colorarray(4)="rgb(255,255,0)"colorarray(5)="rgb(255,255,255)"thisform.shape1.backcolor=&colorarray(this.value)thisform.text1.value=this.buttons(this.value).captionthisform.refresh实现如下表单的功能。(1)、在表单上添加3个Label、2个List、1个Text，调整合适位置和大小。(2)、Label1、Label2、Label3的Caption属性分别设置为“选项列表”、“追加列表”、“您选择的是”。(3)、在Form1的Init事件中添加代码如下：thisform.list1.additem("宋体")thisform.list1.additem("楷体")thisform.list1.additem("隶书")thisform.list1.additem("幼圆")thisform.list1.additem("华文行楷")在list1的click事件中添加代码如下：thisform.text1.value=this.valuethisform.list2.additem(this.value)thisform.list1.removeitem(this.listindex)实现如下表单的功能。(1)、在表单的数据环境中添加两个数据表分别是RSGL.DBF和RSGZ.DBF。(2)、在表单