VFP程序填空习题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第四章程序填空
该章以操作题为主，一道题分值为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 "输入整数："to n
***********SPACE**********
store 【】 to i,j
***********SPACE**********
do while 【】
if n>0
i=i+1
endif
if N<0
j=j+1
endif
input "输入整数：" to n
***********SPACE**********
【】
"i=",i
"j=",j
set talk on
retu
程序填空6