8、共有三个表 TB1.DBF TB2.DBF TB3.DBF 。下面程序功能是把每个表的末尾记录删除。
SET TALK OFF
CLEAR
N=1
***********SPACE**********
DO WHILE N<=【?】
***********SPACE**********
TB=【?】
USE &TB
GO BOTTOM
DELE
PACK
***********SPACE**********
【?】
ENDDO
SET TALK ON
RETURN
『答 案』：1 3 2 "TB"★+STR★(N,1) 或 'TB'★+STR★(N,1) 或 [TB]★+STR★(N,1)
3 N=N+1 或 N=1+N
9、共有三个表 TB1.DBF TB2.DBF TB3.DBF 。下面程序功能是把每个表的首记录删除。
SET TALK OFF
CLEAR
N=1
***********SPACE**********
DO WHILE N<=【?】
***********SPACE**********
TB=【?】
USE &TB
GO TOP
DELE
PACK
***********SPACE**********
【?】
ENDDO
SET TALK ON
RETURN
『答 案』：1 3 2 "TB"★+STR★(N,1) 或 "TB"★+STR★(N,1) 或 'TB'★+STR★(N,1) 或 'TB'★+STR★(N,1) 或 [TB]★+STR★(N,1) 或 [TB]★+STR★(N,1) 3 N=N+1 或 N=1+N
11、复制表XSDA.DBF，生成新表XS.DBF，在新表中查所有男同学的记录，并将男同学的记录逻辑删除。
SET TALK OFF
USE XSDA
***********SPACE**********
【?】
USE XS
LOCATE FOR 性别="男"
DO WHILE FOUND()
***********SPACE**********
【?】
***********SPACE**********
【?】
ENDDO
USE
SET TALK ON
『答 案』：1 COPY★TO★XS 2 DELETE 或 DELE 3 CONTINUE 或 CONT
14、求1到50的累加和（S=1+2+3+...+50）并显示。
***********SPACE**********
【?】
I=1
***********SPACE**********
DO WHILE 【?】
H=H+I
***********SPACE**********
【?】
ENDDO
? H
RETURN
『答 案』：
1 H=0 或 STOR 0 TO H
2 I<=★50 或 51>★I 或 50>=★I 或 I<★51
3 I=★I+1 或 I=★1+I 或 STOR★I★+★1★TO★I 或 STORE★I★+★1★TO★I
15、求0-100之间的偶数之和，超出范围则退出。
CLEA
***********SPACE**********
STOR 0 TO 【?】
***********SPACE**********
DO WHIL【?】
I=I+1
IF MOD(I,2)=0
***********SPACE**********
【?】
ENDIF
ENDDO
?S
『答 案』：
1 I★,S 或 S,I
2 I<★100 或 100★>I 或 I<=★99 或 99★>=I
3 S=★S+I 或 S=★I+S 或 STOR★S★+★I★TO★S
16、求1到100之间的奇数之和、偶数之和，并将奇数之和存入S1、偶数之和存入S2显示输出。
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
『答 案』：
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 或 MOD★(I,2)★!=0 或 MOD★(I,2)★=1 或 MOD(I,2)=1 或 I%2★=1
2 ELSE
3 I=I+1 或 I=1+I 或 STOR★I★+★1★TO★I
17、显示所有100以内的6的倍数的数,并求这些数的和。
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
RETURN
『答 案』：
1 S=0 或 STOR 0 TO S
2 I,6
3 ENDIF 或 ENDI
22、统计300到600之间（包括300和600）能被3整除的数的个数。
GS=0
N=300
***********SPACE**********
DO WHILE 【?】
IF MOD(N,3)=0
***********SPACE**********
【?】
ENDIF
***********SPACE**********
【?】
ENDDO
? "300到600之间（包括300和600）能被3整除的数的个数为",GS
RETURN
『答 案』：
1 N<★=600 或 N<★601 或 600★>=N 或 601★>N
2 GS=★GS+1 或 GS=★1+GS 或 STOR★GS★+★1★TO★GS
3 N=★N+1 或 N=★1+N 或 STOR★N★+★1★TO★N
23、从读入的整数数据中，统计大于零的整数个数和小于零的整数个数。用输入零来结束输入，程序中用变量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
『答 案』：
1 0
2 N★<>★0 或 N★#★0 或 N★!=★0
3 ENDDO
24、以下程序通过键盘输入4个数字，出其中最小的数。
SET TALK OFF
***********SPACE**********
【?】
INPUT "请输入第一个数字" TO X
M=X
DO WHILE I<=3
INPUT "请输入数字" TO X
***********SPACE**********
IF 【?】
M=X
ENDIF
***********SPACE**********
【?】
ENDDO
? "最小的数是",M
SET TALK ON
『答 案』：
1 I=1 或 STOR 1 TO I
2 X<M 或 M>X 或 X<=M 或 M>=X
3 I=I+1 或do while语句怎么用 I=1+I 或 STOR★I★+★1★TO★I
28、下面的程序是将“计算机等级考试”显示为“计 算 机 等 级 考 试”。
SET TALK OFF
CLEAR
X="计算机等级考试"
***********SPACE**********
Y=【?】
***********SPACE**********
DO WHILE LEN(X)>= 【?】
Y=Y+SUBS(X,1,2)+' '
***********SPACE**********
X=【?】
ENDD
?Y
SET TALK ON
RETURN
『答 案』：
1 "" 或 " " 或 SPACE(1) 或 [] 或 [ ] 或 '' 或 ' '
2 2 或 1
3 SUBS★(X,3) 或 SUBSTR(X,3)
5、表XSDA.DBF结构为：学号（C，6），姓名（C，6），性别（C，2），入学成绩（N，6，2）。本程序实现按学号查记录，直到输入"#"为止。
SET TALK OFF
USE XSDA
**********FOUND**********
ACCEPT "请输入要查的学号" ON XH
DO WHILE XH!= "#"
**********FOUND**********
LOCATE FOR 学号="CJ"
IF FOUND()
?学号,姓名
ELSE
? "无此学号"
ENDIF
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论