2010秋VB07上机答案分析和总结.docx

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

一、改错

【题目】本程序的功能是，找出所有由1～6中的5个不同数字组成的、奇偶相间隔的5位数。

OptionExplicit

PrivateSubCommand1_Click()

DimiAsLong,kAsInteger,sAsString,ChAsString*1DimBLAsBoolean,jAsInteger,StAsString

St=123456

k=0 位置错

Fori=12345To65432

s=CStr(i)k=0

Forj=1To6

Ch=Mid(St,j,1)

IfInStr(s,Ch)0Thenk=k+1Nextj

Ifk=5Then

BL=False

CallVerify(i,BL)

IfBLThenList1.AddItemiEndIf

NextiEndSub

PrivateSubVerify(nAsLong,FlgAsBoolean) errnAsIntegerDimiAsInteger,sAsString,ChAsString*1

s=CStr(n) errs=Str(n)

IfMid(s,1,1)Mod2=0Then

Fori=1To5Step2

IfMid(s,i,1)Mod20ThenExitSubNexti

Else

Fori=1To5Step2

IfMid(s,i,1)Mod21ThenExitSubNexti

EndIf

Flg=TrueEndSub

二、编程题

【题目】编写程序，找出斐波那契数列指定项数范围内的为素数的数据项。

OptionExplicit

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,iAsIntegerDimpAsLong

a=Text1b=Text2

Fori=aTob

p=fib(i)

Ifprime(p)Then

List1.AddItem第i项:pEndIf

NextiEndSub

PrivateFunctionfib(nAsInteger)AsLongIfn=1Orn=2Then

fib=1

Else

fib=fib(n-2)+fib(n-1)

EndIfEndFunction

PrivateFunctionprime(nAsLong)AsBooleanDimiAsInteger

Ifn=1ThenExitFunctionFori=2ToSqr(n)

IfnModi=0ThenExitFunctionNexti

prime=TrueEndFunction

PrivateSubCommand2_Click()Text1=:Text2=List1.ClearText1.SetFocus

EndSub