计算机vb 程序题

程序题

窗体顶端

序

题目程序泠案

号

程序功能：求s=l+3+5+7+...直到s>2000为止。程序中有两行有错PrivateSubCommandl_Click()Dini2025

误。改正错误，使它能输出正确的结果.iAsInteger,sAsLongs=0i=1

1

DoUntils<2000s=s+ii=i+1

LoopPrintsEndSub

程序功能：求s=l+3+5+7+…直到s>3000为止。程序中有两行有错PrivateSubCommand1_Click()Dim3025

误。改正错误，使它能输出正确的结果。iAsInteger,sAsLongs=0i=1

2

DoUntils<3000s=s+ii=i+1

LoopPrintsEndSub

程序功能：计算s=2!+4!+8!0程序中有两行有错误。改正错误，使PrivateSubCommand1_Click()Dim40346

它能输出正确的结果。kAsInteger,iAsIntegerDimsAs

Long,tAsLongs=0i=1Do

3

Whilei<=3t=1k=1Whilek<=

2*it=t*kk=k+lWends=s+

ti=i+1WendPrintsEndSub

程序功能：计算s=2!+4!+6!+8!。程序中有两行有错误。改正错误，PrivateSubCommandl_Click()Dim41066

使它能输出正确的结果。kAsInteger,iAsIntegerDimsAs

Long,tAsLongs=0i=1Do

4

Whilei<=3t=1k=1Whilek<=

2Ait=t*kk=k+lWends=s+t

i=i+1WendPrintsEndSub

程序功能：求200到40()间，能被3整除但不能被7整除的数的个PrivateSubCommandl_Click()Dim57

数。程序中有两行有错误。改正错误，使它能输出正确的结果。countAsIntegerDimxAsInteger

count=0x=200Whilex<=400If

5

xMod3=0OrxMod7o0Then

count=count+1EndIfx=x+1

LoopPrintcountEndSub

程序功能:求200到500间，能被13整除但不能被17整除的数的PrivateSubCommand1_C1ick()Dim21

个数。程序中有两行有错误。改正错误，使它能输出正确的结果。countAsIntegerDimxAsInteger

count=0x=200Whilex<=500If

6

xMod13=0OrxMod17o0

Thencount=count+1EndIfx=x

+1LoopPrintcountEndSub

程序功能：求1到400间，同时能被3和7整除的数的个数。程序PrivateSubForm_Click()Dimcount19

中有两行有错误。改正错误，使它能输出正确的结果。AsIntegerDimxAsIntegerForx=

1To400ifmod(x,3)=0and

7

mod(x,7)=0thencount=count+1

endifNextcountprintcountEnd

Sub

8程序功能：求1到500间，同时能被5和9整除的数的个数。PrivateSubCommand1_Click()Dim11

程序中有两行有错误。改正错误，使它能输出正确的countAsIntegerDimxAsInteger

结果。Forx=1To500ifmod(x,5)=0and

mod(x,9)=0thencount=count+1

endifNextcountprintcountEnd

Sub

程序功能：求能被3整除且至少有一位数字为5的三位数的个数。PrivateSubCommandl_Click()Dim85

程序中有两行有错误。改正错误，使它能输出1E确的结果。countAsIntegerDimaAsInteger,b

AsInteger,cAsIntegerDimxAs

Integerx=100DoWhilex<=999

IfxMod3=0Thena=lnt(x/100)

9

b=Int((x-a*100)/10)c=x-a*

100-b*10Ifa=5Andb=5Andc

=5Thencount=count+1EndIf

EndIfx=x+1WendPrintcount

EndSub

程序功能：求能被7整除且至少有一位数字为9的三位数的个数。PrivateSubCommandl_Click()Dim36

程序中有两行有错误。改正错误，使它能输出正确的结果。countAsIntegerDimaAsInteger,b

AsInteger,cAsIntegerDimxAs

Integerx=100DoWhilex<=999

IfxMod7<>0Thena=Int(x/

10

100)b=Int((x-a*100)/10)c=x

-a*100-b*10Ifa=9andb=9

Andc=9Thencount=count+1

EndIfEndIfx=x+1LoopPrint

countEndSub

程序功能：求三位偶数中，个位数字与十位数字之和除以10所得的PrivateSubCommandl_Click()Dim45

余数是百位数字的数的个数。程序中有两行有错误。改正错误，使countAsIntegerDimaAsInteger,b

它能输出正确的结果。AsInteger,cAsIntegerDimxAs

Integercount=0x=100Whilex

11<=999a=Int(x/100)b=Int(x/

10)-a*10c=x-a*100-b*10if

mod(x,2)=0ORmod(b+c,10)=athen

count=count+1EndIfx=x+1

LoopPrintcountEndSub

程序功能：求三位奇数中，个位数字与十位数字之和除以10所得的PrivateSubCommandl_Click()Dim45

余数是百位数字的数的个数。程序中有两行有错误。改正错误，使countAsIntegerDimaAsInteger,b

它能输出正确的结果。AsInteger,cAsIntegerDimxAs

Integercount=0x=100Whilex

12v=999a=Int(x/100)b=Int(x/

10)-a*10c=x-a*100-b*10if

xmod2=0Orb+cmod10=athen

count=count+1EndIfx=x+1

LoopPrintcountEndSub

13程序功能:求平方和小于2000的最大自然数。程序中有两行有错误。PrivateSubFormClick()DimxAs18

改正错误，使它能输出正确的结果。IntegerDimsAsIntegers=0x=0

DoWhiles>=2000x=x+2s=s

-+x*xloopPrintxEndSub

程序功能：求1〜100中，两个不同的数之和能被3或7整除的“数PrivateSubFonn_Click()DimnAs2121

对”的对数（注意:3+5和5+3认为是同一“数对”）？程序中有两行Integer,iAsIntegern=0i=1Do

有错误。改正错误，使它能输出正确的结果。Whilei<=100J=1DoWhileJ<=

14100IFMOD(I+J,3)o0OR

MOD(I+J,7)=0thenn=n+1EndIf

J=J+1Loopi=i-1LoopPrint

n/2EndSub

程序功能：解百马百瓦古题。大、小马和马驹共100匹,共驮1OOlPrivateSubForm_Click（）DimxAs6

片瓦。大马•驮三，小马•驮二，马驹二驮一次驮完，三种马Integer,yAsInteger,zAsInteger

都驮，共有多少种组合？程序中有三行有错误。改正错误，使它能DimsAsIntegers=0Forx=1To

154俞出正确的结果。33Fory=1To50z=100-x-yIf

3*x+2*y+z/2o100Thens=

s+1EndIfNextxNextyPrints

EndSub

程序功能：解百马百瓦古题。大、小马和马驹共100匹，共驮100PrivateSubForm_Click()s=0dm6

片瓦。大马•驮三，小马•驮二，马驹二驮一，・次驮完，三种马=1DoWhiledm<=100/3xm=1

都驮，共有多少种组合？程序中有•行有错误。改正错误，使它能DoWhilexm<=100/2-dmmj=

16输出正确的结果。100-dm-xmIfdm+xm+inj=

100Thens=s+1EndIfxm=xm+

1Loopdm=dm+1LoopPrints

EndSub

程序功能：求100-200之间的所有素数个数，程序中有两行有错误。PrivateSubCommand1_Click()21

改正错误，使它能输出正确的结果。Number=0Forx=101To199Step

2i=2k=Int(x/2)DoWhilei<=k

17IfxModi=0ThenExitFori=i+1

LoopIfi<kThenNumber=

Number+1EndIfNextxPrint

NumberEndSub

程序功能:sum=d+dd+ddd+.......+ddd..d（d为1-9的数字）。例如：PrivateSubFonn_CIick()DimdAs864197523

3+33+333+3333（此时d=3,n=4）。从键盘上输入d的值为8,n的值Integer,nAsInteger,iAsInteger

为9,求sum的值。程序中有两行有错误。改正错误，使它能输出DimsumAsLongsum=0d=

18正确的结果。Val(InputBox("请输入数值d:"))n=

Val(InputBox("请输入数值n:”))For

ji=1Tontn=tn+dsum=sun+tn

NextiPrintsumEndSub

程序功能：输出水仙花的个数（所谓水仙花数是指一个三位十进制PrivateSubForm_Click（）Dim4

数，该数的各位数字立方之和等于该数本身。例如153是一个水仙numberAsIntegerDimnAsInteger,

19花数，因为lA3+5A3+3A3=153）程序中有两行有错误。改正错误，iAsInteger,jAsInteger,kAs

使它能输出正确的结果。OptionExplicitIntegerForn=100To999i=n/

100。百位j=Int（n/10）-i*104|-

位k=nMod10，个位If(n=i*i

*i+j*j*j+k*k*k)Then

number=numbre+1EndIfNextn

PrintnumberEndSub

程序功能:求数列2/1,3/2,5/3,8/5,13/8...........的前10项之和。PrivateSubForm_Click()DimiAs16.47991

程序中有两行有错误。改正错误，使它能输出」E确的结果。Integer,tAsInteger,nAsInteger

DimaAsInteger,bAsIntegerDims

20

AsSinglea=2:b=1:n=10:s=0

Fori=1lbns=s+a/bt=ba=a

+ba=tNextiPrintsEndSub

程序功能：獗子第1天摘下若干桃子，当即吃掉一半，又多吃一个,PrivateSubForm_Click()Dimday1534

第二天将剩余的部分吃掉一半还多个；以此类推，到第10天只剩AsInteger,sumAsIntegerday=10;

21余1个。问第1天共摘了多少桃子。程序中有两行有错误。改正错sum=1DoWhileday>1sum=

误，使它能输出正确的结果。sum*2day=day-1LoopPrint

sumEndSub

程序功能：一个两位数的正整数，如果将其个位数与十位数字对调PrivateSubForm_Click()DimxAs8

所生成的数称为其对调数，如28是82的对调数。现给定一个两位Integer,yAsInteger,numberas

的正整数46,请找到另•个两位的整数，使这两个数之和等于它们IntegerDimxfAsInteger,yfAs

的各自的对调数之和。这样的另•个两位数有多少个。程序中有两IntegerNumber=0x=46xf=(x

22行有错误。改正错误，使它能输出正确的结果。Mod10)*10+Int(y/10)Fory=

10To99yf=yMod10+Int(y/10)

Ifx+y=xf+yfThenNumber=

Number+1EndIfNextyPrint

NumberEndSub

程序功能：求1〜200之间的能被7整除的数的平方和。程序有两处PrivateSubCommand1_Click()Dim377986

错误。改正错误，使它能输出正确的结果。xAsIntegerDimsumAsintegerx=

231sum=0Whilex<=200IfxMod

7=0sum=sum+xA2EndIfx=x

+1WendPrintsumEndSub

程序功能：求1〜99的平方根的和并输出结果。（保留小数点两位）,PrivateSubCommandl_Click()Dim661.46

程序中有两行有错误。改1E错误，使它能输出1E确的结果。xAsIntegerDimsumAsIntegerx=

241DoWhilex<=99sum=sum+

Sqrt(x)x=x+1LoopPrint

Round(sum,2)EndSub

程序功能：求1〜55的平方根的和并输出结果。（保留小数点两位）PrivateSubCommand1_Click()Dim275.43

程序中有两行有错误。改正错误，使它能输出正确的结果。xAsIntegerDimsumAsIntegerx=

251DoWhilex<=55sum=sum+

Sqrt(x)x=x+1LoopPrint

Round(sum,2)EndSub

程序功能：统计1T000中能被3整除的数的个数。程序中有两行有PrivateSubCommand1_Click()Dim333

错误。改正错误，使它能输出正确的结果。countAsIntegerDimiAsIntegeri=

26

3count=0DoWhileI>=1000Ifx

mod3=0Thencount=count+1

EndIfi=i+1LoopPrintcountEnd

Sub

程序功能：输出1〜100中所有整数的平方和。程序中有错误。PrivateSubCommandl_Click()Dim328350

错误，使它能输出正确的结果。kAsIntegerDimsumAsIntegerx=

271sum=0DoUntilx<100sum=

sum+xA2x=x+1LoopPrint

sumEndSub

程序功能：求口,5000］内能被5整除的前若干个偶数之和，直到和大PrivateSubCommandl_Click()Dim50500

于50000为止。程序中有两行有错误。改正错误，使它能输出正确xAsIntegerDimsAsLongx=2

的结果。DoWhilex<=5000IfxMod5=0

28

Thens=s+xlfs>50000Then

ExitfbrEndIfEndIfx=x+1Loop

PrintsEndSub

程序功能：求3000以内能被17或23整除的正整数的个数。程序中PrivateSubCommandl_Click()Dim299

有两行有错误。改正错误，使它能输出正确的结果。xAsIntegerDimcountAsInteger

Forx=1To3000step-1IfxMod

29

17=0andxMod23=0Thencount

=count+1EndIfNextxPrint

countEndSub

程序功能：已知一个数列的前3项为0,0,1,以后每项为前3项PrivateSubCommandl_C1ick()Dim334745777

的和，求此数列的第36项。程序中有两行有错误。改正错误，使它aAsLongDimbAsLongDimcAs

能输出正确的结果。LongDimdAsLongDimiAs

30

Integera=0:b=0:c=IFori=1

To36d=aa=bb=cc=a+b+cNexti

PrintcEndSub

程序功能：求数列2,4,8/6,32,…前若干项之和。当和大］-9000时,PrivateSubCommand1_Click()Dim16382

终止求和并输出结果。程序中有两行有错误。改正错误，使它能输sAsIntegerDimxAsIntegerx=1

31

出正确的结果。Dox=x+2s=s+xUntils>9000

PrintsEndSub

程序功能：求［351,432］之间既不能被3整除，也不能被8整除的正整PrivateSubCommandl_Click()Dini661

数的个数。程序中有两行有错误。改正错误，使它能输出正确的结cAsIntegerDimxAsIntegerForx

果。=351To432IfxMod3o0orx

Mod8o0Thenc=c+1EndIf

NextcPrintcEndSub试题要求：

源程序文件名：试题答案：47考

试语种：试卷编号：1034第35

32

小题：程序功能：求［444,666］中最

大的素数。程序中有两行有错误。

改正错误，使它能输出正确的结

果。PrivateSubCommandl_Click()

DimxAsIntegerDimiAsInteger

Forx=666To444k=Int(Sqr(x))

Fori=2TokIfxModi=0Then

ExitDoEndIfNextiIfi>kThen

PrintxExitForEndIfNextxEnd

Sub

程序功能：已知24有8个正整数因子(即：123,4,6,8,12,24),而24PrivateSubCommandl_Click()Dim19

正好被其因子个数8整除。问［100,300］之间有多少个这样的数。程nlAsInteger,n2AsIntegerDimx

序中有两行有错误。改正错误，使它能输出正确的结果。AsIntegerDimiAsIntegern2=0

Forx=100To300n2=0Fori=1

33

To100IfxModi=0Thennl=nl

+1EndIfNextiIfxModnl=0

Thenn2=n2+1EndIfNextxPrint

n2EndSub

程序功能：若某整数N的所有因子之和等于N的倍数，则N称为PrivateSubCommandl_Click()Dim4

多因子完备数，如数28,其因子之和1+2+4+7+14+28=56=2*28,28是NAsIntegerDimsAsIntegerDimi

多因子完备数。求［1,200］之间有多少个多因子完备数。改正错误,AsIntegerDimcAsIntegerc=0

使它能输出正确的结果。ForN=1To200s=0Fori=1To

34

NIfNModio0Thens=s+i

EndIfNextiIfNMods=0Thenc

=c+1EndIfNextNPrintcEnd

Sub

程序功能:我国今年的国民生产总值为45600亿元,若今后每年以9%PrivateSubCommandl_Ciick()Dim9

的增长率增长，计算多少年后能实现国民生产总值翻一番?程序中有pAsLong,plAsLongDimnAs

35两行有错误。改正错误，使它能输出正确的结果。Integern=0pl=45600p=plDo

p=p*(1+9)n=n+1LoopUntilp

<2*plPrintnEndSub

程序功能：已知24有8个正整数因子(即:1,2,3,4,6,8,12,24),而24PrivateSubCommand1_Click()Dim296

正好被其因子个数8整除。求［100,300］之间能被其因子数目整除的NAsIntegerDimsAsIntegerDimi

数中最大的数。程序中有两行有错误。改正错误，使它能输出正确AsIntegerForN=300To100s=0

36的结果。Fori=1ToNIfNModi=0Thens

=s+1EndIfNextiIfsModN=0

ThenPrintNExitForEndIfNextN

EndSub

程序功能：有一个三位数满足下列条件：(1)三位数字各不相同；(2)PrivateSubCommand1_Click()Dim4

此数等于它的各位数字的立方和。求这种三位数的个数。程序中有xAsIntegerDimaAsIntegerDimb

两行有错误。改正错误，使它能输出正确的结果。AsIntegerDimcAsIntegerDimn

AsIntegern=0x=100DoWhile

x>=999a=Int(x/100)b=lnt(x/

37

10)-a*10c=x-a*100-b*lOIf

aocOrb<>cOraobOrx=a

A3+bA3+cA3Thenn=n+I

EndIfx=x+1LoopPrintnEnd

Sub

程序功能：求I〜130之间所有整数的立方和并输出结果,程序中有PrivateSubCommandl_Click()Dim72505225

38

两行有错误。改正错误，使它能输出正确的结果。sAsIntegerDimxAsIntegerx=1s

=0DoWhilex>130s=s+xA3x

=x+1LoopPrintsEndSub

程序功能：求I〜210之间所有整数的立方和并输出结果。程序中有PrivateSubCommandl_Click()Dim490844025

两行有错误。改正错误，使它能输出正确的结果。sAsIntegerDimxAsIntegerx=Is

39

=0Dos=s+xA3x=x+IWhile