2010秋VB06上机答案分析和总结.docxVIP

2010年（秋）上机 VisualBasic（VB06）答案

一、改错

【题目】本程序的功能是求给定数据范围内，只有n个不相同的质因子的整数。

OptionExplicit

PrivateSubCmdFind_Click()

Dimpn()AsInteger,nAsInteger,kAsIntegerDimstAsString,jAsInteger,fgAsBoolean

n=InputBox(质因子个数:,,3)

Fork=127To900fg=False

Callpf(k,pn,fg,n)

IffgThen

st=CStr(k)==

Forj=1Ton-1

st=stpn(j),

Nextj

st=stpn(j)List1.AddItemst

EndIfNextk

EndSub

PrivateSubpf(ByValnAsInteger,pn()AsInteger,flagAsBoolean,CnAsInteger)err无ByValDimkAsInteger,iAsInteger

k=2Do

IfnModk=0Theni=i+1

ReDimPreservepn(i) err无Preserve

pn(i)=kn=n\k

Else

k=k+1

EndIfLoopUntiln=1Ifi=CnThen

Fori=1ToUBound(pn)-1

Fork=i+1ToUBound(pn)

Ifpn(i)=pn(k)ThenExitSub errForNextk

Nexti

flag=TrueEndIf

EndSub

二、编程题

【题目】本程序的功能是，找出给定范围内的所有等于两个平方数之和的数。例如：

26=1*1+5*5，所以，26就是符合要求的整数。

OptionExplicit

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,iAsIntegerDimpAsInteger,qAsInteger,flagAsBooleana=Text1:b=Text2

Fori=aTob

flag=False

Calljudge(i,p,q,flag)

IfflagThenList1.AddItemi=p^2+q^2Nexti

EndSub

PrivateSubjudge(nAsInteger,pAsInteger,qAsInteger,flagAsBoolean)DimiAsInteger

Fori=1ToSqr(n)p=i*i

q=n-p

Ifq0ThenExitFor

IfInt(Sqr(q))=Sqr(q)Thenflag=True

q=Sqr(q)p=Sqr(p)ExitSub

EndIf

NextiEndSub

PrivateSubCommand2_Click()Text1=

Text2=List1.ClearText1.SetFocus

EndSub

PrivateSubCommand3_Click()End

EndSub