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

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

一、改错

【题目】本程序的功能是，查找首末两位数字之和与中间两位数字之和相等的四位素数。

OptionExplicit

PrivateSubCmdFind_Click()

DimiAsInteger,FgAsBooleanFori=1001To9999

Fg=False

CallPD(i,Fg)

IfPrime(i)AndFgThenList1.AddItemi

NextiEndSub

PrivateFunctionPrime(nAsInteger)AsBoolean

DimkAsIntegerFork=2ToSqr(n)

IfnModk=0ThenExitFunction errExitForNextk

Prime=True

EndFunction

PrivateSubPD(ByValnAsInteger,FlgAsBoolean) err无ByValDimiAsInteger,A(4)AsInteger,SAsInteger

DimLAsInteger

L=Len(CStr(n)) errStr(N)Fori=1ToL

A(i)=nMod10n=n\10

Nexti

IfA(1)+A(4)=A(2)+A(3)Then

Flg=TrueEndIf

EndSub

二、编程题

【题目】编写程序，输入的一个5位以上的整数，将组成该数的各个数字重新排列成一个最小数。

OptionExplicit

PrivateSubCmdRun_Click()

DimStAsString,A()AsInteger,iAsIntegerSt=Text1

ReDimA(Len(St))Fori=1ToLen(St)

A(i)=Val(Mid(St,i,1))Nexti

Text2=Small(A)EndSub

PrivateFunctionSmall(A()AsInteger)AsLong

DimiAsInteger,sAsLong,jAsInteger,nAsIntegerDimTepAsInteger

n=UBound(A)Fori=1Ton-1

Forj=i+1Ton

IfA(i)A(j)ThenTep=A(i)A(i)=A(j)

A(j)=TepEndIf

NextjNexti

Tep=0

Fori=1Ton

IfA(i)0Thens=A(i)

Tep=iExitFor

EndIfNexti

Fori=1Ton

IfiTepThen

s=s*10+A(i)EndIf

Nexti

Small=sEndFunction

PrivateSubCmdClear_Click()Text1=:Text2=Text1.SetFocus

EndSub

PrivateSubCmdExit_Click()End

EndSub