VF實驗報告答案

實驗報告：程序設(shè)計答案求圓環(huán)面積，分別用子程序、過程、函數(shù)實現(xiàn)。用子程序?qū)崿F(xiàn)：主程序：SettalkoffClearS=0Input“請輸入大圓的半徑：”tor1Input“請輸入小圓的半徑：”tor2Doareawithr1,r2?“圓環(huán)的面積為：”,sSettalkonReturn子程序：area.prgParametersk1,k2S=Pi()*k1*k1-Pi()*k2*k2Return用過程實現(xiàn)：主程序：SettalkoffClearS=0Input“請輸入大圓的半徑：”tor1Input“請輸入小圓的半徑：”tor2Setproceduretosub1Doareawithr1,r2?“圓環(huán)的面積為：”,sCloseprocedureSettalkonReturn過程文件sub1.prgProcedurearea(k1,k2)S=Pi()*k1*k1-Pi()*k2*k2ReturnEndproc用函數(shù)實現(xiàn)：主程序：SettalkoffClearInput“請輸入大圓的半徑：”tor1Input“請輸入小圓的半徑：”tor2S=area(r1,r2)?“圓環(huán)的面積為：”,sSettalkonReturn函數(shù)：area.prgParametersk1,k2m=Pi()*k1*k1-Pi()*k2*k2Returnm從1-200，若該數(shù)能被3整除且末位數(shù)為5則顯示該數(shù)。SettalkoffClearFori=1to200Ifmod(i,3)=0.and.mod(i,5)=0.and.mod(i,10)<>0?iEndifEndforSettalkonReturn從鍵盤上接受一個字符串，統(tǒng)計該字符串中包含的數(shù)字字符(0~9)的總個數(shù)并顯示出來。settalkoffclears=0accept"請輸入一個字符串："toan=len(a)fori=1tonj=substr(a,i,1)ifasc(j)>=48.and.asc(j)<=57s=s+1endifendfor?"該字符串數(shù)字的個數(shù)是：",ssettalkonreturn從鍵盤上接受一個字符串，以相反的順序?qū)⑵滹@示出來(例如，若輸入為“aBxyxty1”，則輸出應(yīng)為“1ytxyxBa”)。settalkoffclears=""accept"請輸入一個字符串："toafori=len(a)to1step-1s=s+substr(a,i,1)endfor?"該字符串的相反順序為："+ssettalkonreturn若基本工資大于等于600元,增加工資20%,若小于600元大于等于400元,則增加工資15%,若小于400元則增加工資10%.請將rsgz.dbf表中的基本工資字段按此規(guī)則調(diào)整。SETTALKOFFCLEARCLOSEALLUSERsgzDoWhile.not.eof()DoCaseCase基本工資>=600Replace基本工資With基本工資*1.2Case基本工資>=400.and..基本工資<600Replace基本工資With基本工資*1.15Case基本工資<400Replace基本工資With基本工資*1.10EndcaseSkipEnddoUSESETTALKONRETURN設(shè)有一張足夠大的厚度為0.5毫米的紙，問至少折疊多少次可以達到（或超過）珠穆朗瑪峰（8844.43settalkoffclearn=1hight=0.5dowhile.t.hight=hight*2ifhight>=8848130?"折疊次數(shù)為：",nexitendifn=n+1enddosettalkonreturn輸入三角形的三個邊長Ａ、Ｂ、Ｃ，若Ａ、Ｂ、Ｃ能構(gòu)成三角形，則計算出三角形面積；否則提示“不能構(gòu)成三角形！”。若構(gòu)成的三角形為直角三角形，也給出“構(gòu)成直角三角形”的提示。

積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))?"輸入的三個邊長能構(gòu)成三角形，三角形面積=",SIFA**2+B**2=C**2.OR.B**2+C**2=A**2.OR.C**2+A**2=B**2?"構(gòu)成直角三角形."ENDIFELSE?"輸入的三個邊長不能構(gòu)成三角形！"ENDIFSETTALKONReturn某班學生計算機考試成績已登記到COMPUTER.DBF自由表的成績(N)型字段中，另有評估(C型)字段。編程序?qū)⒚總€學生計算機的學習評估：“優(yōu)秀”(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“良好”O(jiān)THERWISEREPLACE評估WITH“優(yōu)秀”ENDCASESKIPENDDOUSESETTALKONRETURN已知數(shù)據(jù)表N_list.dbf中只有一個數(shù)值型字段Data，且目前數(shù)據(jù)表中無記錄，是編寫程序，從鍵盤上接受20個數(shù)據(jù)存放到該數(shù)據(jù)表中，然后利用索引排序的方式找出這20個數(shù)據(jù)中的最大數(shù)和最小數(shù)并顯示輸出。SettalkoffClearCloseallDimensiona(20)UseN_listFori=1to20J=str(i,2)Input“請輸入第&j.個數(shù)：”toa(i)AppendblankReplacedatawitha(i)EndforIndexondatatagdaSetordertodaGotop?“最小數(shù)是：”,dataGobottom?“最大數(shù)是：”,dataUseSettalkonReturn實驗報告：表單設(shè)計答案在一個表單Form1中，Xs.dbf在表單的數(shù)據(jù)環(huán)境中。有三個按鈕command1,command2，command3,command4分別在三個按鈕的click事件中編寫程序?qū)崿F(xiàn)如下功能：點擊command1，將command2的CAPTION改為“查詢”，將command3的Caption改為“瀏覽”，將command4的Caption改為“退出”。點擊command2對總價按售貨員分類匯總，生成Xsb.dbf，并顯示記錄。點擊command3瀏覽總價超過2000的人員信息。點擊command4，退出表單運行并關(guān)閉數(shù)據(jù)表Xs.dbf。按鈕cmmand1的click事件的代碼如下：Tmand2.caption=“查詢”Tmand3.caption=“瀏覽”Tmand4.caption=“退出”按鈕cmmand2的click事件的代碼如下：SelectxsIndexon售貨員tagshySetordertoshyTotalon售貨員toxsbfields總價UsexsbBrowse按鈕cmmand3的click事件的代碼如下：SelectxsBrowsefor總價>2000按鈕cmmand4的click事件的代碼如下：SelectxsUseThisform.release實現(xiàn)如下表單的功能。（1）、在表單中的數(shù)據(jù)環(huán)境添加數(shù)據(jù)表Rsgl.dbf。(2)、在表單上添加3個Label、3個Text和4個命令按鈕。表單Form1的Caption屬性設(shè)置為“查詢”。Label1、Label2、Label3的Caption屬性分別設(shè)置為“姓名”、“性別”、“文化程度”。Text1、Text2、Text3的controlsource屬性分別和RSGL表中的姓名、性別、文化程度字段綁定。Command1、Command2、Command3、Command4的Caption屬性分別設(shè)置為“首記錄”、“上一條”、“下一條”、“末記錄”。(3)、在command1的clcik事件中添加代碼如下：GotopThisform.refresh在command2的clcik事件中添加代碼如下：Ifnotbof()Skip-1endifThisform.refresh在command3的clcik事件中添加代碼如下：Ifnoteof()SkipEndifThisform.refresh在command4的clcik事件中添加代碼如下：GobottomThisform.refresh實現(xiàn)如下表單的功能。(1)、在表單上添加2個Label、1個optiongroup、1個Text和1個Shape，調(diào)整合適位置和大小。(2)、Label1、Label2的Caption屬性分別設(shè)置為“選擇顏色”、“選中的顏色”。Optiongroup1的Autosize屬性設(shè)置為.T.，buttoncount屬性設(shè)置為5。Optiongroup1中的option1、option2、option3、option4、option5的Caption屬性分別設(shè)置為“紅色”、“藍色”、“綠色”、“黃色”、“白色”，F(xiàn)orecolor屬性和Backcolor屬性分別設(shè)置為所屬顏色。(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實現(xiàn)如下表單的功能。(1)、在表單上添加3個Label、2個List、1個Text，調(diào)整合適位置和大小。(2)、Label1、Label2、Label3的Caption屬性分別設(shè)置為“選項列表”、“追加列表”、“您選擇的是”。(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)實現(xiàn)如下表單的功能。(1)、在表單的數(shù)據(jù)環(huán)境中添加兩個數(shù)據(jù)表分別是RSGL.DBF和RSGZ.DBF。(2)、在表單