1、1程序填空题（供二级考生使用）以下程序有程序不完整，请将正确的语句填写在空白处并删除下划线，运行程序，将正确的答案填写在指定的位置。1、下列程序求三位数中，个位数字与十位数字之积除以 3 所得的余数是十位数字的偶数和，填空完成程序。(保留整数位)(正确答案 41409)(若是偶数和则为 32022)SET TALK OFFCLEARS=0X=100DO WHILE X123699EXITOTHEY=Y+XENDCASEENDDO?Y5、下列程序的功能是求 N，其中 N 是一个四位整数，它的九倍恰好是其反序数（反序数就是将整数的数字倒过来形成的数，例如 1234 的反序数为 4321） 。填空完
2、成该程序。 （保留整数位） （正确答案 1089）I=1002DO WHILE I0 .OR. Y % 400=0)ANS=“YES“ENDIFRETURN8、下面程序求在 1，2，3，4，3000 这 3000 个数中的任意选两个不同的数，要求它们的和能被 6 整除的数的总对数（注意：像 3+5 和 5+3 被认为是同一对数） 。请完成程序填空。 （保留整数位） （正确答案 749500）N=0I=1DO WHILE II/2S1=S1*IELSES2=S2+IENDIFENDFOR?S111、下面程序是求 30 到 150 之间所有偶数的平方和并显示结果，请填空。 （保留小数两位） （正确
3、答案 569740.00）CLEARS=0X=30DO WHILE XX/2LOOPCASE Y22500EXITOTHERWISEY=Y*XENDCASEENDDO?Y13、求 12345，当积大于 77777720 时退出循环。 （保留整数位） （正确答案 479001600）I=0S=1DO WHILE .T.I=I+1S=S*IIF S77777720EXITENDIFENDDO? S14、 下列程序求三位数中，个位数字与十位数字之和除以 10 所得的余数是百位数字的偶数的个数，填空完成程序。 （保留整数位） （45）S=0X=100DO WHILE X=999A=INT(X/100)
4、B=INT(X/10)-A*10C=X-A*100-B*10IF MOD(X,2)=0.AND.MOD(C+B,10)=AS=S+1ENDIFX=X+1ENDDO? S15、求解下列方程，请填空实现这一功能。 （保留整数位）* X+Y=7* X2+2Y2=41 （注：X、Y 后面的 2 为平方） （正确答案 3）X=0DO WHILE X=7Y=7-XIF X*X+2*Y*Y=415?XENDIFX=X+1ENDDO16、下面程序是求 2203 年各月份中的 15 日有几天是星期二。填空完成程序。 （正确答案 3）S=1M=1N=0DO WHILE M=12S=LTRIM(STR(M)+“/1
5、5/2203“IF DOW(CTOD(S)=3N=N+1ENDIM=M+1ENDD?N17、下面的程序是求 100 到 1500 之间的质数（质数是除 1 和本身以外，不能被其它数整除的数）的个数。填空完成程序。（保留整数位） （正确答案 214）S=0FOR N=100 TO 1500FLAG=0FOR I=2 TO SQRT(N)IF N/I=INT(N/I)FLAG=1ENDIFENDFORIF FLAG=0S=S+1ENDIFENDFOR ?S18、下面的程序是求 100 到 1500 之间的质数（质数是除 1 和本身以外，不能被其它数整除的数）的和。填空完成程序。（保留整数位）163980）S=0FOR N=100 TO 1500FLAG=0FOR I=2 TO SQRT(N)IF N/I=INT(N/I)FLAG=1ENDIFENDFORIF FLAG=0S=S+NENDIFENDFOR ?S
