计算机期末操作.doc

程序填空 *------------------------------------------------------- *【程序填空2】 *------------------------------------------------------- *功能:下面程序根据XSDB2.DBF数据表中的计算机和英语成绩对奖 * 学金做相应调整：双科90分以上（包括90）的每人增加30元； * 双科75分以上（包括75）的每人增加20元；其他人增加10元。 * 请在【】处添上适当的内容，使程序完整。 *注意：本题中，不允许使用逻辑常量 .T. 和 .F. *------------------------------------------------------- SET TALK OFF USE XSDB2 ***********SPACE********** DO WHILE not eof() DO CASE CASE 计算机=90.AND.英语=90 REPLACE 奖学金 WITH 奖学金+30 CASE 计算机=75.AND.英语=75 REPLACE 奖学金 WITH 奖学金+20 otherwise REPLACE 奖学金 WITH 奖学金+10 ENDCASE ***********SPACE********** skip ENDDO USE SET TALK ON RETURN *------------------------------------------------------- *【程序填空3】 *------------------------------------------------------- *功能:求1到50的累加和（S=1+2+3+...+50）并显示。请在【】处添上 * 适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF ***********SPACE********** h=0 I=1 ***********SPACE********** DO WHILE i=50 H=H+I ***********SPACE********** i=i+1 ENDDO ? H SET TALK ON RETURN *------------------------------------------------------- *【程序填空4】 *------------------------------------------------------- *功能:实现:求0-100之间的奇数之和，超出范围则退出。请在【】处 * 添上适当的内容，使程序完整。 *注意：本题中，不允许使用不等于运算符 *------------------------------------------------------- SET TALK OFF X=0 Y=0 DO WHILE .T. X=X+1 DO CASE ***********SPACE********** CASE mod(x,2)=0 int(X/2)=X/2 LOOP CASE X=100 ***********SPACE********** exit OTHERWISE Y=Y+X ENDCASE ***********SPACE********** enddo ? 0-100之间的奇数之和为: , Y SET TALK ON RETURN *------------------------------------------------------- *【程序填空5】 *------------------------------------------------------- *功能:依次显示XSDB5.DBF数据表中的记录内容。请在【】处添上适当 * 的内容，使程序完整。 *注意：不允许使用逻辑常量 .T. 和 .F. *------------------------------------------------------- SET TALK OFF ***********SP