编程题Word文件下载.docx

编程题Word文件下载.docx

《编程题Word文件下载.docx》由会员分享，可在线阅读，更多相关《编程题Word文件下载.docx（21页珍藏版）》请在冰豆网上搜索。

PrintRound（s,2）

3、求数列2/1,3/2,5/3,8/5,……，的前10项的和。

（16.47991）

privatesubform_click（）

dimI%,a%,b%,t%,s!

a=2:

b=1

forI=1to10step1

s=s+a/b

t=a

a=a+b

b=t

nextI

prints

endsub

Dimd（10）AsSingle,nAsInteger,sAsSingle

d

（1）=2/1

s=2/1

Forn=2To10

d（n）=1+1/d（n-1）

s=s+d（n）

Prints

4、编程求fibonacci数列：

1，1，2，3，5，8……的前30个数的和。

（2178308）

s&

a=1:

b=1:

s=2

Fori=3To30

c=a+b

s=s+c

nexti

EndSub

Dimd（30）AsDouble,nAsInteger,sAsDouble

d

（1）=1

d

（2）=1

Forn=3To30

d（n）=d（n-1）+d（n-2）

Nexti

Endsub

5、编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26、之积是880。

（4720）

Dima%,b%

Fora=0To6

Forb=0To3

Ifa+（a+b）+（a+2*b）+（a+3*b）=26Anda*（a+b）*（a+2*b）*（a+3*b）=880Then

Printa^3+（a+b）^3+（a+2*b）^3+（a+3*b）^3+（a+4*b）^3

EndIf

Nextb

Nexta

6、猴子吃桃问题：

猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；

以此类推，到第10天只剩余1个。

问第1天共摘了多少桃子。

（1534）

DimdayAsInteger,sumAsInteger

day=10:

sum=1

DoWhileday>

1

sum=（sum+1）*2

day=day-1

Loop

Printsum

Forday=9To1Step-1

sum=（sum+1）*2

Nextday

7、我国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?

（9）

PrivateSubCommand1_Click（）

Dims&

n=0

s=45600

DoWhiles<

45600*2

s=s*1.09

n=n+1

Printn

1、编写程序，编写程序，求在10~1000之间所有能被4除余3，被7除余4，被9除余4的数的平方和。

（1109620）

Dims#,n%

s=0

Forn=10To1000

IfnMod4=3AndnMod7=4AndnMod9=4Then

s=s+n^2

2、编写程序，统计200~300之间的所有满足三个数字之积为24，三个数字之和为10的数的个数。

（2）

dimI%,a%,b%,c%,n%

a=i\100'

百位

b=（imod100）\10'

十位

c=iMod10'

个位

forI=200to300step1

a=Int（i/100）‘百位

b=int（（I-a*100）/10）‘十位

c=Imod10‘个位

ifa*b*c=24anda+b+c=10then

n=n+1

endif

printn

3、编写程序，计算1000以内有多少个这样的数，其十位数为6且能被8整除。

（15）

Dimn%,i%,a%,b%

n=0

Fori=1To1000

a=i\100

b=（i-a*100）\10

Ifb=6AndiMod8=0Then

Nexti

4、"

水仙花数"

是指这样的数，其各位数字的立方和等于该数本身。

编写程序求100至999的范围内有多少个水仙花数。

（4）

Dimi%,n%,a%,b%,c%

Fori=100To999

c=iMod10

Ifi=a^3+b^3+c^3Then

5、编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。

（110）

Fori=1000To9999

a=i\1000

b=（i-a*1000）\100

c=（i-a*1000-b*100）\10

IfiMod8=0Anda+b=b+cThen

6、所谓回文数是从左至右或从右至左读起来都是一样的数字，如：

121是一个回文数。

编写程序，计算从1981年开始到3000年为止，共有多少个年号是回文数年号。

（11）

DimI%,a%,b%,c%,d%,n%

ForI=1981To3000Step1

a=Int（I/1000）

b=Int（（I-a*1000）/100）

c=Int（（I-a*1000-b*100）/10）

d=IMod10

Ifa=dAndb=cThen

EndIf

NextI

7、计算在0至99的范围内有多少个数，其每位数的乘积大于每位数的和。

（63）

Dimi%,n%,a%,b%

Fori=0To99

a=i\10

b=iMod10

Ifa*b>

a+bThen

8、有一个三位数满足下列条件:

（1）三位数字各不相同;

（2）此数等于它的各位数字的立方和。

Ifa<

>

bAndb<

canda<

cAnda^3+b^3+c^3=iThen

1、求方程8x－5y=3在|x|<

=150,|y|<

=200内的

（1）整数解的组数;

（50）

（2）|x|*|y|的最大值;

（24676）

Dimx%,y%,n%,max&

n=0:

max=1

Forx=-150To150

Fory=-200To200

If8*x-5*y=3Then

IfAbs（x）*Abs（y）>

maxThen

max=Abs（x）*Abs（y）

Nexty

Nextx

Printn,max

2、把50元钱分成一元、二元和五元的纸币且纸币张数共为20张的分法有多少种？

（注：

在兑换中，一元、二元、五元的纸币张数可以为0）

Dimi%,j%,k%,n%

Fori=0To20

Forj=0To20

Fork=0To20

If1*i+2*j+5*k=50Andi+j+k=20Then

Nextk

Nextj

3、百钱百鸡问题。

用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法（要求每种鸡至少要买1只）。

（3）

Fori=1To100

Forj=1To100

Fork=1To100

If5*i+3*j+k/3=100Andi+j+k=100Then

4、求共有几组i、j、k符合算式ijk+kji=1534，其中i、j、k是0~9之间的一位整数。

（5）

fori=0to9

forj=0to9

fork=0to9

ifi*100+j*10+k+k*100+j*10+i=1534then

nextk

nextj

5、有30个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？

Fori=1To30

Forj=1To30

Fork=1To30

If3*i+2*j+k=50Andi+j+k=30Then

6、求方程9x+4y=1000的正整数解的组数以及|x-y|的最大值。

（27，237）

Max=0

Forx=1To111

Fory=1To250

If9*x+4*y=1000Then

IfAbs（x-y）>

MaxThen

Max=Abs（x-y）

Printn,Max

7、有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多少钱？

（23）

题型四：

也是求某范围内满足条件的数的和，但不能遍历给定范围的所有数，因为题目要求在满足另一条件时强制结束循环。

1、求1到5000之间的能被5整除的前若干个偶数之和，直到和大于500为止。

（550）

Dims%,x%

Forx=2To5000Step2

IfxMod5=0Then

s=s+x

Ifs>

500Then

ExitFor

Endif

x=1

=500

IfxMod5=0AndxMod2=0Andx<

=5000Then

x=x+1

2、已知：

S=1+3+5+7+9+…，求S不大于750的最大值。

（729）

s=1

=750

x=2+x

s=s-x

DoWhile1'

1恒为true

Ifs>

750Then

s=s-x'

s此时已经>

750,必须减去刚加上去的x

ExitDo'

跳出dowhile…loop循环

x=x+2

3、已知：

S=2+4+8+16+32+…，求S不大于1500的最大值。

（1022）

x=2

=1500

x=2*x

1、统计1000~9999之间的完全平方数的个数，如：

25=5^2，25就是一个完全平方数。

（68）

Dimi%,n%,j%

Forj=30To100

Ifi=j*jThen

Dimi%,n%

IfSqr（i）=Int（Sqr（i））Then

2、统计1000~9999之间的所有满足以下条件的四位数的个数。

该四位数是一个完全平方数，且其第1位与第3位数字之和为12，第2位与第4位数字之积为24。

（1）

a=i\1000'

千位

b=i\100mod10'

c=i\10mod10'

d=imod10'

a=i\1000

b=（i-1000*a）\100

c=（i-1000*a-100*b）\10

d=iMod10

IfSqr（i）=Int（Sqr（i））Anda+c=12Andb*d=24Then

1、求[100,200]间有奇数个不同因子的整数的个数。

m=0‘保存有奇数个不同因子的整数的个数

Fori=100To200

n=0‘保存i的不同因子的个数

Forj=1Toi

IfiModj=0Then

IfnMod2=1Then‘判断i的不同因子的个数是否是奇数

m=m+1

Printm

求[200,300]之间的有奇数个不同因子的最大整数。

（289）

Dimm%,i%,n%,j%,max%

m=0:

Max=1

Fori=200To300

n=0

IfnMod2=1Then

Max=i

PrintMax

Dimi%,j%,n%

Fori=300To200step-1

Printi

ExitFor

2、已知24有8个正整数因子（即：

1,2,3,4,6,8,12,24），而24正好被其因子个数8整除。

问[100,300]之间有多少个这样的数。

（19）

Dimm%,i%,n%,j%

m=0

Fori=100To300

n=0

IfiModn=0Then

3、一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：

6=1+2+3，则6就是一个完数。

求出400以内的所有完数之和。

（34）

Dims%,i%,t%,j%

s=0'

保存完数的和

Fori=1To400

t=0'

保存i的所有小于它本身的因子之和

Forj=1Toi-1

t=t+j

Ift=iThen'

判断i是否符合完数的条件

s=s+i

1、[3，500]内所有素数之和。

（21534）

dimi%,s%

s=0‘保存素数的和

fori=3to500

forj=2toi-1‘若内循环正常结束，说明i是素数，此时j的值为i；

否则i不是素数，此时j的值小于等于i-1

ifimodj=0then

exitfor

nextj