计算机VFP程序设计综合.docVIP

试卷编号：8213 所属语言：Visual Foxpro 试卷方案：程序设计综合 试卷总分：100分 共有题型：3种 一、程序填空 共6题 （共计30分） 第1题 （5.0分） *------------------------------------------------------- *【程序填空】 *------------------------------------------------------- *题目：显示所有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 或 store 0 to s 2). I,6 3). ENDIF 或 ENDI 第2题 （5.0分） *------------------------------------------------------- *【程序填空】 *------------------------------------------------------- *题目: 下面程序的功能是不用第三个变量，实现两个数的对调操作 * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF clear input a= to a input b= to b ***********SPACE********** a=a+【?】 ***********SPACE********** b=【?】- b ***********SPACE********** a= 【?】 ? a=,a,b=,b set talk on canc 答案： 1). b 2). a 3). a-b 第3题 （5.0分） *------------------------------------------------------- *【程序填空】 *------------------------------------------------------- *题目: 给定年号与月份，编写程序判断该年是否是闰年，并根据 * 给出的月份来判断该月有多少天。 * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF CLEAR INPUT 请输入年号： TO Y INPUT 请输入月号： TO M IF Y%4=0 AND Y%1000 OR Y%400=0 LYEAR=.T. ? 是闰年 ELSE ***********SPACE********** LYEAR=【?】 ? 不是闰年 ENDIF N=M%7 DO CASE CASE M=2 IF LYEAR DAYS=29 ELSE DAYS=28 ENDIF ***********SPACE********** CASE M=7 OR 【?】 DAYS=31 ***********SPACE********** CASE N%2【?】 DAYS=30 ENDCASE ? STR(Y,4)+年+IIF(LYEAR,是,不是)+闰年， ? STR(M,2)+月份有+STR(DAYS,2)+天 SET TALK ON CANC 答案： 1). .F. 2). N%20 3). =0 第4题 （5.0分） *------------------------------------------------------- *【程序填空】 *------------------------------------------------------- *功能: 从读入的整数数据中，统计大于零的整数个数 * 和小于零的整数个数。用输入零来结束输入，