VFP程序填空习题

第四章 程序填空

该章以操作题为主，一道题分值为5分。

程序填空1

*------------------------------------------

题目：表RSDA.DBF结构为：姓名（C，6）；性别（C，2），年龄（N，2），出生日期（D，8）。

判断表中是否有\李明\，查询此人的性别及年 龄，确定参加运动会的项目。 *------------------------------------------ SET TALK OFF USE RSDA

***********SPACE********** 【 】 FOR 姓名= \李明\***********SPACE********** IF .NOT. 【 】 DO CASE

CASE 性别= \男\ ?\请参加爬山比赛\ CASE 年龄<=50 ? \请参加投篮比赛\ CASE 年龄<=60

? \请参加老年迪斯科比赛\***********SPACE********** 【 】 ELSE

? \查无此人\ BROWSE ENDIF USE

SET TALK ON RETURN

程序填空2

*------------------------------------------ 题目:显示输出图形：

***** *** * 请在【 】处添上适当的内容，使程序完整。 *------------------------------------------ CLEA I=1

***********SPACE********** DO WHILE 【 】 J=1

DO WHILE J<=7-2*I ***********SPACE********** 【 】 j=j+1 ENDDO

***********SPACE********** 【 】 ? ENDDO

程序填空3

*------------------------------------------

题目: 1982年我国第三次人口普查，结果全国人口为10.3亿， 假如人口增长率为5%。编写一个程序求在公元多少年总人口翻了一番。请在【 】处添上适当的内容，使程序完整。

*------------------------------------------

SET TALK OFF CLEAR P1=10.3 N=1 R=0.05

P2=P1*(1+R)

***********SPACE********** DO WHILE P2<=【 】 ***********SPACE********** N=【 】

***********SPACE********** P2=P2【 】(1+R) ENDD N=1982+N

? N,\年人口总数翻了一番\SET TALK ON CANC

程序填空4

*------------------------------------------

题目: 编写程序，实现矩阵（3行3列）的转置（即行列互换）。 * 例如,输入下面的矩阵： * 1 2 3 * 4 5 6 * 7 8 9 * 程序输出：

* 1 4 7 * 2 5 8 * 3 6 9

*请在【 】处添上适当的内容，使程序完整。

*------------------------------------------ SET TALK OFF clear

dime a(3,3) m=1

for i=1 to 3 for j=1 to 3

***********SPACE********** a(i,j)= 【 】

***********SPACE********** 【 】 endf endf

for i=1 to 3 for j=1 to 3

***********SPACE********** ??【 】 ,' ' endf ? endf

程序填空5

*------------------------------------------ 题目: 从读入的整数数据中，统计大于零的整数个数和小于零的整数个数。用输入零来结束输入，程序中用变量i统计大于零的整数个数，用变量j统计小于零的整数个数。请在【 】处添上适当的内容，使程序完整。 *------------------------------------------ SET TALK OFF clear

input \输入整数：\***********SPACE********** store 【 】 to i,j ***********SPACE********** do while 【 】 if n>0 i=i+1 endif if N<0

j=j+1 endif

input \输入整数：\***********SPACE********** 【 】 ? \? \set talk on retu

程序填空6

*------------------------------------------

题目: 计算Y=1+3^3/3!+5^5/5!+7^7/7!+9^9/9!的值请在【 】处添上适当的内容，使程序完整。

*------------------------------------------ SET TALK OFF CLEAR S=0

***********SPACE********** FOR I=1 TO 9 【 】 T=1

***********SPACE********** FOR J=1 TO 【 】 T=T*J endf

***********SPACE********** s=s+【 】 endf ? 's=',s set talk on canc

程序填空7

*------------------------------------------

题目: 计算Y=2^2/2!+4^4/4!+6^6/6!+8^8/8!+10^10/10!的值 请在【 】处添上适当的内容，使程序完整。 *------------------------------------------ SET TALK OFF CLEAR S=0

***********SPACE********** FOR I=2 TO 10 【 】 T=1

***********SPACE********** FOR J=1 TO 【 】 T=T*J endf

***********SPACE********** s=s+【 】 endf ? 's=',s set talk on canc

程序填空8

*------------------------------------------

题目: 请编写一个函数fun，它的功能是：删除字符串中的数字字符。例如输入字符串：48CTYP9E6，则输出：CTYPE。请在【 】处添上适当的内容，使程序完整。 *------------------------------------------ SET TALK OFF clear

accept \请输入一个字符串：\ to ss ***********SPACE********** l=len(【 】) p=''

for i=1 to l

***********SPACE**********

if subs(ss,i,1)>'9' 【 】subs(ss,i,1)<'0' ***********SPACE********** p=p+【 】 endif endf ? 'p=',p set talk off canc

程序填空9

*------------------------------------------

题目: 三角形的面积为：area=sqrt(s*(s-a)*(s-b)*(s-c)).其中s=(a+b+c)/2,a、b、c为三角形三条边的长。请在【 】处添上适当的内容，使程序完整。 *------------------------------------------ SET TALK OFF clear

input \input \input \

***********SPACE**********

if a+b>c and a+c>b and 【 】 s=(a+b+c)/2

area=sqrt(s*(s-a)*(s-b)*(s-c)) ***********SPACE********** 【 】

? '不能构成三角形' return endif

***********SPACE********** ? \面积=\【 】 canc

程序填空10

*------------------------------------------题目: 下面程序的功能是不用第三个变量，实现两个数的对调操作，请在【 】处添上适当的内容，使程序完整。 *------------------------------------------ SET TALK OFF clear

input \input \

***********SPACE********** a=a+【 】

***********SPACE********** b=【 】- b

本文来源：https://www.bwwdw.com/article/hczv.html