vf程序填空和设计复习题

【?】
REPLACE奖学金WITH奖学金+10
ENDCASE
***********SPACE**********
【?】
ENDDO
答案：
1). .not.eof()或not eof()或!eof()
2). OTHERWISE或CASE★.NOT.★(计算机>=90★.AND★.英语★>=90)★.OR.★NOT.★(计算机★>=75★.AND.★英语★>=75)
i=1
stor 0 to s1,s2
do whil i<=100
***********SPACE**********
if【?】
s1=s1+i
***********SPACE**********
【?】
s2=s2+i
endif
***********SPACE**********
【?】
ENDD
?S1,S2
s=s+p
endfor
?"3！+4！+5！的值是:",s
----------------------
〖第2题〗『程序设计』(5分)(题号:73)
*题目：输出10到50之间所有能被7整除的数。(用do while……enddo语句实现)并将这些数的和存入所给变量OUT中请按照题目要求，在下面编写程序代码。
SET TALK OFF
I=1
***********SPACE**********
【?】
DO WHILE I<=100
***********SPACE**********
IF MOD(【?】)=0
?I
S=S+I
***********SPACE**********
【?】
I=I+1
ENDDO
? "S=",S
***********SPACE**********
【?】姓名=XM
IF FOUN()
***********SPACE**********
【?】学号,姓名,英语,生年月日
ELSE
? "查无此人！"
ENDIF
USE
RETURN
答案：
1). USE★XSDB
2). locate★for
3). display或?或display★off
答案：
i=10
S=0
do while i<=50
if i%7=0
?i
S=S+I
endif
i=i+1
enddo
----------------------
〖第3题〗『程序设计』(5分)(题号:78)
*题目：设表RSDA.DBF结构为：学号（C，5），姓名（C，6），职称（C，6）统计出RSDA.DBF表中职称为"工程师"的人数。（利用DO WHILE……ENDDO循环语句实现）。
净月校区VF复习题
〖第1题〗『程序填空』(5分)(题号:609)
*题目:设有如下表结构，使用SQL命令，检索外语成绩大于等于80分的年龄小于21岁的学生姓名,性别,数学成绩;*学生表.dbf:学号C(8),姓名C(8),性别C(4),出生日期D,年龄I,籍贯C(10),政治面貌C(4),专业C(10),高考分数N(3,0)*成绩表.dbf:学号C(8),哲学N(5,1),数学N(5,1),外语N(5,1),计算机N(5,1)
S=S+I
ENDFOR
***********SPACE**********
?"结果=",【?】
RETURN
SET TALK ON
答案：
1). s=0
2). step★2
3). s或str(s)或str(s,4)
〖第9题〗『程序填空』(2分)(题号:82)
*题目：显示所有100以内的6的倍数的数,并求这些数的和。
*题目：求1--200间的所有偶数的和，
答案：
----------------------
S=0
FOR I=1 TO 200
IF I/2=INT(I/2)
S=S+I
ENDIF
ENDFOR
? S
----------------------
【?】
ENDDO
? "300到600之间（包括300和600）能被3整除的数的个数为",GS
RETURN
答案：
1). N<★=600或N<★601或600★>=N或601★>N
2). GS=★GS+1或GS=★1+GS
3). N=★N+1或N=★1+N
〖第3题〗『程序填空』(5分)(题号:69)
*题目:下面程序根据XSDB.DBF数据表中的计算机和英语成绩对奖学金做相应调整：双科90分以上（包括90）的每人增加30元；双科75分以上（包括75）的每人增加20元；其他人增加10元。
3). S=★S+I或S=★I+S
〖第7题〗『程序填空』(5分)(题号:63)
*题目:在XSDB.DBF数据表中查找学生王迪，如果找到，则显示：学号、姓名、英语，生年月日，否则提示"查无此人！"。请在【】处添上适当的内容，使程序完整。
***********SPACE**********
【?】
XM="王迪"
〖第8题〗『程序填空』(5分)(题号:2)
*题目:下面程序是计算1+3+5+…+99之和的程序。
*请在【】处添上适当的内容，使程序完整。
SET TALK OFF
***********SPACE**********
【?】
***********SPACE**********
FOR I=1 TO 99【?】
答案：
----------------------
use rsda
store 0 to s
locate for职称="工程师"
do while not eof()
s=s+1
continue
enddo
?"共有工程师"+str(s,3)+"名"
use
----------------------
〖第4题〗『程序设计』(5分)(题号:93)
WHERE【?】;
***********SPACE**********
INTO DBF【?】
答案：
1). *
2).性别★="★男★"或性别★='★男'或性别★=★[男]
3).男生★记录
〖第5题〗『程序填空』(5分)(题号:81)
*题目:求1到100之间的奇数之和、偶数之和，并将奇数之和存入S1、偶数之和存入S2显示输出。请在【】处添上适当的内容，使程序完整。ACE**********
DO WHILE【?】
DO CASE
CASE计算机>=90.AND.英语>=90
REPLACE奖学金WITH奖学金+30
CASE计算机>=75.AND.英语>=75
REPLACE奖学金WITH奖学金+20
***********SPACE**********
答案：
1). MOD★(I,2)★<>0或INT★(I,2)★<>★I/2或I%2★<>0或MOD★(I,2)★#0或INT★(I,2)★#I/2或I%2★#0
2). ELSE
3). I=I+1或I=1+I
〖第6题〗『程序填空』(5分)(题号:79)
*题目:实现:求0-100之间的偶数之和，超出范围则退出。请在【】处添上适当的内容，使程序完整。
RETURN
答案：
1). S=0
2). I,6
3). ENDIF或ENDI
〖第1题〗『程序设计』(5分)(题号:71)
*题目：编程求出并显示3!+4!+5!的值。将结果存入变量OUT中。请按照题目要求，在下面编写程序代码。
答案：
s=0
For I=3 to 5
p=1
For j=1 to I
p=p*j
endfor
clea
***********SPACE**********
stor 0 to【?】
***********SPACE**********
do whil【?】
i=i+1
if mod(i,2)=0
***********SPACE**********
【?】
endif
enddo
?S
答案：
1).I★,S
2). I<★100或100★>I或I<=★99或99★>=I或I<★101或I<=★100
3). SKIP
〖第4题〗『程序填空』(5分)(题号:605)
*题目:使用SQL命令，检索“学生表”中所有男生记录，并将结果存入新建的“男生记录”表文件。
*请在【】处添上适当的内容，使程序完整。
***********SPACE**********
SELECT【?】FROM学生表;
***********SPACE**********
***********SPACE**********
SELECT学生表.姓名,性别,数学FROM学生表,【?】;
***********SPACE**********
WHERE【?】and年龄<21 and外语>=80