计算机VFP程序设计课件及试题.doc

《计算机VFP程序设计课件及试题.doc》由会员分享，可在线阅读，更多相关《计算机VFP程序设计课件及试题.doc（26页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、一、程序填空 共10题 （共计50分）第1题 （5.0分） 题号:2*- *【程序填空】*-*题目: 编写鸡兔同笼程序prog31，已知鸡兔的总头数为h，总脚数为f，求鸡兔各有多少只？* 请在【】处添上适当的内容，使程序完整。*-INPUT 请输入总头数： TO hINPUT 请输入总脚数： TO f*SPACE* 【?】 *SPACE* 【?】 ? 共有鸡：,x? 共有兔：, y 答案： 1). X=(4*h-f)/2 2). y=(f-2*h)/2第2题 （5.0分） 题号:63*- *【程序填空】*-*题目:编写程序prog32，求出sc表中每一个学生各门课程的总分，并输出学号尾数为*

2、奇数的学生记录到sc1表，sc1表中显示学号与总分字段。要求sc1表中记录* 按照总分降序排序，总分相同时按照学号升序排序。* 请在【】处添上适当的内容，使程序完整。如果要执行程序，需单独建立* 新的程序运行，并将星号SPACE删除。*-*SPACE*SELECT 学号, 【?】 FROM sc;*SPACE* GROUP BY 【?】 ;*SPACE* HAVING 【?】; ORDER BY 总分 DESCENDING ,学号 INTO TABLE sc1 LIST close all答案： 1). SUM(成绩) AS 总分 2). 学号 3). mod(val(right(学号,1),

3、2)=1第3题 （5.0分） 题号:868*-*【程序填空】*-*题目：编写程序prog41，计算球的体积。*-NOTE 计算球的体积INPUT 请输入球的半径： TO r*SPACE*【?】*SPACE* 【?】 ? 球的体积是：, v ENDIF 答案： 1). IF r0 2). v=4/3*pi()*r*3第4题 （5.0分） 题号:869*-*【程序填空】*-*题目：编写程序prog42，判断某年是否是闰年。闰年的条件是：年份能被400整除，或者年份能被4整除但不能同时被100整除。*请在【】中填写正确答案*-INPUT 请输入年份： TO nf*SPACE*IF 【?】 ?nf,

4、年是闰年ELSE ?nf, 年不是闰年 ENDIF 答案： 1). MOD(nf,4)=0 .AND. MOD(nf,100)0 OR MOD(nf,400)=0第5题 （5.0分） 题号:870*-*【程序填空】*-*题目：编写程序,修改如图所示的分段函数。*-INPUT 请输入一个数： TO x*SPACE*IF 【?】 S=x ELSE*SPACE* IF 【?】 s=x2 ELSE*SPACE* 【?】 ENDIF ENDIF 答案： 1). x=2 2). x-2 3). S=abs(x)第6题 （5.0分） 题号:871*-*【程序填空】*-*题目：在成绩评定时，常把90分以上的定

5、为优秀，8089分定为优良，7079分定为良好，小于60分的定为不与格，其余的定为与格。试编程实现此功能。*-clearINPUT 请输入成绩： TO xxDO CASE*SPACE*CASE 【?】 ? 优秀*SPACE*CASE 【?】 ? 优良 *SPACE*CASE 【?】 ? 良好 *SPACE*CASE 【?】 ? 不与格 OTHERWISE ? 与格ENDCASE 答案： 1). xx=90 2). xx=80 3). xx=70 4). XX60第7题 （5.0分） 题号:872*-*【程序填空】*-*题目：编写程序，判断输入的一个字符是属于字母、数字还是其它符号。*-clea

6、rWAIT 请输入一个字符： TO char DO CASE *SPACE*CASE 【?】 ?char, 是字母*SPACE*CASE 【?】 ?char, 是数字 OTHERWISE ?char, 是一个特殊符号ENDCASE答案： 1). UPPER(char)= A 2). char= 0第8题 （5.0分） 题号:873*-*【程序填空】*-*题目：编写程序，求出1到100之间的奇数的平方和。*-clears=0x=1*SPACE*DO WHILE 【?】*SPACE* 【?】*SPACE* 【?】ENDDO?s答案： 1). x100 2). s=s+x2 3). x=x+2第9题

7、 （5.0分） 题号:874*-*【程序填空】*-*题目：编写程序prg2，功能为求1+2+3+4+100的值*-clear n=1 i=0 *SPACE*DO WHILE 【?】*SPACE* 【?】*SPACE* 【?】 ENDDO?i答案： 1). n=100 2). i=i+n 3). n=n+1第10题 （5.0分） 题号:875*-*【程序填空】*-*题目：编写程序prg3，功能为求20！的值*-i=1 n=1*SPACE*DO WHILE 【?】*SPACE* 【?】 *SPACE* 【?】 ENDDO?i答案： 1). n0 out=R*R*3.14ELSE out=不能作为圆的半径ENDIF-第2题 （8.0分） 题号:73*-*【程序设计】*-*题目：输出10到50之间所有能被7整除的数。* (用do while enddo语句实现)* 并将这些数的和存入所给变量OUT中* 请按照题目要求，在下面编写程序代码。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program* End *DO YZJ4 WITH OUTUSERETURN答案：-i=10S=0do while iAMA=BENDIIF MIBMI=BENDIFIF MACMI=CENDI-