VFP程序填空补充练习题

程序填空补充练习题

1．完善下列程序，以显示7~1000以内能被7整除且含有数字5的所有整数(如35、56、105等)。

FOR n=7 TO 1000 step 7

ch=ALLT(STR(n))

IF ”5”$ ch

? n

ENDIF

ENDFOR

2．运行下列程序后，显示的运行结果的第二行为11*11=121。

CLEAR

y=”11111111”

FOR i=1 TO LEN(y)

x=LEFT(y,i)

? SPACE(20-I*2)+x+”*”+x+”=”+ALLT(STR(VAL(x)*VAL(x),20))

ENDFOR

3. 完善下列程序，其功能是计算数列1!,2!,3!,…,n!的前10项之和：

nResult=0

nMult= 1

for n=1 to 10

nMult=nMult*n

nResult=nResult+nMult

endfor

? nResult

4. 完善下列程序，使其能在屏幕上输出一个如下所示的图形。

CLEAR

FOR I=1 TO 5

?? SPACE(I-1)

FOR J= 1 TO 11-2*I

?? “*”

ENDFOR

?

ENDFOR

5．完善下列程序，其功能是将由中英文字符组成的字符串，以竖列的形式(即每行一个字符)输出。

Clear

P=”新编VisualFoxPro教程”

DO WHILE !EMPTY(p)

i=IIF(ASC(LEFT(p,1))>127,2,1)

? LEFT(p,i)

p=SUBS(p,___3____)

enddo

6.完善下列程序，计算3+33+333+3333+33333+……前10项之和。

CLEAR

m=3

n=0

s=0

FOR i=10 to 1 step -1

n=n+m*10**(10-I)

s=s+n

ENDFOR

7．完善下列程序，其功能是统计一个仅由数字组成的字符串中各种数字字符的个数：CLEAR

cStr="110102342245676893319" &&字符串初值

STORE 0 TO n0,n1,n2,n3,n4,n5,n6,n7,n8,n9 &&计数变量

DO WHILE LEN(cStr)>0

c=LEFT(cStr,1)

n&c=n&c+1

cStr=subs(cStr,2)

ENDDO

? n0,n1,n2,n3,n4,n5,n6,n7,n8,n9

8．完善下列自定义函数NoSpace()，其功能是将字符串中的所有空格删除。

FUNCTION NoSpace

PARAMETERS cStr

cResult=SPACE(0)

FOR n=1 to len(cStr)

IF SUBSTR(cStr,n,1)=SPACE(1)

CStr=cResult+subs(cStr,n+1)

ENDIF

cResult=cResult+SUBSTR(cStr,n,1)

ENDFOR

RETURN cResult ENDFUNC