王彥祺版vfp課后實(shí)驗(yàn)編程題答案

1、一.順序結(jié)構(gòu)順序結(jié)構(gòu)1.1.從鍵盤輸入長(zhǎng)方體的長(zhǎng)、寬、高，求長(zhǎng)方體的表面積。從鍵盤輸入長(zhǎng)方體的長(zhǎng)、寬、高，求長(zhǎng)方體的表面積。inputinput“輸入長(zhǎng)方體的長(zhǎng)：輸入長(zhǎng)方體的長(zhǎng)：”totoxinputinput“輸入長(zhǎng)方體的寬：輸入長(zhǎng)方體的寬：”totoyinputinput“輸入長(zhǎng)方體的高：輸入長(zhǎng)方體的高：”totozs=2xy2xz2yzs=2xy2xz2yz””長(zhǎng)方體的表面積為：長(zhǎng)方體的表面積為：”s”s2.2.從鍵盤輸入圓的半徑

2、，計(jì)算圓的面積。從鍵盤輸入圓的半徑，計(jì)算圓的面積。inputinput“輸入圓的半徑：輸入圓的半徑：”totors=3.14r^2s=3.14r^2””圓的面積為：圓的面積為：”s”s二.選擇結(jié)構(gòu)選擇結(jié)構(gòu)1.1.從鍵盤輸入一個(gè)數(shù)，若為正數(shù)則輸出，非正數(shù)則結(jié)束。從鍵盤輸入一個(gè)數(shù)，若為正數(shù)則輸出，非正數(shù)則結(jié)束。input“輸入一個(gè)數(shù)：”toxifx0xendifreturn2.2.求一元二次方程求一元二次方程AXAX2BXC=0BXC=0的

3、實(shí)根。的實(shí)根。input“輸入系數(shù)A：”toainput“輸入系數(shù)B：”tobinput“輸入系數(shù)C：”tocm=b^24acifm=0x1=(bsqrt(m))(2a)x2=(bsqrt(m))(2a)”x1=”x1”x2=”x2else”方程無實(shí)根！”endif3.3.判斷是否是閏年判斷是否是閏年.CLEARinput“輸入一個(gè)年份“toy&&請(qǐng)保證輸入的是數(shù)字，不再做錯(cuò)誤處理IFy%4==0..y%100!=0..y%400==0

4、MESSAGEBOX(“是閏年“)ELSEMESSAGEBOX(“不是閏年“)ENDIF4.4.從鍵盤輸入一個(gè)待查學(xué)生的學(xué)號(hào)，在表從鍵盤輸入一個(gè)待查學(xué)生的學(xué)號(hào)，在表XSQK.DBFXSQK.DBF中查找。若能找到，則顯中查找。若能找到，則顯示該記錄，否則，顯示信息“該學(xué)號(hào)不存在”。示該記錄，否則，顯示信息“該學(xué)號(hào)不存在”。usexsqkaccept“輸入待查學(xué)生學(xué)號(hào)：”toxreturn8.編寫根據(jù)當(dāng)前日期顯示當(dāng)前季節(jié)的程序。編寫根據(jù)當(dāng)

5、前日期顯示當(dāng)前季節(jié)的程序。clearinput“請(qǐng)輸入日期：“todm=month(d)docasecasem=3m=6m=9m=11“秋季“otherwise“冬季“endcasereturn9編寫程序，輸入一個(gè)數(shù)字（編寫程序，輸入一個(gè)數(shù)字（0～7），顯示其對(duì)應(yīng)星期幾的中英文信息。），顯示其對(duì)應(yīng)星期幾的中英文信息。clearinput“請(qǐng)輸入一個(gè)數(shù)字：“tondocasecasen=1M=“星期一(Monday)“casen=2M=“

6、星期二（Tuesday）“casen=3M=“星期三（Wednesday）“casen=4M=“星期四（Thursday）“casen=5M=“星期五（Friday）“casen=6M=“星期六（Saturday）“casen=0M=“星期日（Sunday）“otherwiseM=“重新輸入“endcase“您輸入的是：“Mreturn10.10.設(shè)計(jì)個(gè)人納稅計(jì)算程序?！岸惙ā币?guī)定，使用超額累進(jìn)稅率，以每月收入設(shè)計(jì)個(gè)人納稅計(jì)算程序?！岸?/p>