VB编程题经典案例.docVIP

VB编程题经典案例

b=int((xmod100)/10)

c=int(x/100)

printx;a*100+b*10+c

7输入两个整数，求它们的最大公约数。

Functiongcd%(byvalm%,byvaln%)

ifmnthent=m:m=n:n=t

R=mmodn

dowhile(r0)

m=n:n=r:r=modn

loopgcd=n

endfunction

8编程求200--400范围内5的倍数或7的倍数之和。

dims%,i%

s=0

Fori=200to400

ifimod5=0orimod7=0thens=s+i

endif

nexti

prints

9计算100~300之间所有能被3和7整除的数之和

dims%,i%

s=0

fori=100to300

Ifimod3=0andimod7=0thens=s+i

endif

nexti

print“s=”s

10分别统计1-100中，满足3的倍数、7的倍数的数各有多少。

Dimn1%,n2%,i%

n1=0:n2=0

Fori=1to100

ifimod3=0thenn1=n1+1

ifimod7=0thenn2=n2+1

nexti

printn1,n2

11某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。

Dima(6)asintegeri%,max%,min%,sum%

a(0)=val(text1.text)省略a(6）=val(text7.text)

sum=a(0)+a(1)+a(2)+a(3)+a(4)+a(5)+a(6)

max=a(0)

min=a(0)

fori=1to6ifmina(i)thenmin=a(i)

Ifmaxa(i)thenmax=a(i)

sum=sum+a(i)

nexti

print“平均分”;(sum-min-max)/5

12输入一串字符，统计其中字母A出现的次数。

dims$,i%，n%

s=text1

n=0

fori=1tolen(s）

c=mid(s,i,1)

Ifc=”A”ORc=”a”thenn=n+1

nexti

printn

13我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。

x=13

n=0

dowhilex26

x=x*1.008n=n+1

loop

print“年数为：”;n;”人数为:”;x

m=log(2)/log(1.008)

ifint(m)mthenm=int(m)+1

printm

14小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少

Dimn%,i%

x=1

fori=6to1step-1

x=2*(x+1)

printx

nexti

15求100以内的素数

Dimm%,i%,tagasboolean

form=3to100step2

tag=true

fori=2tom-1

ifmmodi=0Thentag=false

nexti

Iftag=truethenprintm”是素数”

elseprintm”不是素数”

Endif

nextm

16百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡案。

Dimx%，y%,z%,n%

n=0

print“母鸡”，”公鸡”，”小鸡’

forx=0to33

fory=0to50

Z=100-x-y

n=n+1

if3*x+2*y+0.5*z=100thenprintx,y,z

nexty

nextx

17编程求斐波那契数列前11项。（斐波那契数列：F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n=2）

Dimx()asintegerdimi%

n=16

redimx(n-1)

x(0)=1