VF程序填空2.docVIP

VF程序填空2 *------------------------------------------------------- *【程序填空】 *------------------------------------------------------- *功能: 输入某年某月某日，判断这一天是这一年的第几天？ * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF clear input 请输入年份： to year input 请输入月份： to month input 请输入日： to day do case case month=1 ***********SPACE********** sum=【?】 case month=2 sum=31 case month=3 sum=59 case month=4 sum=90 case month=5 sum=120 case month=6 sum=151 case month=7 sum=181 case month=8 sum=212 case month=9 sum=243 case month=10 sum=273 case month=11 sum=304 case month=12 sum=334 otherwise ? 数据输入错误 endcase ***********SPACE********** sum=sum+【?】 if year%400=0 .or. year%4=0 .and.year%100!=0 n=1 else n=0 endif if n=1 .and. month2 ***********SPACE********** sum= 【?】 endif ? 这是这一年的第+str(sum,4)+天。 set talk on RETURN *------------------------------------------------------- *【程序填空】 *------------------------------------------------------- *功能: 企业发放的奖金根据利润提成。利润(I)低于或等于10万 * 元时，奖金可提10%；利润高于10万元，低于20万元时， * 低于10万元的部分按10%提成，高于10万元的部分，可提 * 成7.5%；20万到40万之间时，高于20万元的部分，可提 * 成5%；40万到60万之间时高于40万元的部分，可提成3%； * 60万到100万之间时，高于60万元的部分，可提成1.5%， * 高于100万元时，超过100万元的部分按1%提成，从键盘 * 输入当月利润I，求应发放奖金总数？ * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF clear input 请输入当月的利润: to i b1=100000*0.1 b2=b1+100000*0.75 b4=b2+200000*0.5 b6=b4+200000*0.3 b10=b6+400000*0.15 do case case i=100000 ***********SPACE********** b=i*【?】 case i=200000 b=b1+(i-100000)*0.075 case i400000 b=b2+(i-200000)*0.05 case i600000 b=b4+(i-400000)*0.03 case i1000000 b=b6+(i-600000)*0.015 ***********SPACE********** 【?】 b=b10+(i-1000000)*0.01 endcase ***********SPACE********** ?