分页:
上一页 1 2 3 [4] 5 6 7 8 9 10 下一页
?REPLICATE("*",I)
I=I+1
ENDDO
RETU
三、完善程序(在下列程序的_______处,填入正确的内容,使其完整正确,并将正确 内容填到题后的空白处。本大题共10小题,每小题2分,共20分)
1.将XS1与XS2两个库生成一个库XS,该库的结构有"学号,姓名.专业,外语,计算机 应用",其写入的记录应满足条件学生是代培生"外语"成绩不低于80分。
SET TALK OFF
CLEA
SELE A
USE XS1
SELE B
USE XS2
JOIN WITH A TO XS FOR _________FIELDS A.学号,姓名,A.专业,外语,计算机应用
SELE 0
USE XS
LIST
CLOS ALL
RETU
2. 将上题中XS库中显示"外语"不低于90分计算机应用不低于90分的代培生。
SET TALK OFF
USE XS
LIST FOR __________
USE
RETU
3. 计算N!
SET TALK OFF
CLEA
STORE 0 TO N
@2,10 SAY "输入一个数:"__________
READ
IF _____________
@10,10 SAY "0!=1"
ENDIF
S=1
i=1
DO WHIL I<=N
S=S*i
I=I+l
ENDDO
@10,10 SAY STR(n)+"!="+STR(s)
RETU
4. 显示XS1库中代培生的记录。
SET TALK OFF
USE XS1
DO WHIL.NOT.EOF()
IF__________
分页:
上一页 1 2 3 [4] 5 6 7 8 9 10 下一页