VFP程序设计基础 学生版 9.14.docVIP

程序设计基础 1、执行下面程序,结果是 dimension A(10) i=1 do while i=5 k=str(i,1) Ak=i A(i)=i i=i+1 enddo ?Ak,A(i) return 2、有如下程序 clear x1=100 x2=58 do sub ?x1,x2 return procedure sub private x1 x1=110 x2=60 ?x1,x2 endproc 程序执行后,屏幕显示结果是 3、执行下面程序,结果是 clear store 20 to x if x0 y=-x else if x=-10 y=10-x else y=x-10 endif endif ?y return 4、下列程序的运行结果是 clear ABC=北京科技大学信息学院 x=len(ABC)/5 if x=4 ABC=substr(ABC,5,8) else ABC=substr(ABC,13,8) endif ?ABC return 5、下列程序的运行结果是 clear i=1 do while i=11 i=i+2 enddo ?i return 6、有下列程序： clear set talk off i=1 s=0 do while i=10 s=s+i i=i+1 enddo ?s=,s 该程序的运行结果是 7、有下列程序 set talk off store 3 to x,y,z do fy with(x),y ?x,y,z *******定义过程******* procedure fy parameter a,b a=a+2 b=b-2 return set talk on 8、有下列程序 clear for i=1 to 6 ??i endfor 9、有如下程序： clear set talk on x=10 y=5 z=6 do fy with x,y do fy with x,y set talk on procedure fy parameter y,z x=y+10 y=y+z ?x,y,z endproc return 10、如下程序段的输出结果是 clear i=1 do while i10 i=i+2 enddo ?i 11、写出下列程序的运行结果 set talk off dimension A(6) for k=1 to 6 A(k)=20-2*k endfor k=1 do while k6 A(k)=A(k)-A(k+1) k=k+1 enddo ?A(1),A(3),A(5) set talk on 12、执行下面程序,则i的值是 clear for i=10 to 4 step-2 if i%3#0 i=i-1 endif i=i-2 ??i endfor 13、执行下列程序的结果为 clear s=1 for n=1 to 8 step 2 s=s*n endfor ?s 14、下面所列程序的运行结果为 clear for m=3 to 5 ?space(m-2)+str(m,1) endfor 15、执行下列程序的结果为 clear s=1 for n=1 to 8 step 2 s=s*n endfor ?s 16、写出下列程序的运行结果 clear set talk off dimension a(6) for k=1 to 6 a(k)=20-2*k endfor k=5 do while k=1 a(k)=a(k)-a(k+1) k=k-1 enddo ?a(1),a(3),a(5) set talk on 17、写出下列程序的运行结果 clear store 0 to x,y x=5 y=6 x=x+y y=x-y x=x-y ?x ?y 18、下列程序的运行结果是 clear s=1 do while s50 s=s*3 ??s enddo return 19、有如下程序:执行该程序时,要执行____次循环 clear a=55 b=60 do while b=a b=b-1 enddo ?b return 20、下面程序段的输出结果是 i=1 do while i10 i=i+3 enddo ?i return 21、有下面的程序段,执行程序后,最后显示N的值是 clear for n=1 to 20 ?n endfor ?n 22、下面程序段的输出结果是 clear w=西部大开发 c=重庆 a=subs(w,1,4)+subs(w,at(开,w),4) ?a.在c return 2