非常大量的VFP题目==,实在不会做了,老师催着交TT11.完善下列程序,其功能是统计一个仅由数字组成的字符串中各种数字字符的个数：程序清单ClearcStr=“110102342245676893319”&&字符串初值S

Question

非常大量的VFP题目 = =,实在不会做了,老师催着交 T T
11.完善下列程序,其功能是统计一个仅由数字组成的字符串中各种数字字符的个数：
【程序清单】
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.=
cStr=
ENDDO
n0,n1,n2,n3,n4,n5,n6,n7,n8,n9
13.下列程序运行后,X的值为 ,Y的值为 .
【程序清单】
CLEAR
x＝26
y＝0
IF INT(x/2)=x/2
y=MOD(x,3)
x=x+4
ENDIF
IF INT(x/3)=x/3
y=MOD(x,-4)
ENDIF
16.执行下列主程序后,输出结果为 .
****主程序****
CLEAR
PUBLIC x,y,z
x=3
y=4
z=5
DO PP
x+y+z
****过程****
PROCEDURE PP
LOCAL x
x=5
y=7
z=x+y
ENDPROC
22.执行下列程序后,输出到屏幕的结果是____________.
【程序清单】
CLEAR
cstring=”VisualFoxPro”
nresult=0
m=LEN(cstring)
FOR n=1 TO m
\x05c=SUBSTR(cstring,n,1)
\x05IF BETWEEN(ASC(c),ASC(“A”),ASC(“Z”))
\x05\x05LOOP
\x05ENDIF
\x05nresult=nresult+1
ENDFOR
\x05?nresult
23.执行下列程序后,输出到屏幕的结果是____________.
【程序清单】
CLEAR
STORE 5 TO m1,m2
STORE 1 TO m3,m4
DO PA WITH m1,m2,m3,m4
m4
PROCEDURE PA
PARAMETERS a,b,c,d
d=b^2-4*a*c
DO CASE
CASE d0
\x05\x05d=300
ENDCASE
RETURN
25.执行以下程序段后,屏幕显示的运行结果为_____ .
【程序清单】
\x05CLEAR
\x05x=12
\x05DO WHILE .T.
\x05\x05X=x+1
\x05\x05IF x=INT(x/4)*5
\x05\x05\x05?x
\x05\x05ELSE
\x05\x05\x05LOOP
\x05\x05ENDIF
\x05\x05IF x>10
\x05\x05\x05EXIT
\x05\x05ENDIF
\x05ENDDO
28.执行以下程序段后,屏幕显示的运行结果为_____ .
【程序清单】
\x05CLEAR
\x05SET TALK OFF
\x05STORE 3 TO n
\x05?ss(n)
\x05FUNCTION ss
\x05PARAMETERS x
\x05\x05y=1
\x05\x05p=0
\x05\x05FOR i=1 TO x
\x05\x05\x05y=y*i
\x05\x05\x05p=p+y
\x05\x05ENDFOR
\x05\x05RETURN p
\x05ENDFUNC
32．下列程序（由10行语句组成）的功能是求出所有的幸运数（幸运数是指前两位数字之和等于后两位数字之和的四位数）,但程序运行时提示程序的第5行有错.第5行语句应修改为_ __.
ClEAR
DIME x(4)
FOR i=1001 TO 9999
\x05FOR j=1 TO 4
\x05\x05x(j)=VAL(SUBSTR(i,j,1))
\x05ENDFOR
\x05IF x(1)+x(2)=x(3)+x(4)
\x05\x05?i
\x05ENDIF
ENDFOR

Answer 1

11... n&c=n&c+1
cStr= right(cstr,len(cstr)-1)
13 ... x=30 y=-2
22 .结果是 3
23 .结果是 300
25 .结果是 15
28 .结果是 9
32 x(j)=VAL(SUBSTR(ALLTRIM(STR(i)),j,1))