資源描述：
《VFP常見(jiàn)編程實(shí)例(免費(fèi)下載)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。
1、VFP常見(jiàn)編程實(shí)例1、1-100的累加**求1到100的累加值CLEARs=0i=1DOWHILEi<=100s=s+ii=i+1&&一定記住先累加后循環(huán)ENDDO?sRETURN2、階乘**求5的階乘CLEARj=1i=1DOWHILEi<=5j=j*ii=i+1ENDDO?jRETURN3、求階乘和**求1至5的階乘和CLEARs=0i=1j=1DOWHILEi<=5j=j*is=s+ji=i+1ENDDO?sRETURN4、條件定位**查詢定位記錄指針在趙偉上CLEARUSE學(xué)生LOCATEFOR姓名="趙偉"IFFOUND()DISPLAYELSECANCE
2、LENDIFCONTINUE5、用scan語(yǔ)句查詢定位**用scan語(yǔ)句查詢定位記錄在趙偉上CLEARSCANFOR姓名="趙偉"DISPLAYENDSCANRETURN6、用scan語(yǔ)句掃描符合條件的記錄，并顯示出來(lái)**把年齡小于30歲的人顯示出來(lái)CLEARSCANFOR年齡<30DISPLAYENDSCANRETURN7、查找男性職工**查找男性職工CLEARLOCATEFOR性別="男"DOWHILEFOUND()DISPLAYCONTINUEENDDORETURN**查找男性職工CLEARLOCATEFOR性別="男"DOWHILENOTEOF()DISPL
3、AYCONTINUEENDDORETURN**查找男性職工CLEARUSE職員基本信息表LOCATEFOR性別="男"DOWHILE.t.IFFOUND()thenDISPLAYELSE &&記住最后一個(gè)ELSE語(yǔ)句后面不需要條件表達(dá)式CANCELENDIFCONTINUEENDDO**查找男性職工settalkoffclearopendatabase家庭成員管理.dbcusestu.dbfscanfornoteof()ifxb="女"skipelsedisplayskipendifendscanclosedatabaseusesettalkonreturn8、新值
4、換舊值**有一對(duì)新生的兔子，從第三個(gè)月開(kāi)始，每個(gè)月出生一對(duì)兔子，請(qǐng)問(wèn)到第十二個(gè)月共出生多少對(duì)兔子？clearstore1toa,bi=3dowhilei<=12c=a+ba=bb=ci=i+1enddo?"一年共出生兔子：",creturn9、多位整數(shù)各個(gè)位數(shù)相加**求多位整數(shù)各個(gè)位數(shù)之和CLEARs=0input"請(qǐng)輸入一個(gè)多位整數(shù):"toaDOWHILEa<>0s=s+MOD(a,10)&&將a取余正好是個(gè)位上的數(shù)a=INT(a/10)&&將a除10取整正好是除個(gè)位之后的數(shù)ENDDO?"這個(gè)整數(shù)的各個(gè)位數(shù)之和是：",sRETURN10、找100-999之間的“水
5、仙花數(shù)”CLEARFORi=100TO999a=INT(i/100)b=INT((i-100*a)/10)c=i-INT(i/10)*10IFi=a^3+b^3+c^3?iENDIFENDFORRETURN11、判斷一個(gè)大于3的數(shù)是否為素?cái)?shù)CLEARinput"請(qǐng)輸入一個(gè)數(shù)(>=3):"tosf=0i=2DOWHILEi<=INT(SQRT(s))IFMOD(s,i)<>0i=i+1LOOPELSEf=1EXITENDIFENDDOIFf=0?str(s,3)+"是素?cái)?shù)"ELSEf=1 &&這個(gè)表達(dá)式可有可無(wú)，為了省事完全省略也可以。一般最后一個(gè)ELSE語(yǔ)句后面不
6、需要表達(dá)式?str(s,3)+"不是素?cái)?shù)"ENDIFRETURN12、求一個(gè)班級(jí)每個(gè)學(xué)生的平均成績(jī)**計(jì)算一個(gè)班級(jí)共三十名學(xué)生，每位學(xué)生5門(mén)功課的平均成績(jī)CLEAR&&清屏DIMENSIONx(30,5)&&定義一個(gè)數(shù)組變量，r為學(xué)生數(shù)，i為功課數(shù)r=1&&給30個(gè)學(xué)生的計(jì)數(shù)變量r賦初值1DOWHILEr<=30&&循環(huán)30次，以計(jì)算出30個(gè)學(xué)生的平均成績(jī)s=0&&為學(xué)生一門(mén)功課成績(jī)賦初值0i=1&&為五門(mén)功課計(jì)數(shù)變量賦初值1DOWHILEi<=5&&為一個(gè)學(xué)生的五門(mén)功課成績(jī)累加5次input"請(qǐng)輸入學(xué)生的成績(jī)"tox(r,i)s=s+x(r,i)&&成績(jī)累加i=i
7、+1&&功課累加ENDDO&&返回內(nèi)循環(huán)?"這名學(xué)生的平均成績(jī)是：",s/5&&顯示平均成績(jī)r(jià)=r+1&&學(xué)生累加ENDDO&&返回外循環(huán)13、計(jì)算圓的面積*計(jì)算圓的面積程序CLEARinput"請(qǐng)輸入半徑的值"torinput"請(qǐng)輸入pi的值"topis=pi*r^2?"圓的面積是",sRETURN14、將小寫(xiě)字母轉(zhuǎn)換為大寫(xiě)字母NOTE請(qǐng)將任意輸入的一個(gè)小寫(xiě)字母轉(zhuǎn)換成大寫(xiě)字母，也就是upper()函數(shù)的程序?qū)崿F(xiàn)CLEAR&&請(qǐng)屏WAIT"請(qǐng)輸入一個(gè)小寫(xiě)字母"tox&&交互式輸入一個(gè)小寫(xiě)字母k=ASC(x)&&將小寫(xiě)字母的ASC碼賦值給變量KIFk>=97AND
