2010VF期末.docVIP

三、程序填空 共1题 （共计10分） *【程序填空】 *功能:求1到100之间的奇数之和、偶数之和，并将奇数之和 * 存入S1、偶数之和存入S2显示输出。 * 请在【】处添上适当的内容，使程序完整。 SET TALK OFF i=1 stor 0 to s1,s2 do whil i=100 ***********SPACE********** if i%2!=0 s1=s1+i ***********SPACE********** else s2=s2+i endif ***********SPACE********** i=i+1 ENDD ?S1,S2 SET TALK ON RETURN *功能:对表XSDB.DBF中的计算机和英语都大于等于90分以上的学 * 生奖学金进行调整：法律系学生奖学金增加12元、英语系学生 * 奖学金增加15元、中文系学生奖学金增加18元，其他系学生奖 * 学金增加20元。请在【】处添上适当的内容，使程序完整。 SET TALK OFF USE XSDB ***********SPACE********** Locate for 计算机=90 and 英语=90 DO WHILE FOUND() DO CASE CASE 系别=法律 ZJ=12 CASE 系别=英语 ZJ=15 CASE 系别=中文 ZJ=18 ***********SPACE********** otherwise ZJ=20 ENDCASE REPL 奖学金 WITH 奖学金+ZJ ***********SPACE********** continue ENDDO USE SET TALK ON RETURN 四、程序改错 共1题 （共计10分） *【程序改错】 *题目：显示XSDB.DBF中每个学生的姓名、计算机成绩和等级；等 * 级划分如下：计算机成绩大于等于90显示优秀；60到89 * （包括 60和89）之间显示及格；60分以下显示补考。 * 如显示：张丽娜 90 优秀 。 *注意：不可以增加或删除程序行，也不可以更改程序的结构。 SET TALK OFF USE XSDB DO WHIL .NOT. EOF() ***********FOUND********** LIST 姓名,计算机 //display fields 姓名,计算机 DO CASE CASE 计算机=90 ??优秀 CASE 计算机=60 ??及格 OTHERWISE ??补考 ENDCASE ***********FOUND********** GO NEXT //skip ENDDO USE SET TALK ON RETU *题目：从键盘上输入5个数，将其中奇数求和,偶数求积。 *注意：不可以增加或删除程序行，也不可以更改程序的结构。 SET TALK OFF S1=0 ***********FOUND********** S2=0 //s2=1 FOR I=1 TO 5 INPUT 请输入第+STR(I,1)+ 数 TO M ***********FOUND********** IF INT(M/2)=0 //m%2!=0 S1=S1+M ELSE S2=S2*M ENDIF ENDFOR ? 奇数和是,S1 ? 偶数积是,S2 SET TALK ON RETU 考试内容（第十章） 1、数据的输入方法 （1） =命令 内存变量=表达式 功能: 计算表达式的值，并将表达式的值赋给内存变量。 注意： 第一：使用=赋值命令时，一行只能出现一个“=”。 第二：使用=赋值命令时，只有按回车键后才会实现真正赋值。 （2）Store命令 Store 表达式 To 内存变量表 功能: 计算表达式的值，并将表达式的值赋给内存变量表中每一个变量。内存变量表中可以是一个变量，也可以是多个变量，若是多个变量，各变量间用逗号隔开。 （3）Input语句 语句格式：Input [提示符] To 内存变