計(jì)算機(jī)vb 程序題

程序題

窗體頂端

序

題目程序泠案

號(hào)

程序功能：求s=l+3+5+7+...直到s>2000為止。程序中有兩行有錯(cuò)PrivateSubCommandl_Click()Dini2025

誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果.iAsInteger,sAsLongs=0i=1

1

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

LoopPrintsEndSub

程序功能：求s=l+3+5+7+…直到s>3000為止。程序中有兩行有錯(cuò)PrivateSubCommand1_Click()Dim3025

誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。iAsInteger,sAsLongs=0i=1

2

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

LoopPrintsEndSub

程序功能：計(jì)算s=2!+4!+8!0程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使PrivateSubCommand1_Click()Dim40346

它能輸出正確的結(jié)果。kAsInteger,iAsIntegerDimsAs

Long,tAsLongs=0i=1Do

3

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

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

ti=i+1WendPrintsEndSub

程序功能：計(jì)算s=2!+4!+6!+8!。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，PrivateSubCommandl_Click()Dim41066

使它能輸出正確的結(jié)果。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整除的數(shù)的個(gè)PrivateSubCommandl_Click()Dim57

數(shù)。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。countAsIntegerDimxAsInteger

count=0x=200Whilex<=400If

5

xMod3=0OrxMod7o0Then

count=count+1EndIfx=x+1

LoopPrintcountEndSub

程序功能:求200到500間，能被13整除但不能被17整除的數(shù)的PrivateSubCommand1_C1ick()Dim21

個(gè)數(shù)。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。countAsIntegerDimxAsInteger

count=0x=200Whilex<=500If

6

xMod13=0OrxMod17o0

Thencount=count+1EndIfx=x

+1LoopPrintcountEndSub

程序功能：求1到400間，同時(shí)能被3和7整除的數(shù)的個(gè)數(shù)。程序PrivateSubForm_Click()Dimcount19

中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。AsIntegerDimxAsIntegerForx=

1To400ifmod(x,3)=0and

7

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

endifNextcountprintcountEnd

Sub

8程序功能：求1到500間，同時(shí)能被5和9整除的數(shù)的個(gè)數(shù)。PrivateSubCommand1_Click()Dim11

程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的countAsIntegerDimxAsInteger

結(jié)果。Forx=1To500ifmod(x,5)=0and

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

endifNextcountprintcountEnd

Sub

程序功能：求能被3整除且至少有一位數(shù)字為5的三位數(shù)的個(gè)數(shù)。PrivateSubCommandl_Click()Dim85

程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出1E確的結(jié)果。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整除且至少有一位數(shù)字為9的三位數(shù)的個(gè)數(shù)。PrivateSubCommandl_Click()Dim36

程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。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

程序功能：求三位偶數(shù)中，個(gè)位數(shù)字與十位數(shù)字之和除以10所得的PrivateSubCommandl_Click()Dim45

余數(shù)是百位數(shù)字的數(shù)的個(gè)數(shù)。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使countAsIntegerDimaAsInteger,b

它能輸出正確的結(jié)果。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

程序功能：求三位奇數(shù)中，個(gè)位數(shù)字與十位數(shù)字之和除以10所得的PrivateSubCommandl_Click()Dim45

余數(shù)是百位數(shù)字的數(shù)的個(gè)數(shù)。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使countAsIntegerDimaAsInteger,b

它能輸出正確的結(jié)果。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的最大自然數(shù)。程序中有兩行有錯(cuò)誤。PrivateSubFormClick()DimxAs18

改正錯(cuò)誤，使它能輸出正確的結(jié)果。IntegerDimsAsIntegers=0x=0

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

-+x*xloopPrintxEndSub

程序功能：求1?100中，兩個(gè)不同的數(shù)之和能被3或7整除的“數(shù)PrivateSubFonn_Click()DimnAs2121

對”的對數(shù)（注意:3+5和5+3認(rèn)為是同一“數(shù)對”）？程序中有兩行Integer,iAsIntegern=0i=1Do

有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。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

都馱，共有多少種組合？程序中有三行有錯(cuò)誤。改正錯(cuò)誤，使它能DimsAsIntegers=0Forx=1To

154俞出正確的結(jié)果。33Fory=1To50z=100-x-yIf

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

s+1EndIfNextxNextyPrints

EndSub

程序功能：解百馬百瓦古題。大、小馬和馬駒共100匹，共馱100PrivateSubForm_Click()s=0dm6

片瓦。大馬?馱三，小馬?馱二，馬駒二馱一，?次馱完，三種馬=1DoWhiledm<=100/3xm=1

都馱，共有多少種組合？程序中有?行有錯(cuò)誤。改正錯(cuò)誤，使它能DoWhilexm<=100/2-dmmj=

16輸出正確的結(jié)果。100-dm-xmIfdm+xm+inj=

100Thens=s+1EndIfxm=xm+

1Loopdm=dm+1LoopPrints

EndSub

程序功能：求100-200之間的所有素?cái)?shù)個(gè)數(shù)，程序中有兩行有錯(cuò)誤。PrivateSubCommand1_Click()21

改正錯(cuò)誤，使它能輸出正確的結(jié)果。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的數(shù)字）。例如：PrivateSubFonn_CIick()DimdAs864197523

3+33+333+3333（此時(shí)d=3,n=4）。從鍵盤上輸入d的值為8,n的值Integer,nAsInteger,iAsInteger

為9,求sum的值。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出DimsumAsLongsum=0d=

18正確的結(jié)果。Val(InputBox("請輸入數(shù)值d:"))n=

Val(InputBox("請輸入數(shù)值n:”))For

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

NextiPrintsumEndSub

程序功能：輸出水仙花的個(gè)數(shù)（所謂水仙花數(shù)是指一個(gè)三位十進(jìn)制PrivateSubForm_Click（）Dim4

數(shù)，該數(shù)的各位數(shù)字立方之和等于該數(shù)本身。例如153是一個(gè)水仙numberAsIntegerDimnAsInteger,

19花數(shù)，因?yàn)閘A3+5A3+3A3=153）程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，iAsInteger,jAsInteger,kAs

使它能輸出正確的結(jié)果。OptionExplicitIntegerForn=100To999i=n/

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

位k=nMod10，個(gè)位If(n=i*i

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

number=numbre+1EndIfNextn

PrintnumberEndSub

程序功能:求數(shù)列2/1,3/2,5/3,8/5,13/8...........的前10項(xiàng)之和。PrivateSubForm_Click()DimiAs16.47991

程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出」E確的結(jié)果。Integer,tAsInteger,nAsInteger

DimaAsInteger,bAsIntegerDims

20

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

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

+ba=tNextiPrintsEndSub

程序功能：獗子第1天摘下若干桃子，當(dāng)即吃掉一半，又多吃一個(gè),PrivateSubForm_Click()Dimday1534

第二天將剩余的部分吃掉一半還多個(gè)；以此類推，到第10天只剩AsInteger,sumAsIntegerday=10;

21余1個(gè)。問第1天共摘了多少桃子。程序中有兩行有錯(cuò)誤。改正錯(cuò)sum=1DoWhileday>1sum=

誤，使它能輸出正確的結(jié)果。sum*2day=day-1LoopPrint

sumEndSub

程序功能：一個(gè)兩位數(shù)的正整數(shù)，如果將其個(gè)位數(shù)與十位數(shù)字對調(diào)PrivateSubForm_Click()DimxAs8

所生成的數(shù)稱為其對調(diào)數(shù)，如28是82的對調(diào)數(shù)?，F(xiàn)給定一個(gè)兩位Integer,yAsInteger,numberas

的正整數(shù)46,請找到另?個(gè)兩位的整數(shù)，使這兩個(gè)數(shù)之和等于它們IntegerDimxfAsInteger,yfAs

的各自的對調(diào)數(shù)之和。這樣的另?個(gè)兩位數(shù)有多少個(gè)。程序中有兩IntegerNumber=0x=46xf=(x

22行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。Mod10)*10+Int(y/10)Fory=

10To99yf=yMod10+Int(y/10)

Ifx+y=xf+yfThenNumber=

Number+1EndIfNextyPrint

NumberEndSub

程序功能：求1?200之間的能被7整除的數(shù)的平方和。程序有兩處PrivateSubCommand1_Click()Dim377986

錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。xAsIntegerDimsumAsintegerx=

231sum=0Whilex<=200IfxMod

7=0sum=sum+xA2EndIfx=x

+1WendPrintsumEndSub

程序功能：求1?99的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位）,PrivateSubCommandl_Click()Dim661.46

程序中有兩行有錯(cuò)誤。改1E錯(cuò)誤，使它能輸出1E確的結(jié)果。xAsIntegerDimsumAsIntegerx=

241DoWhilex<=99sum=sum+

Sqrt(x)x=x+1LoopPrint

Round(sum,2)EndSub

程序功能：求1?55的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位）PrivateSubCommand1_Click()Dim275.43

程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。xAsIntegerDimsumAsIntegerx=

251DoWhilex<=55sum=sum+

Sqrt(x)x=x+1LoopPrint

Round(sum,2)EndSub

程序功能：統(tǒng)計(jì)1T000中能被3整除的數(shù)的個(gè)數(shù)。程序中有兩行有PrivateSubCommand1_Click()Dim333

錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。countAsIntegerDimiAsIntegeri=

26

3count=0DoWhileI>=1000Ifx

mod3=0Thencount=count+1

EndIfi=i+1LoopPrintcountEnd

Sub

程序功能：輸出1?100中所有整數(shù)的平方和。程序中有錯(cuò)誤。PrivateSubCommandl_Click()Dim328350

錯(cuò)誤，使它能輸出正確的結(jié)果。kAsIntegerDimsumAsIntegerx=

271sum=0DoUntilx<100sum=

sum+xA2x=x+1LoopPrint

sumEndSub

程序功能：求口,5000］內(nèi)能被5整除的前若干個(gè)偶數(shù)之和，直到和大PrivateSubCommandl_Click()Dim50500

于50000為止。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確xAsIntegerDimsAsLongx=2

的結(jié)果。DoWhilex<=5000IfxMod5=0

28

Thens=s+xlfs>50000Then

ExitfbrEndIfEndIfx=x+1Loop

PrintsEndSub

程序功能：求3000以內(nèi)能被17或23整除的正整數(shù)的個(gè)數(shù)。程序中PrivateSubCommandl_Click()Dim299

有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。xAsIntegerDimcountAsInteger

Forx=1To3000step-1IfxMod

29

17=0andxMod23=0Thencount

=count+1EndIfNextxPrint

countEndSub

程序功能：已知一個(gè)數(shù)列的前3項(xiàng)為0,0,1,以后每項(xiàng)為前3項(xiàng)PrivateSubCommandl_C1ick()Dim334745777

的和，求此數(shù)列的第36項(xiàng)。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它aAsLongDimbAsLongDimcAs

能輸出正確的結(jié)果。LongDimdAsLongDimiAs

30

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

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

PrintcEndSub

程序功能：求數(shù)列2,4,8/6,32,…前若干項(xiàng)之和。當(dāng)和大］-9000時(shí),PrivateSubCommand1_Click()Dim16382

終止求和并輸出結(jié)果。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸sAsIntegerDimxAsIntegerx=1

31

出正確的結(jié)果。Dox=x+2s=s+xUntils>9000

PrintsEndSub

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

數(shù)的個(gè)數(shù)。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)cAsIntegerDimxAsIntegerForx

果。=351To432IfxMod3o0orx

Mod8o0Thenc=c+1EndIf

NextcPrintcEndSub試題要求：

源程序文件名：試題答案：47考

試語種：試卷編號(hào)：1034第35

32

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

大的素?cái)?shù)。程序中有兩行有錯(cuò)誤。

改正錯(cuò)誤，使它能輸出正確的結(jié)

果。PrivateSubCommandl_Click()

DimxAsIntegerDimiAsInteger

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

Fori=2TokIfxModi=0Then

ExitDoEndIfNextiIfi>kThen

PrintxExitForEndIfNextxEnd

Sub

程序功能：已知24有8個(gè)正整數(shù)因子(即：123,4,6,8,12,24),而24PrivateSubCommandl_Click()Dim19

正好被其因子個(gè)數(shù)8整除。問［100,300］之間有多少個(gè)這樣的數(shù)。程nlAsInteger,n2AsIntegerDimx

序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。AsIntegerDimiAsIntegern2=0

Forx=100To300n2=0Fori=1

33

To100IfxModi=0Thennl=nl

+1EndIfNextiIfxModnl=0

Thenn2=n2+1EndIfNextxPrint

n2EndSub

程序功能：若某整數(shù)N的所有因子之和等于N的倍數(shù)，則N稱為PrivateSubCommandl_Click()Dim4

多因子完備數(shù)，如數(shù)28,其因子之和1+2+4+7+14+28=56=2*28,28是NAsIntegerDimsAsIntegerDimi

多因子完備數(shù)。求［1,200］之間有多少個(gè)多因子完備數(shù)。改正錯(cuò)誤,AsIntegerDimcAsIntegerc=0

使它能輸出正確的結(jié)果。ForN=1To200s=0Fori=1To

34

NIfNModio0Thens=s+i

EndIfNextiIfNMods=0Thenc

=c+1EndIfNextNPrintcEnd

Sub

程序功能:我國今年的國民生產(chǎn)總值為45600億元,若今后每年以9%PrivateSubCommandl_Ciick()Dim9

的增長率增長，計(jì)算多少年后能實(shí)現(xiàn)國民生產(chǎn)總值翻一番?程序中有pAsLong,plAsLongDimnAs

35兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。Integern=0pl=45600p=plDo

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

<2*plPrintnEndSub

程序功能：已知24有8個(gè)正整數(shù)因子(即:1,2,3,4,6,8,12,24),而24PrivateSubCommand1_Click()Dim296

正好被其因子個(gè)數(shù)8整除。求［100,300］之間能被其因子數(shù)目整除的NAsIntegerDimsAsIntegerDimi

數(shù)中最大的數(shù)。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確AsIntegerForN=300To100s=0

36的結(jié)果。Fori=1ToNIfNModi=0Thens

=s+1EndIfNextiIfsModN=0

ThenPrintNExitForEndIfNextN

EndSub

程序功能：有一個(gè)三位數(shù)滿足下列條件：(1)三位數(shù)字各不相同；(2)PrivateSubCommand1_Click()Dim4

此數(shù)等于它的各位數(shù)字的立方和。求這種三位數(shù)的個(gè)數(shù)。程序中有xAsIntegerDimaAsIntegerDimb

兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。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之間所有整數(shù)的立方和并輸出結(jié)果,程序中有PrivateSubCommandl_Click()Dim72505225

38

兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。sAsIntegerDimxAsIntegerx=1s

=0DoWhilex>130s=s+xA3x

=x+1LoopPrintsEndSub

程序功能：求I?210之間所有整數(shù)的立方和并輸出結(jié)果。程序中有PrivateSubCommandl_Click()Dim490844025

兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。sAsIntegerDimxAsIntegerx=Is

39

=0Dos=s+xA3x=x+IWhile