51、以下程序运行的结果是____________ SET TALK OFF SET EXACT OFF CLEAR USE 学生
INDEX ON 专业 TO ZY SEEK “计算机” IF NOT EOF( ) ?姓名 ELSE
?”此专业没有学生” ENDIF USE
52、以下程序运行的结果是____________ SET TALK OFF SET HEADING OFF CLEAR SELECT B USE 教师
INDEX ON 教师号 TO JS1 SELECT A USE 课程
SET RELATION TO 教师号 INTO B GO 2
DISP OFF 课程名,B->姓名 CLOSE ALL
53、以下程序运行的结果是____________ SET TALK OFF SET HEADING OFF CLEAR USE 学生
INDEX ON 专业 TO ZY
TOTAL ON 专业 TO HZ FIELDS 专业，入学成绩 USE HZ
GO BOTTOM
DISPLAY OFF 入学成绩 USE
六. 完善程序题（请在答题卡相应的位置上填写正确的内容，使程序完整正确。每小题3分，共24分）
54、对数据表“学生.DBF”中籍贯为辽宁的学生按专业的升序排序，专业相同的学生按入学成绩的由高到低排序，生成新的数据表文件PX.DBF。
SET TALK OFF CLEAR USE 学生
SORT TO PX ON 专业/A，入学成绩/D _______________ USE
55、根据所给学生数据表，按入学成绩降序显示前10名学生的入学成绩。 SET TALK OFF CLEAR USE 学生
INDEX ON 入学成绩 TO CJ DESC N=1
@1,20 SAY “前十名成绩” DO WHILE N<=10 DISP N=N+1
__________________ ENDDO USE
56、为数据表“教师.DBF”增加一个字段“出生年月(D)”，并将3号记录的出生年月设为1968年10月12日。
SET TALK OFF CLEAR
ALTER TABLE 教师 ADD 出生年月 D USE 教师 GO 3
________________________ DISPLAY USE
57、计算表达式1+3+5+??+49的值。 SET TALK OFF CLEAR S=0
__________________ S=S+N ENDFOR ?S
RETURN
58、根据所给数据表查询年龄在20岁以上（不含20岁）的学生姓名、性别、年龄。 SET TALK OFF CLEAR
SELECT学号,姓名,YEAR(DATE())-YEAR(出生日期) AS 年龄 FROM 学生 WHERE __________________ CLOSE ALL
59、对输入的汉字字符串进行倒序显示。 SET TALK OFF CLEAR
ACCEPT “请输入字符串” TO ST N=LEN(ST) K=2 IF N=0
RETURN ENDIF
DO WHILE K<=N
@10,K SAY _____________ K=K+2 ENDDO RETURN
60、设计一个输入学生信息表单（SHURU.SCX），执行界面如下图所示。通过这个表单验证学生的身份，只有输入正确的学号（在TEXT1中）才能进入选课界面（SELECTCLASS.SCX），“进入系统”按钮的CLICK事件代码如下：
USE 学生
INDEX ON 学号 TO XH __________________________ IF FOUND( )
DO FORM SELECTCLASS ELSE
MESSAGEBOX(?输入有误?, 48 , ?学生选课系统?) ENDIF USE
61、上一题（60题）中表单中的按钮“退出系统”，其Click事件代码如下： RESULT=MESSAGEBOX (“是否退出系统” , 4+32+256 , ”信息” ) IF RESULT=6
_____________________________________________ ENDIF
七.程序改错题(以下每小题都有一个错误,在答题卡相应的位置上写出有错误语句的行号及改正后的完整语句.每小题3分,共12分 )
62、根据输入的学生姓名，在学生表中查找学生记录。 （1）SET TALK OFF （2）USE 学生
（3）NAME=SPACE(8)
（4）@5,20 SAY “请输入学生姓名：”+NAME （5）READ
（6）LOCATE FOR 姓名=NAME （7）IF FOUND() （8）DISPLAY （9）ELSE
（10）@8,20 SAY “无此学生！” （11）ENDIF
（12）SET TALK ON （13）USE
（14）RETURN
错误的行是：___________________ 改为：_________________________
63、根据数据表“教师.DBF”按不同性别统计教授职称的人数。 （1） （2） （3） （4） （5） （6）
SET TALK OFF CLEAR USE 教师
STORE 0 TO A,B SCAN FOR 教授 IF 性别=”男”
（7） A=A+1 （8） ELSE （9） B=B+1 （10） ENDIF （11） ENDSCAN
（12） ?”男教授的人数是：”+STR(A,5)+”人” （13） ?”女教授的人数是：”+STR(B,5)+”人” （14） USE
（15） RETURN
错误的行是：_____________________ 改为：___________________________
64、根据所给学生表、选课表建立一个“少数民族选课.DBF”，此表中应包括少数民族学生的学号、姓名、成绩三个字段。
（1） SET TALK OFF （2） CLEAR （3） SELECT B （4） USE 选课
（5） SELECT A （6） USE 学生
（7） JOIN B TO 少数民族选课；
（8） FOR 学号=B->学号 .AND. 少数民族否； （9） FIELDS 学号，姓名，B->成绩 （10） USE 少数民族选课
（11） LIST
（12） CLOSE ALL
错误的行是：___________________ 改为：_________________________
65、通过键盘输入一个数，判断这个数是偶数还是奇数。 （1） SET TALK OFF （2） CLEAR
（3） ACCEPT “请输入一个自然数：” TO NUM （4） IF INT(NUM/2)=NUM/2 （5） ?STR(NUM,6)+”是偶数” （6） ELSE
（7） ?STR(NUM,6)+”是奇数” （8） ENDIF （9） RETURN
错误的行是：___________________ 改为：_________________________
2010年辽宁省高职高专毕业生升入本科学校继续学习招生考试
