VB實(shí)驗(yàn)教材習(xí)題參考答案2018年

第1章VB集成環(huán)境與VB概述

一、選擇題

1.2.3.4.5.6.7.8.9.10.

BAABDBCADA

11.12.13.14.15.16.17.18.19.20.

CBCDADACAA

21.22.

DD

第2章常用控件與界面設(shè)計(jì)

一、選擇題

1.2.3.4.5.6.7.8.9.10.

BBBCAABBCc

11.12.13.14.15.16.17.18.19.20.

ACABBBBCBD

21.22.23.24.25.26.27.28.29.30.

BBCCBABDAC

31.32.33.34.35.36.37.38.39.40.

DDDBCDCCCB

41.42.43.44.45.46.47.48.49.50.

CDBCAABDAC

51.52.53.54.55.56.57.58.59.60.

DCBCBBABBB

61.62.63.64.65.66.67.68.69.70.

BBDADDDDDB

71.72.73.74.75.76.77.78.79.80.

ABDBBABAAA

81.82.83.84.85.86.S7.88.89.90.

CCDCDDcccDCC

91.92.93.94.95.96.97.98.99.100.

CCBDBBADBc

101.102.103.104.105.106.107.108.109.110.

cCCAABBAAB

111.112.113.114.115.116.117.

ADAAC

第3章數(shù)據(jù)、表達(dá)式與簡單程序設(shè)計(jì)

、選擇題

1.2.3.4.5.6.7.8.9.10.

BDCDBDAAAA

11.12.13.14.15.16.17.18.19.20.

AAADDCDCAB

21.22.23.24.25.26.27.28.29.30.

CBBDBCADDA

31.32.33.34.35.36.37.38.39.40.

BBBCBDABCB

41.42.43.44.45.46.47.48.49.50.

CCBDDDCCAA

51.52.53.54.55.56.57.58.59.60.

ABCBBCBDAB

61.62.63.64.65.66.67.68.69.70.

CCCBBCBDCD

71.72.73.74.75.76.77.78.79.80.

CBBBACBDBD

81.82.83.84.85.86.87.88.89.90.

DCDDBCCDAA

91.92.93.94.95.96.97.98.99.100.

BABDACCCCA

101.102.103.104.105.106.107.108.109.

DACBDDDBA

二、填空題

1.(XModl0)*10+X\102.xMod5=0OrxMod9=0

3.False4.CDEF

5.UCase(s)>=AndUCase(s)>=uZn6.False

7.X<100AndX>=0AndX=Int(X)8.能

第4章選擇分支與循環(huán)

一、選擇題

1.2.3.4.5.6.7.8.9.10.

DADCAADDBc

11.12.13.14.15.16.17.18.19.20.

CDDBCBBCCA

21.22.23.24.25.26.27.28.29.30.

BCAADCCCCD

31.32.33.34.35.36.37.38.39.40.

ABACDCDCCB

41.42.

CD

二、填空題

1.72.220321422523

3.64.33

5.46.2

120

-24

7.Mid(a,n-i+1,1)8.17.5

Mid(a,n-i+1,1)=c14

9.13-1610.6

a

Print

11.32012.BAABC

CBAABC

13.1514.thisisabook.

1ThisIsABook.

15.116.1=1+2

401

104

17.XModP=018.Abs⑴<eps

X=X+1s+t

19.Mid(m,l,l)=Mid(m,2,l)AndMid(m,3J)=Mid(m,4J)

n=n+l

20.Mid(a,i,1)>Mid(a,i+1,1)21.nModi=0

i>k-lPrinti

三、編程題

1.編寫程序，根據(jù)用戶在文本框Textl中輸入的字符串，統(tǒng)計(jì)其中的0?9數(shù)字個(gè)數(shù)、英文

字母(不區(qū)分大、小寫)個(gè)數(shù)、其它字符個(gè)數(shù)，并在窗體中輸出這三個(gè)數(shù)。

OptionExplicit

PrivateSubCommand1_Click()

DimsAsString,iAsInteger,chAsString*1

DimaAsInteger,bAsInteger,cAsInteger

s=Textl.Text

Fori=1ToLen(s)

ch=Mid(s,i,1)

If(ch>=n0"Andch<="9H)Then

a=a+1

Elself(ch>="A"Andch<="Z")Or(ch>=ua"Andch<=nzn)Then

b=b+1

Else

c=c+1

EndIf

Next

Print”數(shù)字個(gè)數(shù)”;a

Print”字符個(gè)數(shù)”;b

Print”其他字符”;c

EndSub

2.編寫程序，隨機(jī)生成20個(gè)小于等于999的正整數(shù)，在窗體的一行上顯示，并且要計(jì)算出

這20個(gè)數(shù)的和、最大數(shù)和最小數(shù)。

PrivateSubCommand1_Click()

DimmaxAsInteger,minAsInteger,sumAsInteger

x=Int(Rnd*999+1)

Printx;

max=x

min=x

sum=x

Fori=2To20

x=Int(Rnd*999+1)

Ifx>maxThenmax=x

Ifx<minThenmin=x

sum=sum+x

Printx;

Nexti

Print

Printmax,min,sum

EndSub

3.在Textl中輸入正整數(shù)N,編程求最小的k,使Ixl+2x2+3x3+4x4+…+kxk>N

成立。

PrivateSubCommand1_Click()

DimnAsInteger,sAsInteger,kAsInteger

n=Textl.Text

s=0

k=0

DoUntils>n

k=k+1

s=s+k*k

Loop

Printk

EndSub

4.編程計(jì)算13+23+33+.??+2。3的值。

OptionExplicit

PrivateSubCommandl_Click()

DimiAsInteger,iSumAsLong

Fori=1To20

iSum=iSum+iA3

Next

PrintiSum

EndSub

s.編程計(jì)算_的值。

1x22x33x44x520x21

PrivateSubCommand1_C1ick()

DimiAsInteger,sAsSingle

s=0

Fori=1To20

s=s+1/(i*(i+1))

Nexti

Prints

EndSub

6.已知e=l+,+,+,+…+,+…，編程計(jì)算e的值(丟棄小于0.000001的數(shù)據(jù)項(xiàng))。

1!2!3!nl

OptionExplicit

PrivateSubCommand1_Click()

DimxAsSingle

DimtAsLong,nAsInteger

x=1

t=1

n=1

DoWhile1/t>=0.0001

x=x+1/t

n=n+1

t=t*n

Loop

Printx

EndSub

7.百錢買百雞。公元前五世紀(jì)，我國數(shù)學(xué)家張丘建在《算經(jīng)》中提出“百雞問題”：雞翁一

值錢五，雞母一值錢三，雞雛三值錢一。百錢買百雞，問雞翁、雞母、雞雛各幾何？

PrivateSubCommandl_Click()

DimfAsInteger,mAsInteger,xAsInteger

Forf=1To20

Form=1To33

x=100-f-m

Iff*5+m*3+x/3=100Then

Printf,m,x

EndIf

Next

Next

EndSub

8?通過InputBox輸入一個(gè)正整數(shù)k,編程求k的各位數(shù)字之和，并用MsgBox函數(shù)輸出。

OptionExplicit

PrivateSubCommand1_Click()

DimkAsInteger,sumAsInteger,iAsInteger

k=InputBox("請輸入一個(gè)正整數(shù)k「輸入框”)

Fori=1ToLen(CStr(k))

sum=sum+Mid(k,i,1)

Nexti

MsgBoxk&”的各位數(shù)字之和”&sum

EndSub

9.已知x、y、z分別是0?9中的一個(gè)數(shù)，求x、y、z的值，使得下列成立：xxz+yzz=532。

(其中xxz和yzz不表示乘積，而是由X、y^z組成的三位數(shù))。

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger,zAsInteger

Forx=0To9

Fory=0To9

Forz=0To9

Ifx*100+x*10+z+y*100+z*10+z=532Then

Printx,y,z

EndIf

Next

Next

Next

EndSub

10.判斷某一正整數(shù)是否是一回文數(shù)。所謂回文數(shù)是指左右數(shù)字完全對稱的自然數(shù)。例如:

121、1232k484、555>2992等都是回文數(shù)。

PrivateSubCommand1_Click()

DimNAsLong,LAsInteger,kAsInteger

N=Text1.Text

L=Len(CStr(N))

Fori=1TOL\2

IfMid(N,i,1)<>Mid(N,L-i+1,1)ThenExitFor

Nexti

Ifi>L\2Then

Label1=N&”是回文數(shù)”

Else

Label1二N&”不是回文數(shù)”

EndIf

EndSub

第5章數(shù)組

一、選擇題

1.2.3.4.5.6.7.8.9.10.

DCCBBBDDBA

11.12.13.14.15.16.17.18.19.20.

CBBCBDADAB

21.22.23.24.25.26.27.28.29.30.

CACAADDAAB

31.32.33.34.35.36.37.

CBDCBAD

二、填空題

1.arrl(l)

Min=arrl(i)

2.ReDimA(N)

A(l)

IfM<A(I)ThenM=A(I)

3.Print"S(u;I;1')=";S(I)

4.Int(Rnd*(90-65+1)+65)

Chr(t)

i+1To10

A(i)>AO

5.InStr(s,u,n)

Right(s,Len(s)-n)

s

6.T-l

1+1

7.J>I-1

三、編程題

1.隨機(jī)產(chǎn)生10個(gè)數(shù)，查找其中最大的能被3整除的數(shù)，如果沒有則顯示“無要找的數(shù)”。例

如：37、70、42、44、72、58、91、52、42、11中72就是最大的能被3整除的數(shù)。

OptionExplicit

OptionBase1

PrivateSubCommand1_Click()

Dima(10)AsInteger

DimiAsInteger,maxAsInteger

Fori=1To10

a(i)=Int(90*Rnd)+10

Printa(i);

Nexti

Print

i=1

max=0

DoWhilei<=10

Ifa(i)Mod3=0Then

Ifa(i)>maxThen

max=a(i)

EndIf

EndIf

i=i+1

Loop

Ifmax=OThen

Print”無要找的數(shù)”

Else

Printmax&”是最大的能被3整除的數(shù)”

EndIf

EndSub

2.編寫程序，生成兩個(gè)均由兩位隨機(jī)整數(shù)組成的數(shù)組，每個(gè)數(shù)組中的10個(gè)元素互不相同,

找出存在于這兩個(gè)數(shù)組中的相同的數(shù)并輸出。

OptionExplicit

PrivateSubCommand1_Click()

DimA(10)AsInteger

DimB(10)AsInteger,SAsString

DimIAsInteger,JAsInteger,XAsInteger

A(l)=Int(90*Rnd)+10

S=A(1)

ForI=2To10

Do

X=Int(90*Rnd)+10

ForJ=1ToI-1

IfX=A(J)ThenExitFor

NextJ

IfJ=IThen

A(I)=X

S=S&"n&A(I)

ExitDo

EndIf

Loop

NextI

Text1.Text=S

B(l)=Int(90*Rnd)+10

S=B(1)

ForI=2To10

Do

X=Int(90*Rnd)+10

ForJ=1ToI-1

IfX=B(J)ThenExitFor

NextJ

IfJ=IThen

B(I)=X

S=S&"n&B(I)

ExitDo

EndIf

Loop

NextI

Text2.Text=S

S=,H,

ForI=1To10

ForJ=1To10

IfA(I)=B(J)Then

S=S&""&A(I)

EndIf

NextJ

NextI

IfS=H"Then

Text3.Text="沒有重復(fù)”

Else

Text3.Text=S

EndIf

EndSub

PrivateSubCommand2_Click()

Textl.Text=,n,

Text2.Text=,,M

Text3.Text=心

Textl.SetFocus

EndSub

3.用戶通過文本框輸入任意一個(gè)正整數(shù)，編程將該數(shù)的各位數(shù)字放入一個(gè)數(shù)組中，并求該

數(shù)各位數(shù)字之和。

OptionExplicit

PrivateSubCommand1_Click()

DimIAsInteger,JAsInteger

Dima()AsInteger,KAsInteger,SumAsInteger

K=Val(Textl.Text)

1=1

Do

J=KMod10

ReDimPreservea(I)

a(I)=J

Sum=Sum+J

K=K\10

1=1+1

LoopUntilK=0

Text2.Text=Sum

EndSub

4.用一個(gè)二維數(shù)組記錄下100以內(nèi)的所有的自然數(shù)對。所謂自然數(shù)對，是指兩個(gè)自然數(shù)的

和與差都是平方數(shù)。例如，17-8=9,17+8=25,那么17和8就是自然數(shù)對。

OptionExplicit

PrivateSubCommand1_Click()

Dima(100,2)AsInteger,KAsInteger

DimIAsInteger,JAsInteger

DimMAsInteger,NAsInteger

K=1

ForI=1To99

ForJ=1To99

Ifl>JThen

M=I-J

N=I+J

IfSqr(M)=Int(Sqr(M))AndSqr(N)=Int(Sqr(N))Then

Listl.AddItemI&""&J

a(K,1)=I

a(K,2)=J

K=K+1

EndIf

EndIf

NextJ

NextI

EndSub

5.編寫程序，隨機(jī)生成一個(gè)5x5的兩位正整數(shù)數(shù)組a,找出a數(shù)組中每行的最大值及該值

在行中的次序(即列下標(biāo))，并將所找到的結(jié)果分別保存到一維數(shù)組b、c中(例如，第一行

的最大值保存在b(l)中，最大值的列次序保存在c(l)中)。

OptionExplicit

OptionBase1

Dima(5,5)AsInteger

PrivateSubCommandl_Click()生成數(shù)組并顯示

DimiAsInteger,jAsInteger

Picture1.Cis

Picture2.Cls

Picture3.Cls

Randomize

Fori=1To5

Forj=1TO5

a(i,j)=Int(90*Rnd)+10

Picture!.Printa(i,j);

Next

Picture1.Print

Next

EndSub

PrivateSubCommand2_Click()

DimiAsInteger,jAsInteger,maxAsInteger

Dimb(5)AsInteger,c(5)AsInteger

Fori=1To5

max=a(i,1)

Forj=1To5

Ifmax<a(i,j)Then

max=a(i,j)

EndIf

b(i)=max

Ifmax=a(i,j)Thenc(i)=j

Nextj

Nexti

Fori=1To5

Picture2.Printb(i)

Picture3.Printc(i)

Next

EndSub

6.統(tǒng)計(jì)組數(shù)中出現(xiàn)的數(shù)據(jù)的個(gè)數(shù)。

【要求】

(1)界面如圖所示，單擊“生成數(shù)據(jù)”按鈕，隨機(jī)生成20個(gè)一位數(shù)，每10個(gè)一行顯示在

Textl中；

(2)單擊“統(tǒng)計(jì)”按鈕，統(tǒng)計(jì)出組數(shù)中出現(xiàn)的數(shù)據(jù)的個(gè)數(shù)并顯示在列表框Listl中；

(3)單擊“清空”按鈕，文本框和列表框清空內(nèi)容。

售13回區(qū)］

生成數(shù)組：

4214242463

7298267452

4出現(xiàn)次數(shù)：5生成|

2出現(xiàn)次數(shù):6

1出現(xiàn)次數(shù)：1

6出現(xiàn)次數(shù):2j統(tǒng)陽

3出現(xiàn)次數(shù):1

7出現(xiàn)次數(shù):2潔空|

OptionExplicit

Dima(20)AsInteger,iAsInteger

PrivateSubCommand1_Click()

Randomize

Fori=1To20

a(i)=Int(Rnd*9)+1

Text1=Textl&a(i)&M°

Ifi=10ThenTextl=Textl&vbCrLf

Next

EndSub

PrivateSubCommand2_Click()

DimjAsInteger,kAsInteger

Dimb(20)AsBoolean，用b(k)記錄a(k)是否被統(tǒng)計(jì)過，統(tǒng)計(jì)過記為True

Fori=1To20

k=1

Ifb(i)=FalseThen如果b⑴=False,表示a(i)沒有被統(tǒng)計(jì)過

Forj=i+1To20

Ifa(i)=a(j)Then

k=k+1

b(j)=True

EndIf

Nextj

List1.Additema(i)&”出現(xiàn)次數(shù):“&k

EndIf

Next

EndSub

PrivateSubCommand3_Click()

Textl=,,n

List1.Clear

EndSub

第6章過程

一、選擇題

1.2.3.4.5.6.7.8.9.10.

BCADABADDD

11.12.13.14.15.16.17.18.19.20.

AADDBBDAAC

21.22.23.24.25.26.27.28.29.30.

BACDBCCBBD

31.32.33.34.35.36.37.38.39.40.

CBABDDDCDD

41.42.43.44.45.46.47.48.49.50.

DDCBCBDADA

51.52.53.

CAB

二、填空題

1.Isp(i?2)

plAndp2

IsD=True

mModi=0

2.+Fun⑴

Fun二p

3.

PrivateFunctionMax(a()AsInteger)AsInteger

DimsAsInleger,fAsInteger,i%

s-LBound(a):f二UBound(a)

Max-a(s)

Fori=sTof

Ifa(i)>MaxThenMax=a(i)

Next

EndFunction

4.129

5.420101

6.第一行4、第二行20.7

7.第一行是29,第二行是28.7

8.第一行69,第三行1217,第四行217

9.第一行輸出結(jié)果1513

10.]_______

n*fac(n-l)

11.第一行內(nèi)容是_15_,第二行內(nèi)容是_35一,第四行內(nèi)容是-51

12.第一行是一bed,第二行是一cd,第四行是_2_____

13.第一行是.11,第二行是一7

14.H2D(Sl)

Len(S)

Ch

“A“To“Z”

15.第一行是isualVi,第二行是sualVisu

16.276

17.第一行內(nèi)容是76,第二行內(nèi)容是1616,第三行內(nèi)容是45

18.Left(SJ)

Mid(S,i,1)=Mid(S,i-1J)

n=1

Left(c,Len(c)-1)

19.Ch

Temp

True

20.2

b()AsInleger

b(k-1)=b(k)

21.終A⑵2)的值是6,A(3.1)的值是一8,A(4,2)的值是_3__

22.Mid(s,i,i)

n&

prime=True

三、改錯(cuò)題

1.找出50到100之間的互質(zhì)數(shù)（即這些數(shù)中任意兩個(gè)數(shù)的最大公約數(shù)為1）。程序界面如

圖所示。含有錯(cuò)誤的源代碼如下：

OptionBase1

PrivateSubCommand1_Click()

DimA%(),1%,J%,K%

□X

DimLogicAsBoolean

5051535961

ReDimA(l)6771737779

838997

A(l)=50

________________fK=l

法存；

ForI=51To100

K=1彳立置錯(cuò)

Logic=False

CallSubl(A,I,Logic)

IfLogicThen

K=K+1

ReDimA(K)'ReDimPreserveA(K)

A(K)=1

EndIf

NextI

ForI=1ToUBound(A)

Textl=Text1&Str$(A(I))

IfIMod5=0ThenTextl=Textl&vbCrLf

NextI

EndSub

PrivateSubSubl(A%(),N%,FAsBoolean)

Dim1%,J%,Ub%

Ub=UBound(A)

ForI=1ToUb

ForJ=2ToA(I)

IfA(I)ModJ=0AndNModJ=0Then

ExitForrExitSub

EndIf

NextJ

F=True'位置錯(cuò)

NextI

F=True

EndSub

2,找出80到100之間滿足該數(shù)等于兩個(gè)素?cái)?shù)之積的所有整數(shù)。程序界面如圖所示。含有錯(cuò)

誤的源程序如下：

OptionBase1

□x

PrivateSubCommand1_Click()

82=2*41

DimP()AsInteger85=6*17

86=2*43

Dim1%,J%,SI%,S2%87=3*29

91=7*13

93=3*31

ReDimP⑴94=2*47

95=5*19

P(D=2

ForI=3To50Step21LJEI

ForJ=2ToSqr(I)

IfIModJ=0ThenExitSub””ExitFor

NextJ

IfJ>Sqr(I)Then

ReDimPreserveP(UBound(P)+1)

P(UBound(P)+1)=1P(UBound(P))=I

EndIf

NextI

ForI=80To100

Iffun(I,S1,S2)ThenIffun(I,P,S1,S2)

Listl.AdditemI&&S1&&S2

EndIf

NextI

EndSub

PrivateFunctionfun(N%,P%(),SI%,S2%)

DimIAsInteger,JAsInteger

fun=False

ForI=1ToUBound(P)

ForJ=1ToUBound(P)

IfN=P(I)*P(J)Then

S1=P(I)

S2=P(J)

fun=True

ExitFunction

,H,fun=True

EndIf

NextJ

NextI

EndFunction

3.本程序的功能是輸入任一自然數(shù)后，屏幕上將顯示“是回文數(shù)”或“不是回文數(shù)所謂回

文數(shù)是指左右數(shù)字完全對稱的自然數(shù)，例如，121,12321,898,111均是回文數(shù)。程

序界面如圖所示。含有錯(cuò)誤的源程序如下：

OptionExplicit

PrivateSubForm_Click()

DimSAsString,FigAsBoolean

S=InpulBox("輸入一個(gè)自然數(shù)”)

Judge(S,Fig)Calljudge(S,Fig)或judgeS,

Fig

IfFigThen

Prints；"是回文數(shù)"

Else

PrintS;”不是回文數(shù)”

EndIf

EndSub

PrivateSubJudge(ChAsString,FAsBoolean)

DimLAsInteger,IAsInteger

L=Len(Ch)

F=TrueF=False

ForI=1ToLFor1=1ToL\2

IfMid(Ch,I,1)<>Mid(Ch,L+1-1,1)Then

ExitSub

EndIf

NextI

F=FalseF=True

EndSub

四、編程題

1.編程驗(yàn)證任一大于2的偶數(shù)可以表示成兩個(gè)素?cái)?shù)之和。

PrivateFunctionPrime(aAsInteger)AsBoolean

DimiAsInteger

Fori=2ToSqr(a)

IfaModi=0ThenExitFunction

Nexti

Prime=True

EndFunction

方法一

PrivateSubCommand1_Click()

DimmAsInteger,iAsInteger

m=InpulBox("請輸入一個(gè)大于2的偶數(shù)”)

Ifm<=2OrmMod2<>0ThenMsgBox”請輸入大于2的偶數(shù)”:ExitSub

IfPrime(2)AndPrime(m-2)Then

Printm&"=2+H&m-2

Else

Do

i=i+1

IfPrime(2*i+1)AndPrime(m-(2*i+1))Then

Printm&&2*i+1&&m-(2*i+1)

ExitDo

EndIf

LoopWhile2*i+l<m-(2*i+1)

EndIf

EndSub

方法二

PrivateSubCommand2_Click()

DimmAsInteger,iAsInteger,p()AsInteger,nAsInteger

DimfigAsBoolean

m=InputBox(”請輸入大于2的偶數(shù)”)

Ifm<=2OrmMod2<>0ThenMsgBox"請輸入大于2的偶數(shù)”:ExitSub

ReDimp(l)

P(l)=2

n=1

Fori=3Tom-2Step2

IfPrime(i)Then

n=n+1

ReDimPreservep(n)

p(n)=i

EndIf

Nexti

Fori=1Ton

Forj=1Ton

Ifp(i)+p(j)=mThen

Printm&"士'&p(i)&&p(j)

fig=True

ExitFor

EndIf

Nextj

Iffig=TrueThenExitFor

Nexti

EndSub

nl

2.編寫程序，求從“個(gè)不同元素中取出〃?個(gè)元素的組合數(shù)二(n>m),程

機(jī)!(〃一〃?)！

序中必須包含一個(gè)求階乘的通用過程。

PrivateFunctionFact(aAsInteger)AsLong

Ifa=0Ora=1Then

Fact=1

Else

Fact=a*Fact(a-1)

EndIf

EndFunction

PrivateSubCommand1_Click()

DimnAsInteger,mAsInteger,resultAsSingle

n=Vai(Text1.Text)

m=Val(Text2.Text)

Ifn>=mThen

result=Fact(n)/Fact(m)/Fact(n-m)

Text3.Text=result

Else

MsgBox”要求n>=m,請重新輸入”

Textl.Text=,n,

Text2.Text二””

Textl.SetFocus

EndIf

EndSub

3.編寫一個(gè)查找10到300之間所有同構(gòu)數(shù)的程序，程序中必須包含一個(gè)判定某數(shù)n是否是

同構(gòu)數(shù)的Function過程Istgs(n)。若一個(gè)數(shù)出現(xiàn)自己平方數(shù)的右端，則稱此數(shù)為同構(gòu)數(shù)。如

5在52=25的右端，25在25?=625的右端，故5和25為同構(gòu)數(shù)。

PrivateFunctionIstgs(nAsInteger)AsBoolean

DimsAsString,LAsInteger

L=Len(CStr(n))

s=CStr(nA2)

IfRight(s,L)=nThenIstgs=True

EndFunction

PrivateSubCommandl_Click()

DimnAsInteger

Forn=10To300

Iflstgs(n)ThenList1.Additemn&,，A2H&n="&nA2

Nextn

EndSub

PrivateSubCommand2_Click()

End

EndSub

4.找出500以內(nèi)的超完全數(shù)。設(shè)S(N)為N的所有因子(包括N在內(nèi))的和，若S(S(N))=2N,

則N就是一個(gè)超完全數(shù)。例如，16的因子和為1+2+4+8+16=31,而31的因子和為1+31

=32,32=2x16,故16是一個(gè)超完全數(shù)。必須定義S(N)的函數(shù)求N