收藏 分享(赏)

程序练习题.doc

上传人:ysd1539 文档编号:5889334 上传时间:2019-03-20 格式:DOC 页数:10 大小:76.50KB
下载 相关 举报
程序练习题.doc_第1页
第1页 / 共10页
程序练习题.doc_第2页
第2页 / 共10页
程序练习题.doc_第3页
第3页 / 共10页
程序练习题.doc_第4页
第4页 / 共10页
程序练习题.doc_第5页
第5页 / 共10页
点击查看更多>>
资源描述

1、1程序练习1在 Visual FoxPro ,有如下程序:N=2I=1DO WHILE N=3000,则上浮3%,若 工资= 3000 2REPLACE 工资 WITH 工资 * 1.03ELSE(2)_END IFEND SCANUSE2、SET TALK OFFACCEPT “输入表名:“ TO KMUSE &KM*显示最前面 5条记录(3)_WAIT GO BOTTOM*显示最后 4条记录(4)_DISP NEXT 4USE1、阅读下列程序sum=0k=1m=5DO WHILE sum=1b=b+SUBSTR(a,i,1)i=i-1ENDDO?b上述程序执行后,显示的结果是_。4、阅读下

2、列程序: x=76543y=0DO WHILE x0y=x%10+y*10x=int(x/10)ENDDO上述程序段执行以后,内存变量 y 的值是_1、阅读下面程序s=1i=0do while i=1two=two+SUBSTR(one,i,1)i=i-1ENDDO?two执行上述程序,显示的结果是 。4. 阅读下面程序:Clear N=10S=0I=1Do while I=1two=two+SUBSTR(one,i,1)i=i-1ENDDO?two执行上述程序,显示的结果是 。4. 阅读下面程序:Clear 6N=10S=0I=1Do while IMM=M+NN=N-10ENDDO?M上述

3、程序执行后,显示的结果是_。4.阅读下列程序: x=10y=0DO WHILE x0y=x+y*2x=int(x/10)7ENDDO?y上述程序段执行以后,内存变量 y 的值是_。1. 在 Visual FoxProk ,有如下程序:*Test.prg * sub1.prgSET TALK OFF procedu sub1PRIVATE X,Y local XX= “数据库” X= “应用”Y= “管理系统” Y= “系统”DO sub1 X=X+Y? X+Y RETURNRETURN执行命令 DO test 后,屏幕显示的结果应是 。2. 以下循环体共执行了 次。FOR =1 TO 10=+

4、1?ENDFOR3在 Visual FoxPro 中,有如下程序,函数 IIF( )的返回值是 。Private X, YStore “男” TO XY=LEN(X)+2? IIF(Y0y=y+x%10x=int(x/10)ENDDO?y3、下面程序计算一个整数的各位数字之和。在下划线处应填写的语句是SET TALK OFF INPUT ”x=”TO x s=0 DO WHILE x!=0s=s+MOD(x,10) ENDDO ?s SET TALK ON4、从键盘输入数字 234,下列程序段的输出结果是 。ACCEPT TO AIF A=123456S=0ENDIFS=1?SRETURN1.

5、 下面程序的运行结果是 。X=3DO CASE9CASE X1Y=1CASE X2Y=2ENDCASE?YRETU2. 以下循环体共执行了 次。FOR I=1 TO 10I=I+1?IENDFOR3阅读下面程序:a=“foxpro“b=“i=LEN(a)DO WHILE i=1b=b+SUBSTR(a,i,1)i=i-1ENDDO?b上述程序执行后,显示的结果是_。4、阅读下列程序: x=76543y=0DO WHILE x0y=x%10+y*10x=int(x/10)ENDDO?y上述程序段执行以后,内存变量 y 的值是_1. 下面程序的运行结果是 。X=3DO CASECASE X5Y=1CASE X2Y=2ENDCASE10?YRETU2. 以下循环体共执行了 次。FOR I=1 TO 10I=I+2?IENDFOR3阅读下面程序:a=“I love this game“b=“i=LEN(a)DO WHILE i=1b=b+SUBSTR(a,i,1)i=i-1ENDDO?b上述程序执行后,显示的结果是_。4、阅读下列程序: x=11969155y=0DO WHILE x0y=x%10+y*10x=int(x/10)ENDDO?y上述程序段执行以后,内存变量 y 的值是_

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 中等教育 > 试题课件

本站链接:文库   一言   我酷   合作


客服QQ:2549714901微博号:道客多多官方知乎号:道客多多

经营许可证编号: 粤ICP备2021046453号世界地图

道客多多©版权所有2020-2025营业执照举报