VFP筆試試題復(fù)習(xí)

1、4.2. 1表操作題78統(tǒng)計出rsda.dbf表中職稱為“工程師”的人數(shù)，Use rsda , store 0 to s , locate for 職稱=“工程師” ， do while not eof() , s=s+1 , continue , enddo 461 計算機等級考試成績 筆試和上機均大于等于80 優(yōu)秀Use student , do while .not.eof() , if 筆試>=80 and 上機>=80 , REPL 等級 with“優(yōu)秀” , endif , skip , enddo , list462 由工資表。Dbf 按性別匯總工資Use 工資表 ，

2、 index on 性別 to sy , total on 性別 to 匯總.dbf fildes 工資 ， use 匯總 ， list 4.2.2求和題：437計算num的各位上的數(shù)字之和，將結(jié)果存入變量out中，用DO WHILE實現(xiàn)。 s=0 , DO WHILE num<>0, s=s+num%10, num=int(num/10), enddo , out=s , ?out.457求p=1-1/（2*2）+1/(3*3)-1/(4*4)+1/(5*5)結(jié)果存在out中，用 DO WHILE實現(xiàn)P=0, M=1, DO WHILE M<=5 , P=P+(-1)(M+

3、1)/(M*M), M=M+1, ENDDO , ?"P=",P ,OUT=P414求p=1+1/（2*2）+1/(3*3)+1/(10*10)將結(jié)果存入變量out中，用DO WHILE實現(xiàn)P=0, M=1, DO WHILE M<=10 ， P=P+1/(M*M) , M=M+1 , ENDDO , ?”P=”,P , OUT=P73輸出10到50之間所有能被7整除的數(shù)（用do while實現(xiàn)）并將這些數(shù)存入out中i=10 , S=0 , do while i<=50 , if i%7=0 , ?i , S=S+i , endif , i=i+1 , end

4、do , OUT=s79用子程序求出115之間的能被3整除的整數(shù)的平方和。將結(jié)果存入變量OUT中，要求用for循環(huán)實現(xiàn)。N=1 , S=0 , FOR N=1 TO 15 , IF N%3=0 , S=S+N*N , ENDIF , ENDFOR , ?S , SET TALK ON , OUT=S86用循環(huán)求出115之間能被3整除的整數(shù)的階乘和存入變量out中，要求用for循環(huán)語句T=1 , FOR N=1 TO 15 , T=T*N , IF N%3=0 , OUT=OUT+T , ENDIF , ENDFOR , ?OUT 87從鍵盤輸入一個整數(shù)，輸出所有能整除該數(shù)，并且本身也能被3整除

5、的數(shù)的和。（eg 輸入6，輸出3,6）結(jié)果存于變量x中，要求用for實現(xiàn)。FOR N=1 TO A , IF A%N=0.AND.N%3=0 , ?N , x=x+N ， ENDIF , ENDFOR71求出并顯示3！+4！+5！的值，將結(jié)果存入變量out中，要求用for編程。S=0 , FOR I=3 TO 5 , p=1 , FOR J=1 TO I , p=p*J , ENDFOR , S=S+p ， endfor ， ？“3！+4！+5！的值是：”，s ， OUT=S93求1200間的所有偶數(shù)的和，結(jié)果輸入變量OUT中，要求用for循環(huán)語句實現(xiàn)。S=0 , FOR I=1TO 200

6、， IF I/2=INT(I/2) , S=S+I , ENDIF , ENDFOR , ?S , OUT=S97編程打印一數(shù)列，前兩個數(shù)是0、1，第三個數(shù)是前兩個數(shù)之和，以后每個數(shù)都是其前兩個數(shù)之和。編程求出第20個數(shù)，將結(jié)果存入out中，要求用for循環(huán)語句實現(xiàn)a=0 , B=1 , for i=3 to 20 , c=a+b , a=b , b=c , endfor , ?”c=”,c , out=c455編程求sum=3-33+333-3333+33333S=0 , t=0 , d=3 , for i=1 to 5 , t=t+d , s=s+t*(-1)(i+1) , d=d*10

7、, endfor , out=s , ? out454求 sum=1/3+1/33+1/333+1/3333+1/33333S=0 , t=0 , d=3 , for i=1 to 5 , t=t+d , s=s+1/t , d=d*10 , endfor , out=s , ? out450fibonacci 數(shù)列第28項的值。第一項為1，第二項也為1，。Store 1 to f1,f2 , f=f1+f2 , for i=3 to 27 , f1=f2 , f2=f , f=f1+f2 , endfor , out=f , ? out449s=2/1+3/2+5/3+8/5+13/8+21

8、/13+34/21f1=1 , f2=1 , s=0 , for i=1 to 7 , f3=f1+f2 , f1=f2 , f2=f3 , s=s+f2/f1 , endfor , out=s , ? out444 a1=1 , a2=1/(1+a1) , a3=1/(1+a2) .an=1/(1+a(n-1)當n=10 ,求s=a1+a2+.+a10a=1 , s=1 , for i=1 to 9 , a=1.0/(1+a) , s=s+a , endfor , out=s , ? out445 a1=1 , a2=1/(1+a1) , a3=1/(1+a2) .an=1/(1+a(n-1

9、)當n=10 ,求s=a1-a2+a3-a4.-a10a=1 , s=1 , for i=1 to 9 , a=1.0/(1+a) , s=s+a*(-1)i , endfor , out=s , ? out435 sum=3+33+333+3333+33333+333333S=0 , t=0 , d=3 , for i=1 to 5 , t=t+d , s=s+t , d=d*10 , endfor , out=s , ? out431 分數(shù)序列2/1, 3/2,5/3,8/5,13/8,21/13.前20項之和F1=1 , f2=1 , s=0 , for i=1 to 20 , f3=f

10、1+f2 , f1=f2 , f2=f3 , s=s+f2/f1 , endfor , out=s , ? out422 a1=1 , a2=1/(1+a1) , a3=1/(1+a2) .an=1/(1+a(n-1) 求a10a=1 , for i=1 to 9 , a=1.0/(1+a) , endfor , out=s , ? out427 y=1-1/3+1/5-1/7+1/9S=1 , for i=1 to 4 , s=s+(-1)i/(2*i+1) , endfor , out=s , ? out428y=1-1/2+1/4-1/6+1/8-1/10S=1 , for i=1 to

11、 5 , s=s+(-1)i/(2*i) , endfor , out=s , ? out4.2.4最大（?。┲?7任意數(shù)三個數(shù)從大到小排序If x<y , k=x , x=y , y=k , endif , If x<z , k=x , x=z , z=k , endif , If y<z , k=y , y=z , z=k , endif , ?x,y,z , a=x , b=y , c=z 94輸入三個數(shù)找出最大和最小Ma=a , mi=a , if b>a , ma=b , endif , if mi>b , mi=b , endif , if ma<

12、;c , ma=c , endif , if mi>c , mi=c , endif 439求1*1+2*2+。+n*n<=1000中滿足條件的最大的nS=0 , n=1 , do while s<=1000 , n=n+1 , s=s+n*n , enddo , out=n-1 , ? out 4.2.5字符處理類74在屏幕上縱向輸出"計算機等級考試"。S=”計算機等級考試” ， i=1 , do while i<14 , ?”SUBS(S,I,2)” , IF I=9 , Y=SUBS(S,I,2) , endif , i=i+2 , enddo

13、 91輸入一個三位數(shù)，將個十百位順序拆開分別存入變量s中，用加號分隔。如輸入345分開后為 要求用dowhile 實現(xiàn)。do while n>10 , a=n%10 , s=”+”+str(int(a),1)+s , n=n-a , n=n/10 , enddo , s=subs(s,2,len(s) 426編程統(tǒng)計一個長度為2的字符串在另一個字符串中出現(xiàn)的次數(shù)。例如。將結(jié)果存入out中要求用dowhile實現(xiàn)I=0 , n=0 , do while i<=len(str1)-1 , if str2=substr(str1,I,2) , n=n+1 , endif i=i+1 ,

14、enddo , out=n , ? out85從鍵盤輸入一個漢字字符串，送入變量s中，將它逆向存入變量Y中，如：輸入"計算機考試"，輸出為"試考機算計"，要求用for循環(huán)實現(xiàn)。For n=1 to len(s)-1 step 2 , y=y+subs(s,len(s)-n,2) , endfor416過濾已存在字符串變量str中的內(nèi)容，只保留串中的字母字符，并統(tǒng)計新生成串中包含的字母個數(shù)。將生成的結(jié)果字符串存入變量out中。N=len(str) , L=0 , S=” , for i=1 to n , if substr(str,i,1)<=Z a

15、nd substr(str,i,1)>=A or substr(str,i,1)<=z and substr(str,i,1)>=a , L=L+1 , S=S+ substr(str,i,1) , endif , endfor , ?”s=”,s , out=s 456編程將一個由四個數(shù)字組成的字符串轉(zhuǎn)換為每兩個數(shù)字間有一個字符"*"的形式輸出。例如輸入"4567"，應(yīng)輸出"4*5*6*7"。將結(jié)果存入變量out中。Spc=”*” , s=” , for i=1 to len(str)-1 , s=s+ subst

16、r(str,i,1)+spc , endfor , s=s+ substr(str,i,1) , out=s , ? out,len(out)436編程將一個由四個數(shù)字組成的字符串轉(zhuǎn)換為每兩個數(shù)字間有一個空格的形式輸出。例如輸入"4567"，應(yīng)輸出"4 5 6 7"，將結(jié)果存入變量out中，要求用for循環(huán)語句實現(xiàn)。Spc=space(1) , s=” , for i=1 to len(str)-1 , s=s+ substr(str,i,1)+spc , endfor , s=s+ substr(str,i,1) , out=s , ? out,len

17、(out)4.2.6圖形題92計算并在屏幕上顯示乘法表，將各部分結(jié)果相加存入變量z中，要求用dowhile實現(xiàn)。X=1 , ? , do while x<=9 , y=1 , do while y<=x , ?str(y,1)+x+str(x,1)+=+str(x*y,2)+ , z=z+x*y , y=y+1 , enddo , ? , x=x+1 , enddo 75輸出圖形* * * *(要求使用for語句，利用雙重循環(huán)語句)要求：將第三行的所有字符存入變量s中For i=1 to 4 , for j=1 to i , ?”*” , endfor , ? , endfor82

18、利用循環(huán)程序輸出圖形：1 222. 33333. 4444444并將輸出第三行存入變量s中。N=1 , for n=1 to 4 , ?space(4-n) , for m=1 to 2*n-1 , ?str(n,1) , endfor , endfor , set talk on , s=”33333” 84利用循環(huán)輸出圖形：4 333 22222 1111111并將最后一行存入變量s中。For n=1 to 4 , ?space(4-n) , for m=1 to 2*n-1 , ?str(4-n+1,1) , endfor , endfor , s=”1111111”4.2.7數(shù)組題45

19、2求max-min=Store array(1) to max,min , for i=1 to 10 , if array(i)>max , max=array(i) , endif , if array(i)<min , min=array(i) , endif , endfor , out=max-min , ? out451求max+minStore array(1) to max,min , for i=1 to 10 , if array(i)>max , max=array(i) , endif , if array(i)<min , min=array(

20、i) , endif , endfor , out=max+min , ? out446找出正整數(shù)中的最小的偶數(shù)，M=100 , for i=1 to 10 , if array(i)%2=0 , if min>array(i) , min=array(i) , endif , endif , endfor , out=min , ? out447找出正整數(shù)中的最小的奇數(shù)，Min=array（1） , for i=1 to 10 , if array(i)%2！=0 , if min>array(i) , min=array(i) , endif , endif , endfor

21、, out=min , ? out448找出正整數(shù)中的最大的奇數(shù)，Max=array（1） , for i=1 to 10 , if array(i)%2！=0 , if max<array(i) , max=array(i) , endif , endif , endfor , out=max , ? out453 求max*minStore array(1) to max,min , for i=1 to 10 , if array(i)>max , max=array(i) , endif , if array(i)<min , min=array(i) , endif

22、 , endfor , out=max*min , ? out429求一組數(shù)中大于平均值的個數(shù)S=0 , for i=1 to 10 , s=s+array(i) , endfor , s=s/10 , n=0 , for j=1 to 10 , if array(j)>s , n=n+1 , endif , endfor , out=n , ? out430找出正整數(shù)中的最大的偶數(shù)，Max=array（1） , for i=1 to 10 , if array(i)%2=0 , if max<array(i) , max=array(i) , endif , endif , en

23、dfor , out=max , ? out4.2.8其他類69輸入三角形的邊長，輸入邊長滿足兩邊之和大于第三邊，且為正值。計算并輸出三角形的面積s；若不滿足以上條件，顯示輸出"不能構(gòu)成三角形"。將面積值存入變量area中。S=(a+b+c)/2 , if a+b>c and b+c>a and a+c>b and a>0 and b>0 and c>0 , area=sqrt(s*(s-a)*(s-b)*(s-c) , else , ? "不能構(gòu)成三角形" , area=-1 , endif 72 編程求p_-1*(

24、1*2)*(1*2*3)*.*(1*2*3*.*N). P=1 , for i=1 to n , q=1 , for j=1 to i ， q=q*j , endfor , p=p*q , endfor , out=p80從鍵盤輸入一個數(shù)，如果該數(shù)字大于0，通過子程序輸出該數(shù)字作為半徑的圓面積；如果該數(shù)字小于等于0，則輸出"不能作為圓的半徑"。將結(jié)果存入變量out中If a>0 , out=a*a*3.14 , else , out= -1 , endif 166計算下列分段函數(shù)：當輸入x時，顯示輸出y 要求用docase實現(xiàn)Do case , case x<1

25、 , y=x*3 , cae x>=1 and x<10 , y=x2 , otherwise , y=7*x-4 , endcase , ?y415判斷一個三位數(shù)是否為"水仙花數(shù)"，輸出判斷結(jié)果。是為1，否為0。Bw=int(n/100) , sw=int(n-bw*100)/10) , gw=n%10 , if n= bw*bw*bw+ sw*sw*sw+ gw*gw*gw , out=1 , else , out=0 , endif , ? out 418判斷整數(shù)w的各位數(shù)字平方之和能否被5整除，可以則返回1，否則返回0S=0 , do while w>0 , s=s+(w%10)*(w%10) , w=int(w/10) , enddo , if s %5=0 , out=1 , else , out=0 , endif , ? out 419求一個大于10的n位整數(shù)的后n-1位的數(shù)N=0 ， i=1 , do while (w>10) , n=n+i*(w%10) , w=int(w/10) , i=i*10 , enddo , ? n , out=n 420求對某一正數(shù)的值保留兩位小樹，并對第三位進行四舍五入，i=0 , i=int(h*1000)%10) , if i>=5 , out=(h*100+1)/100