2011年春等级考试Visual Bc编程题与改错题.pdfVIP

2011年（春）上机VisualBasic（VB01）

一、改错

【题目】本程序的功能是，找出给定范围内10进制数为升序数，且其对应的8进制数也是

升序数的整数。

PrivateSubCmdFind_Click()

DimnAsInteger,s8AsString

Forn=100To999

s8=d2Q(n)

Ifsx(n)Andsx(Val(s8))Then

List1.AddItemnDs8Q

EndIf

Nextn

EndSub

PrivateFunctiond2Q(ByValnAsInteger)AsStringerr无ByVal

DimpAsInteger

Do

p=nMod8

d2Q=CStr(p)d2Qerrd2QCStr(p)

n=n\8

LoopUntiln0

EndFunction

PrivateFunctionsx(ByValnAsInteger)AsBoolean

Dimnum()AsInteger,kAsInteger,tAsInteger

DimiAsInteger

tLen(CStr(n))

ReDimnum(t)

Fork1Tot

num(k)Val(Mid(CStr(n),k,1))

Nextk

Fori1ToUBound(num)-1

Ifnum(i)=num(i+1)ThenExitFunctionerrExitFor

Nexti

sx=True

EndFunction

二、编程题

【题目】编写程序，对实验数据进行分组均化处理。处理的方法是：将实验数据从小到大排

序，排序结果每3个作为一组，再用3个数的平均值作为这3个数的表现值。

OptionExplicit

OptionBase1

PrivateSubCmdRun_Click()

Dima()AsInteger,nAsInteger,iAsInteger

DimsumAsInteger,avAsInteger,kAsInteger

n=InputBox(输入数据个数：,,12)

2011年(春)上机VisualBasic(VB01)

—、改错

【题目】本程序的功能是，查找给定范围内10个跑步数为升序数，且其对应的8个跑

步数也是升序数的整数。

PrivateSubCmdFind_Click()DimnAsInteger,s8As

StringForn=100To999s8=d2Q(n)Ifsx(n)And

sx(Val(s8))thenList1.AddItemnDs8QEnd

IfNextnEndSubPrivateFunctiond2Q(ByValnAs

Integer)AsStringerr无ByValDimpAsIntegerDop=n

Mod8d2Q

=CStr(p)d2Qerrd2QCStr(p)n=n\8LoopUntiln=0

EndFunctionPrivateFunctionsx(ByValnAsInteger)As

BooleanDimnum()AsInteger,kAsInteger,tAsInteger

DimiAsIntegert=Len(CStr(n))ReDimnum(t)Fork=1To

tnum(k)=Val(Mid(CStr(n),k,1))NextkFori=1To