if found()
do form selectcalss else
messagebox(\输入有误\学生选课系统\endif use
61. 上一题（60题）中表单中的按钮“退出系统”，其CLICK事件代码如下：
result=messagebox(\是否退出系统\，4+32+256，\信息\) if result=6
_________________ endif
七、程序改错题（共4个小题，每小题3分，共12分） 62. 根据输入的学生姓名，在学生表中查找学生记录。 （1） set talk off （2） use 学生
（3） name=space(8)
（4） @5,20 say \请输入学生姓名：\ （5） read
（6） locate for 姓名=name
（7） if found() （8） display （9） else
（10） @8,20 say \无此学生！\（11） endif （12） set talk on （13） return
错误的行是____________________________________ 改为__________________________________________
63. 根据数据表“教师.dbf”,按不同性别统计“教授”职称的人数。 （1） （2） （3） （4） （5） （6） （7）
set talk off clear use 教师 store 0 to a,b scan for 教授 if 性别=\男\ a=a+1
- 152 -
（8） else
（9） b=b+1 （10） endif （11） endscan
（12） ? \男教授的人数是：\+str(a,5)+ \人\ （13） ? \女教授的人数是：\+str(b,5)+ \人\（14） return
错误的行是____________________________________ 改为__________________________________________
64. 根据所给的学生表、选课表建立一个“少数名族选课.dbf”，此表中应包括少数名族学生的学号、姓名、成绩三个字段。 （1） set talk off （2） select b （3） use 选课 （4） select a （5） use 学生
（6） join b to少数名族选课 ;
（7） for 学号=b->学号 .and. 少数名族否 ; （8） fields 学号,姓名,b->成绩 （9） use少数名族选课
（10） list
（11） close all
错误的行是____________________________________ 改为__________________________________________ 65. 从键盘上输入一个自然数，判断是奇数还是偶数? （1） set talk off
（2） accept \请输入一个自然数\ to num
（3） if int(num/2)=num/2
（4） ? str(num,6)+ \是偶数\ （5） else
（6） ? str(num,6)+ \是奇数\ （7） endif （8） return
错误的行是____________________________________ 改为__________________________________________
- 153 -
