VFP常見編程實(shí)例

《VFP常見編程實(shí)例》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、VFP常見編程實(shí)例1、1-100的累加**求1到100的累加值CLEARs=0i=1DOWHILEi<=100?s=s+i?i=i+1ENDDO?sRETURN2、階乘**求5的階乘CLEARj=1i=1DOWHILEi<=5?j=j*i?i=i+1ENDDO?jRETURN3、求階乘和**求1至5的階乘和CLEARs=0i=1j=1DOWHILEi<=5j=j*is=s+ji=i+1ENDDO?sRETURN4、條件定位**查詢定位記錄指針在趙偉上CLEARUSE學(xué)生LOCATEFOR姓名="趙偉"IFFOUND()?DIS

2、PLAYELSE?CANCELENDIFCONTINUE5、用scan語句查詢定位**用scan語句查詢定位記錄在趙偉上CLEARSCANFOR姓名="趙偉"DISPLAYENDSCANRETURN?6、用scan語句掃描符合條件的記錄，并顯示出來**把年齡小于30歲的人顯示出來CLEARSCANFOR年齡<30DISPLAYENDSCANRETURN?7、查找男性職工**查找男性職工CLEARLOCATEFOR性別="男"DOWHILEFOUND()?DISPLAY?CONTINUEENDDORETURN?**查找男性職工C

3、LEARLOCATEFOR性別="男"DOWHILENOTEOF()?DISPLAY?CONTINUEENDDORETURN?**查找男性職工CLEARUSE職員基本信息表LOCATEFOR性別="男"DOWHILE.t.?IFFOUND()then???DISPLAY?ELSE???CANCEL?ENDIF?CONTINUEENDDO?8、新值換舊值**有一對(duì)新生的兔子，從第三個(gè)月開始，每個(gè)月出生一對(duì)兔子，請(qǐng)問到第十二個(gè)月共出生多少對(duì)兔子？clearstore1toa,bi=3dowhilei<=12c=a+ba=bb=ci

4、=i+1enddo?"一年共出生兔子：",creturn?9、多位整數(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ù)之和是：",sRETURN?10、找100-999之間的“水仙花數(shù)”CLEARFORi=100TO999?a=INT(i/100)?b=INT((i-100*a)/10)?c=i-INT(i/

5、10)*10?IFi=a^3+b^3+c^3??i?ENDIFENDFORRETURN?11、判斷一個(gè)大于3的數(shù)是否為素?cái)?shù)CLEARinput"請(qǐng)輸入一個(gè)數(shù)(>=3):"tosf=0i=2DOWHILEi<=INT(SQRT(s))?IFMOD(s,i)<>0?i=i+1?LOOP?ELSE?f=1?EXIT?ENDIFENDDO?IFf=0??str(s,3)+"是素?cái)?shù)"?ELSEf=1??str(s,3)+"不是素?cái)?shù)"?ENDIFRETURN?12、求一個(gè)班級(jí)每個(gè)學(xué)生的平均成績**計(jì)算一個(gè)班級(jí)共三十名學(xué)生，每位學(xué)生5門功課

6、的平均成績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é)生的平均成績?s=0????&&為學(xué)生一門功課成績賦初值0?i=1????&&為五門功課計(jì)數(shù)變量賦初值1?DOWHILEi<=5&&為一個(gè)學(xué)生的五門功課成績累加5次??input"請(qǐng)輸入學(xué)生的成績"tox(r,i)??s=s+x(r,i)?&&成績累加??i=i+1??????&&功課累加??ENDDO

7、???????&&返回內(nèi)循環(huán)??"這名學(xué)生的平均成績是：",s/5???????&&顯示平均成績??r=r+1????????&&學(xué)生累加ENDDO?????????&&返回外循環(huán)?13、計(jì)算圓的面積*計(jì)算圓的面積程序CLEARinput"請(qǐng)輸入半徑的值"torinput"請(qǐng)輸入pi的值"to?pis=pi*r^2?"圓的面積是",sRETURN?14、將小寫字母轉(zhuǎn)換為大寫字母NOTE請(qǐng)將任意輸入的一個(gè)小寫字母轉(zhuǎn)換成大寫字母，也就是upper()函數(shù)的程序?qū)崿F(xiàn)CLEAR??&&請(qǐng)屏WAIT"請(qǐng)輸入一個(gè)小寫字母"tox??&&交

8、互式輸入一個(gè)小寫字母k=ASC(x)??&&將小寫字母的ASC碼賦值給變量KIFk>=97ANDk<=122then??&&97是小寫字母a的ASC碼值，122是小寫字母z的ASC碼值??x,"的大寫字母是",CHR(k-32)??&&輸出大寫字母.chr函數(shù)是ASC碼所對(duì)應(yīng)