VF實(shí)驗(yàn)報(bào)告答案

實(shí)驗(yàn)報(bào)告：程序設(shè)計(jì)答案求圓環(huán)面積，分別用子程序、過(guò)程、函數(shù)實(shí)現(xiàn)。用子程序?qū)崿F(xiàn)：主程序：SettalkoffClearS=0Input“請(qǐng)輸入大圓的半徑：”tor1Input“請(qǐng)輸入小圓的半徑：”tor2Doareawithr1,r2?“圓環(huán)的面積為：”,sSettalkonReturn子程序：area.prgParametersk1,k2S=Pi()*k1*k1-Pi()*k2*k2Return用過(guò)程實(shí)現(xiàn)：主程序：SettalkoffClearS=0Input“請(qǐng)輸入大圓的半徑：”tor1Input“請(qǐng)輸入小圓的半徑：”tor2Setproceduretosub1Doareawithr1,r2?“圓環(huán)的面積為：”,sCloseprocedureSettalkonReturn過(guò)程文件sub1.prgProcedurearea(k1,k2)S=Pi()*k1*k1-Pi()*k2*k2ReturnEndproc用函數(shù)實(shí)現(xiàn)：主程序：SettalkoffClearInput“請(qǐng)輸入大圓的半徑：”tor1Input“請(qǐng)輸入小圓的半徑：”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從鍵盤(pán)上接受一個(gè)字符串，統(tǒng)計(jì)該字符串中包含的數(shù)字字符(0~9)的總個(gè)數(shù)并顯示出來(lái)。settalkoffclears=0accept"請(qǐng)輸入一個(gè)字符串："toan=len(a)fori=1tonj=substr(a,i,1)ifasc(j)>=48.and.asc(j)<=57s=s+1endifendfor?"該字符串?dāng)?shù)字的個(gè)數(shù)是：",ssettalkonreturn從鍵盤(pán)上接受一個(gè)字符串，以相反的順序?qū)⑵滹@示出來(lái)(例如，若輸入為“aBxyxty1”，則輸出應(yīng)為“1ytxyxBa”)。settalkoffclears=""accept"請(qǐng)輸入一個(gè)字符串："toafori=len(a)to1step-1s=s+substr(a,i,1)endfor?"該字符串的相反順序?yàn)椋?+ssettalkonreturn若基本工資大于等于600元,增加工資20%,若小于600元大于等于400元,則增加工資15%,若小于400元?jiǎng)t增加工資10%.請(qǐng)將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毫米的紙，問(wèn)至少折疊多少次可以達(dá)到（或超過(guò)）珠穆朗瑪峰（8844.43settalkoffclearn=1hight=0.5dowhile.t.hight=hight*2ifhight>=8848130?"折疊次數(shù)為：",nexitendifn=n+1enddosettalkonreturn輸入三角形的三個(gè)邊長(zhǎng)Ａ、Ｂ、Ｃ，若Ａ、Ｂ、Ｃ能構(gòu)成三角形，則計(jì)算出三角形面積；否則提示“不能構(gòu)成三角形！”。若構(gòu)成的三角形為直角三角形，也給出“構(gòu)成直角三角形”的提示。

積S=式中W=(A+B+C)／2SETTALKOFFCLEARINPUT"請(qǐng)輸入三角形的第一邊長(zhǎng)度："TOAINPUT"請(qǐng)輸入三角形的第二邊長(zhǎng)度："TOBINPUT"請(qǐng)輸入三角形的第三邊長(zhǎng)度："TOCIFA+B>C.AND.B+C>A.AND.C+A>BW=(A+B+C)/2S=SQRT(W*(W-A)*(W-B)*(W-C))?"輸入的三個(gè)邊長(zhǎng)能構(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è)邊長(zhǎng)不能構(gòu)成三角形！"ENDIFSETTALKONReturn某班學(xué)生計(jì)算機(jī)考試成績(jī)已登記到COMPUTER.DBF自由表的成績(jī)(N)型字段中，另有評(píng)估(C型)字段。編程序?qū)⒚總€(gè)學(xué)生計(jì)算機(jī)的學(xué)習(xí)評(píng)估：“優(yōu)秀”(90－100)“良好”(80－89)“中等”(70－79)“及格”(60－69)“不及格”(0－59)，寫(xiě)到評(píng)估字段中。SETTALKOFFCLEARCLOSEALLUSECOMPUTERDOWHILE.NOT.EOF()DOCASECASE成績(jī)<60REPLACE評(píng)估WITH“不及格”CASE成績(jī)<70REPLACE評(píng)估WITH“及格”CASE成績(jī)<80REPLACE評(píng)估WITH“中等”CASE成績(jī)<90REPLACE評(píng)估WITH“良好”O(jiān)THERWISEREPLACE評(píng)估WITH“優(yōu)秀”ENDCASESKIPENDDOUSESETTALKONRETURN已知數(shù)據(jù)表N_list.dbf中只有一個(gè)數(shù)值型字段Data，且目前數(shù)據(jù)表中無(wú)記錄，是編寫(xiě)程序，從鍵盤(pán)上接受20個(gè)數(shù)據(jù)存放到該數(shù)據(jù)表中，然后利用索引排序的方式找出這20個(gè)數(shù)據(jù)中的最大數(shù)和最小數(shù)并顯示輸出。SettalkoffClearCloseallDimensiona(20)UseN_listFori=1to20J=str(i,2)Input“請(qǐng)輸入第&j.個(gè)數(shù)：”toa(i)AppendblankReplacedatawitha(i)EndforIndexondatatagdaSetordertodaGotop?“最小數(shù)是：”,dataGobottom?“最大數(shù)是：”,dataUseSettalkonReturn實(shí)驗(yàn)報(bào)告：表單設(shè)計(jì)答案在一個(gè)表單Form1中，Xs.dbf在表單的數(shù)據(jù)環(huán)境中。有三個(gè)按鈕command1,command2，command3,command4分別在三個(gè)按鈕的click事件中編寫(xiě)程序?qū)崿F(xiàn)如下功能：點(diǎn)擊command1，將command2的CAPTION改為“查詢(xún)”，將command3的Caption改為“瀏覽”，將command4的Caption改為“退出”。點(diǎn)擊command2對(duì)總價(jià)按售貨員分類(lèi)匯總，生成Xsb.dbf，并顯示記錄。點(diǎn)擊command3瀏覽總價(jià)超過(guò)2000的人員信息。點(diǎn)擊command4，退出表單運(yùn)行并關(guān)閉數(shù)據(jù)表Xs.dbf。按鈕cmmand1的click事件的代碼如下：Tmand2.caption=“查詢(xún)”Tmand3.caption=“瀏覽”Tmand4.caption=“退出”按鈕cmmand2的click事件的代碼如下：SelectxsIndexon售貨員tagshySetordertoshyTotalon售貨員toxsbfields總價(jià)UsexsbBrowse按鈕cmmand3的click事件的代碼如下：SelectxsBrowsefor總價(jià)>2000按鈕cmmand4的click事件的代碼如下：SelectxsUseThisform.release實(shí)現(xiàn)如下表單的功能。（1）、在表單中的數(shù)據(jù)環(huán)境添加數(shù)據(jù)表Rsgl.dbf。(2)、在表單上添加3個(gè)Label、3個(gè)Text和4個(gè)命令按鈕。表單Form1的Caption屬性設(shè)置為“查詢(xún)”。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實(shí)現(xiàn)如下表單的功能。(1)、在表單上添加2個(gè)Label、1個(gè)optiongroup、1個(gè)Text和1個(gè)Shape，調(diào)整合適位置和大小。(2)、Label1、Label2的Caption屬性分別設(shè)置為“選擇顏色”、“選中的顏色”。Optiongroup1的Autosize屬性設(shè)置為.T.，buttoncount屬性設(shè)置為5。Optiongroup1中的option1、option2、option3、option4、option5的Caption屬性分別設(shè)置為“紅色”、“藍(lán)色”、“綠色”、“黃色”、“白色”，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實(shí)現(xiàn)如下表單的功能。(1)、在表單上添加3個(gè)Label、2個(gè)List、1個(gè)Text，調(diào)整合適位置和大小。(2)、Label1、Label2、Label3的Caption屬性分別設(shè)置為“選項(xiàng)列表”、“追加列表”、“您選擇的是”。(3)、在Form1的Init事件中添加代碼如下：thisform.list1.additem("宋體")thisform.list1.additem("楷體")thisform.list1.additem("隸書(shū)")thisform.list1.additem("幼圓")thisform.list1.additem("華文行楷")在list1的click事件中添加代碼如下：thisform.text1.value=this.valuethisform.list2.additem(this.value)thisform.list1.removeitem(this.listindex)實(shí)現(xiàn)如下表單的功能。(1)、在表單的數(shù)據(jù)環(huán)境中添加兩個(gè)數(shù)據(jù)表分別是RSGL.DBF和RSGZ.DBF。(2)、在表單