VB循环程序例题100道附答案

第第页第第25页试求F(45)值。1134903170f1=1f2=1s=f1Fori=3To45f3=f2+f1f1=f2f2=f3NextiPrintf378 已知一个数列的前三项为 0,0,1,以后各项都是其相邻的前三项之和，求该数列前 30项之和。 18947744f1=0f2=0f3=1s=f1+f2+f3Fori=4To30f4=f3+f2+f1s=s+f4f1=f2f2=f3f3=f4NextiPrints1236779设S=1+1/2+1/3+--1/n,n为正整数，求使S不超过10(S010)的最大的n。12367s=0n=1DoWhiles<=10s=s+1/nn=n+1LoopPrintn-180已知S1=2,S2=2+4,S3=2+4+6,S4=2+4+6+8,S5=2+4+6+8+10 ,…，求S=S1+S2+S3+S4+S5++S20的值。 3080s=0:n=0Fori=1To20n=n+2*is=s+nNextiPrints9.a,b,c,d,e81设有十进制数字 a,b,c,d和 e，它们满足下列式子： abcd*e=bcde(a不等于 0， e不等3665于0或1)，求满足上述条件的所有四位数 abcd的和。3665s=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9Ifi*e=b*1000+c*100+d*10+eThens=s+iNexteNextiPrints82设有十进制数字 a,b,c,d和e，它们满足下列式子： abcd*e=bcde（a不等于 0，e不等于0或1），求满足上述条件的最大四位数 abcd的值。 1999Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9Ifi*e=b*1000+c*100+d*10+eThens=iNexteNextiPrints83设有十进制数字 a,b,c,d和e，它们满足下列式子： abcd*e=bcde（a不等于 0，e不等于0或1），求满足上述条件的四位数 abcd的个数。 2n=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9Ifi*e=b*1000+c*100+d*10+eThenn=n+1NexteNextiPrintn84有十进制数字 a,b,c,d和e，它们满足下列式子： abcd*e=bcde(a不等于 0，e不等于0或1)，求满足上述条件的所有四位数 bcde的和。 16659s=0Fori=1000To9999a=i\1000b=i\100Mod10c=i\10Mod10d=iMod10Fore=2To9t=b*1000+c*100+d*10+eIfi*e=tThens=s+tNexteNextiPrints85设有6个十进制数字 a,b,c,d, e，f,求满足abcdf×e=fdcba条件的五位数 abcdf(a≠0,e≠0,e≠1)的个数。 2n=0Fori=10000To99999a=i\10000b=i\1000Mod10c=i\100Mod10d=i\10Mod10f=iMod10Fore=2To9t=f*10000+d*1000+c*100+b*10+aIfi*e=tThenn=n+1NexteNextiPrintn方程86求方程8x-5y=3,在|x|<=150,|y|<=200内的整数解。试问这样的整数解有多少组？ 50n=0Forx=-150To150Fory=-200To200If8*x-5*y=3Thenn=n+1Nexty,xPrintn87求方程8x-5y=3,在|x|<=150,|y|<=200内的整数解。试问这样的整数解中 |x|*|y|的最大值是多少？ 24676Max=0Forx=-150To150Fory=-200To200If8*x-5*y=3AndAbs(x)*Abs(y)>MaxThenMax=Abs(x)*Abs(y)Nexty,xPrintMax88若(x,y,z)满足方程： x^2+y^2+z^2=55^2(注：要求 x>y>z),则(x,y,z)称为方程的一个解。试求方程的所有整数解中， |x|+|y|+|z|的最大值和最小值。 最大95'最小67Max=0Min=55^2Forx=-55To55Fory=-55Tox-1Forz=-55Toy-1Ifx^2+y^2+z^2=55^2Thens=Abs(x)+Abs(y)+Abs(z)Ifs>MaxThenMax=sIfs<MinThenMin=sEndIfNextz,y,xPrintMax,Min89已知X,Y,Z为三个正整数，且 X^2+Y^2+Z^2=25^2，求 X+Y+Z的最大值。 43Max=0Forx=1To25Fory=1To25Forz=1To25Ifx^2+y^2+z^2=25^2ThenIfx+y+z>MaxThenMax=x+y+zEndIfNextz,y,xPrintMax90 （x,y,z）满足方程： x^2+y^2+z^2=55^2（注：要求 x>y>z）,则（x,y,z）称为方程的62一个解。试求方程的整数解（包括负整数解）的个数。62n=0Forx=-55To55Fory=-55Tox-1Forz=-55Toy-1Ifx^2+y^2+z^2=55^2Thenn=n+1Nextz,y,xPrintn91求方程9X-19Y=1,在|X|≤100,|Y|≤50内共有多少组整数解 ? 11n=0Forx=-100To100Fory=-50To50If9*x-19*y=1Thenn=n+1Nexty,xPrintn其它92某些分数的分子和分母都是二位正整数的真分数具有下列特点：如果将该分数的分子的两位数字相加作分子， 而将该分数的分母的两位数字相加作分母， 得到的新分子跟原分子相等。 例如，63/84=（6+3）/（8+4）。试求所有具有这种特点的真分子（非约简真分数）的分子与分母之和的和。10134s=0Fori=10To99Forj=10Toia1=i\10b1=iMod10a2=j\10b2=jMod10Ifi/j=（a1+b1）/（a2+b2）Andi<>jThens=s+i+jNextj,iPrints93求[1，50]之间的所有整数能构成直角三角形的三边的组数。例如： 3*3+4*4=5*5，它们构成直角三角形，所以 {3，4，5}作为一组，但 {4，3，5}视为跟{3，4，5}相同的一组。 20注：用勾股、弦数方法s=0Fori=1To50Forj=1ToiFork=1TojIfj^2+k^2=i^2Thens=s+1Nextk,j,iPrints94已知：非等腰三角形最长边是 60，其它两边的长度都是正整数， 且三边之和能被 3整除，试编程求取这类三角形的个数（注意：两边的长度交换构成的三角形算作同一个三角形，如：其它两边的长度为 30和40的三角形与长度为 40和30的三角形视为同一个三角形） 。 271s=0Fori=1To59Forj=i+1To59If（i+j+60）Mod3=0Andi+j>60Thens=s+1Nextj,iPrints95爱因斯坦走台阶 :有一台阶 ,如果每次走两阶 ,最后剩一阶 ;如果每次走三阶 ,最后剩两阶 ;如果每次走四阶 ,最后剩三阶 ;如果每次走五阶 ,最后剩四阶 ;如果每次走六阶 ,最后剩五阶 ;如果每次走七阶 ,刚好走完 .求满足上述条件的最小台阶数是多少？ 119n=1DoUntilnMod2=1AndnMod3=2AndnMod4=3AndnMod5=4AndnMod6=5AndnMod7=0n=n+1LoopPrintn96编写程序， 求共有几组 i,j,k符合算式 Ijk+kji=1534,其中i,j,k是[0,9]之间的一个整数且i<k。2n=0Fori=0To9Forj=0To9Fork=i+1To9If(i*100+j*10+k)+(k*100+j*10+i)=1534Thenn=n+1Nextk,j,iPrintn97猴吃桃： 有一天小猴子摘下了若干个桃子， 当即吃掉一半， 还觉得不过瘾， 又多吃了一个。第二天接着吃了剩下的桃子中的一半，仍不过瘾，又多吃了一个。以后每天都是吃尚存桃子的一半零一个。到第 10天早上小猴子再去吃桃子时，看到只剩下一个桃子了。问小猴子第一天共摘下了多少个桃子。 1534s=1Fori=9To1Step-1s=(s+1)*2NextiPrints98某一正整数，进行递减，每次将该数减半后再减一，当对该数进行第 10次减半时发现该数只剩下 1不能再减了，求该数。 1534s=1Fori=9To1Step-1s=(s+1)*2NextiPrints99求在[2，1000]之间的所有同构数之和(某正整数的平方，其低位与该数本身相同，则称该数为同构数。例如 25^2=625，625的低位25与原数相同，则称 25为同构数) 。 1113s=0Fori=2To1000x=i^2t=10DoWhilex\t>0A=xModtt=t*10IfA=iThenExitDoLoopIfA=iThens=s+iNextiPrints1836100已知A<B,A和B均为正整数，且 A*B=716699，求 A+B的最小值。1836Min=716699Fora=1ToSqr(716699)b=716699/aIfb=Int(b)Anda+b<MinThenMin=a+bNextaPrintMin、职业道德、法律常识、保安礼仪、救护知识。作技能训练内容包括：岗位操作指引、勤务技能、消防技能、军事技能。其中专业理论知识内容包括：保安理论知识、消防业务知识、职业道德、法律常识、保安礼仪、救护知识。作技能训练内容包括：岗位操作指引、勤务技能、消防技能、军事技能。二．培训的及要求培训目的安全生产目标责任书为了进一步落实安全生产责任制，做到“责、权、利”相结合，根据我公司 2015年度安全生产目标的内容，现与 财务部签订如下安全生产目标：1、全年人身死亡事故为零，重伤事故为零，轻伤人数为零。2、现金安全保管，不发生盗窃事故。3、每月足额提取安全生产费用，保障安全生产投入资金的到位。4、安全培训合格率为 100%。二、本单位安全工作上必须做到以下内