计算机二级VB考试-试题(真题)及详细答案

2008年春浙江省高等学校

计算机等级考试试卷(二级VisualBasic)

说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1〜试题6,请在答卷上各小题

正确选项的对应位置处填“J”；

⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；

(3)考试时间为90分钟；

试题1(每小题3分，共12分)

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Textl

中显示其反序的数(高位变低位)。要求在文本框中不可输入任何字符。

例如：输入123显示321,输入-567显示-765。

【程序】

m

PrivateSubForm_Load()

(2)

EndSub

PrivateSubCommandl_Click()

Textl.Text=n=InputBox(nn=")

EndSub

PrivateSubCommanci2_Click()

Ifn<0Thenn=-n:Textl.Text=

Whilen<>0

Textl.Text=(3)

(4)

Wend

EndSub

【供选择的答案】

(1)A^DimnAsByteB、DimnAsInteger

C、DimnAsStringD、PublicnAsByte

(2)A、Textl.Locked=TrueB、Textl.Locked=False

C^Textl.Visible=TrueD、Textl.Visible=False

(3)A、n/10&Textl.TextB、nMod10&Textl.Text

C>Textl.Text&n/10D、Textl.Text&nMod10

(4)A、n二n\10B、n=n/10

C、n=nMod10D、n=n-10

试题2(每小题3分，共12分)

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

运行时，可以在图片框控件pl用红色绘制下列坐标线并加上数字显示。

PrivateSubForm_Activate()

Pl.Height=Pl.Width

Pl.Fontsize=10

(5)(-10,110)-(110,-10)

(6)

Pl.Line(-5,0)-(100z0)

Pl.Line(0,-5)-(0,100)

Fori=(J7J

Pl.Line(i,0)-(iz2)

Pl.Line(0,i)-(2,i)

Nexti

Fori=1To9

Pl.CurrentX=i*10-2

Pl.CurrentY=-2

(8)

Nexti

EndSub

【供选择的答案】

(5)A、Pl.DrawB^Pl.LineC、Pl.PrintD、Pl.Scale

(6)A、Pl.ForeColor=RGB(255,0,0)B、Pl.FillColor=RGB(255,0,0)

C、Pl.FillColor=VbRedD、Pl.ForeColor=Red

(7)As1To9Step1B、10To90C、10To90Step10I)、2To9

(8)A、PSetiB、PLPrintiC、Pl.PsetiD、Printi

试题3（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

单击“读文件”按钮将文本文件读入并逐行在列表框控件Listl中显示；然后单击“分

解”按钮将Listl每行中的英文字母、其他字符分别显示在List2、List3各行中。

运行结果如下图所示。

*FontEH

PrivateSubCommandl_Click()PrivateSubCommandClicki.（）

DimsAsIntegerDimsAsInteger

DimiAsIntegerDimiAsInteger

Fori=lTo100ForiTo=1100

s=s+issi=+

NextiNexti

PrintsPrints

EndSubEndSub

读文件i允解i

【程序】

PrivateSubCommandl_Click()'读文件

DimsAsString

Open"e:\xxx.txt”For(9)As#1

WhileNotEOF(1)

LineInput#1,s:Listl.Additems

Wend

Close#1

EndSub

PrivateSubCommand2_Click()，分解

DimiAsInteger,nAsInteger,siAsString,s2AsString

Fori=1To(10)

n=Len(List1.List(i-1))

ReDima(n)AsString*1

Forj=1Ton

a(j)=(11)

Nextj

si=,,n:s2=

Forj=1Ton

If(12)Thensl=sl+a(j)Elses2=s2+a(j)

Nextj

List2.Additemsi

List3.Addltems2

Nexti

EndSub

【供选择的答案】

(9)A、ReadB、AppendC^InputD、Output

(10)A、Listl.CountB、ListCountC、ListCount-1D>Listl.ListCount

(11)A、Mid(Listl.List(i-l),j,1)B、Middle(Listl.List(i-l),j,1)

C、Mid(Listl.List(i-l),j)D、Middle(Listl(i-l),j,1)

(12)A、a(j)>=>aAnda(j)<=,zOra(j)>=，A*Anda(j)<='Z'

a(j)>="a"Anda(j)<="z〃Ora(j)>="A"Anda(j)<="Z"

C、〃a〃«a(j)<=〃z〃Or〃A〃〈二a(j)V〃Z〃

D^(a(j)>=,aAnda(j)<=,z)Or(a(j)>='A'Anda(j)<=,Z*)

试题4(每小题3分，共12分)

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

PrivateSubTextl_KeyPress(KAsInteger)

IfK<Asc(n0n)OrK>Asc(H9n)Then

K=0

Else

Labell.Caption=Chr(K)+Labell.Caption

EndIf

EndSub

【供选择的答案】

(13)Text1获得输入焦点后,依次按数字键1、3、5,Labell显示:

A、135B、531C、9D、5

(14)Text1获得输入焦点后,依次按数字键2、7^9,Labell显示:

A、972B、279C、297D、18

(15)Text1获得输入焦点后,依次按-、2、3、5键，Labell显示:

A、-532B、-235C、532I)、235

(16)Textl获得输入焦点后，依次按1、2、a、5键，Labell显示:

A、空白B、12a5C、5a21D、521

试题5(每小题3分，共12分)

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

PrivateSubForm_Load()

Timerl.Interval=1000

EndSub

PrivateSubTimerl_Timer()

StatickAsByte

Forml.CurrentX=0:Forml.CurrentY=0,窗体的所有其他属性均取缺省值

Forml.Cis

Ifk=0Thenk=1Elsek=0

Ifk=0ThenForml.ForeColor=RGB(0z255,0)Else_

Forml.ForeColor=RGB(0,0,255)

PrintTime

EndSub

【供选择的答案】

(17)激活Timerl后，每间隔1秒显示一次系统时间，方式是：

A、蓝、绿色交替显示B、蓝色显示C、绿色显示1)、红色显示

(18)系统时间的显示位置，是在：

A、窗体右上角B、窗体左上角C、窗体右下角D、窗体左下角

(19)如果将Timer过程中的语句"StatickAsByte"改为"DimkAsByte”,激活Timerl

后，窗体系统时间显示上的颜色为：

A、蓝、绿色交替B、蓝色C、绿色D、红色

(20)如果要同时显示系统日期、时间，对Timer过程中Print语句之输出列表不可取的是:

A^Date,TimeB、Date;TimeC、Date-TimeDate+Time

试题6(每小题3分，共12分)

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

PrivateSubf(b()AsInteger,ByRefmAsInteger)

DimiAsInteger,jAsInteger,kAsInteger

i=1

DoWhilei<=m

Forj=1Tom

Ifb(i)Modb(j)=0Andi<>jThen

Fork=iTom-1:b(k)=b(k+1):Nextk

ExitFor

EndIf

Nextj

Ifj>mTheni=i+1Elsem=m-1

Loop

EndSub

PrivateSubCommandl_Click()

Dima(6)AsInteger,iAsInteger,nAsInteger

n=6

Fori=1To6:a(i)=InputBox(na(**&i&")="):Nexti

Callf(a,n)

Fori=1Ton:Printa(i);:Nexti

EndSub

(21)单击Command1输入7、8、5、4、9、3后，相应的显示结果为：

A,893B,893333C,754333D、7543

(22)如果将过程f首句中的“ByRef”改为“Byval"，输入数据同(21),显示结果为：

A、893893333C、754333D、7543

(23)单击Command1输入4、12、27、8、-6、3后，相应的显示结果为：

A、433333B、43C、12278-6D、12278

(24)如果将过程f首句中的“ByRef”改为“Byval"，输入数据同(23),显示结果为:

A,433333B、43C,12278-6D、12278

试题7(28分)

编程，按Commandl可输入有10个实数的数组，调用函数f求他们的平均值V,然后输

出其中与V之差的绝对值为最小的那个数组元素。

请将答卷上函数过程f(包括形参列表)、事件过程Commandl补充完整。

2007年秋浙江省高等学校

计算机等级考试试卷（二级VisualBasic）

说明：⑴考生应将所有试题的答案填写在答卷匕其中试题1〜试题6,请在答卷上各小题

正确选项的对应位置处填“J”；

⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；

（3）考试时间为90分钟；

试题1（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击Command1后计算a・x?+b・x+c的值并显示，界面设计以及运行时

的显示分别如下图左、图右所示。要求在文本框中不可输入英文字母。

【程序】

PrivateSubCommandl_Click()

DimaAsSingle,bAsSingle,AsSingle,xAsSingle,yAsSingle

a=Textl(0).Text:b=Textl(1).Text

c=Textl(2).Text:x=Text1(3).Text

y=a*x*x+b*x+c

Label3.Caption=y

EndSub

PrivateSubText1_(1)(IndexAsIntegerz(2))

SelectCase⑶

CaseTo

K=0

Case(4)______

K=0

EndSelect

EndSub

【供选择的答案】

(1)A、keyPressB、changeC、keydownD、keyup

(2)A>keyAsciiAsIntegerB、ValueC>Text()D、kAsInteger

(3)A^Chr(KeyAscii)B、Chr(K)C、Asc(K)D、Asc(KeyAscii)

•，〃〃下〃〃

(4)A^aTozB^aTo5zC、aIozD、

试题2（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

过程f的功能是：返回Single类型数组n个元素的平均值，查找数组中最大值、最小值

并通过相应的实参返回到调用处。该过程可以被其他模块中的过程所调用。

(5)f(a()AsSingle,nAsInteger,(6))AsSingle

DimiAsInteger

max=a(1):min=a(1)

Fori=2Ton

Ifa(i)>maxThenmax=a(i)

Ifa(i)<minThenmin=a(i)

(7)

Nexti

(8)

【供选择的答案】

(5)A、FunctionB、SubC、PrivateSub1)、PrivateFunction

(6)A、maxAsSingle,minAsSingleB、maxAsInteger,minAsInteger

C、ByvalmaxAsSingleD、ByvalmaxAsSingle,ByvalminAsSingle

(7)A、f=f+a(i)B、f=f+a(i)/nC、f=a(i)D、f=a(i)/n

(8)A、find=maxB、EndSubC>find=minI)、EndFunction

试题3(每小题3分，共12分)

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

单击Command1后读入文件中所有数据(多于10个)，将其中较大的5个数、较小的5个

数以及其他数分别在列表框控件Listl、List3.List2中显示。

【程序】

PrivateSubCommandl_Click()

DimnAsInteger,xAsSingle,iAsInteger,jAsInteger,kAsInteger

Open"e:\score.txt"ForInputAs#1

DoWhile⑶，统计文件中的数据个数n

Input#1,x:n=n+1

Loop

(10)AsSingle

Close#1:Openne:\score.txt**ForInputAs#1'重新打开文件

Fori=1Ton

Input#1,a(i)

Nexti

Close#1

Fori=1Ton-1

k=i

Forj=i+1Ton

If(11)Thenk=j

Nextj

x=a(i):a(i)=a(k):a(k)t

Ifi<=5Then

List1.Addltema(i)

ElseIf(12)Then

List3.Addltema(i)

Else

List21.Addltema(i)

EndIf

Nexti

EndSub

【供选择的答案】

⑼A、NotEof(l)B、Eof(l)C、Eof(1)=TrueD、Read

(10)A、Dima(n)B、Redima(n)C、Redima()D、statica(n)

(11)A^a(i)>a(k)B、a(i)<a(k)C、a(j)>a(k)D、a(j)<a(k)

(12)A、i>=n-5B、i>n-5C、n>5D、i<n

试题4(每小题3分，共12分)

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

DimmAsInteger

PrivateSubCommandl_Click()

DimaAsInteger,iAsInteger,fAsInteger

a=InputBox(Ma=n)

f=1:i=2

Whilei<=a/2

IfaModi=0Thenf=f+i

i=i+1

m=m+1

Wend

Forml.Cis:Printf

EndSub

【供选择的答案】

(13)运行时第1次单击Commandl输入7后，窗体上的显示结果为：

A、1B、3C、5D、7

(14)运行时第2次单击Commandl输入8后，窗体上的显示结果为：

A、2B、7C、8D、6

(15)运行时第3次单击Commandl输入9后，窗体上的显示结果为：

A、3B、5C、7D、4

(16)运行时3次单击Commandl、并依次输入7、8、9后，变量m的当前值为：

A、6B、7C、8D、3

试题5(每小题3分，共12分)

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

PrivateFunctionf(aAsInteger,bAsInteger)AsInteger

DimrAsInteger,tAsInteger

f=a

DoWhilefModb<>0

f=f+a

Loop

EndFunction

PrivateSubCommand1_C1ick()

StatickAsInteger

DimmAsInteger,nAsInteger

m=InputBox(〃m=〃)

n=InputBox(〃n=〃)

k=k+1

Forml.Cis

Printf(m,n)

EndSub

【供选择的答案】

(17)运行时第1次单击Commandl输入4、6后，窗体上的显示结果为：

A、4B、24C、8D、12

(18)运行时第2次单击Commandl输入15、10后，窗体上的显示结果为:

A、150B、20C、30D、2

(19)运行时第3次单击Commandl输入4、10后，窗体上的显示结果为：

A、10B、20C、40D、80

(20)第4次单击Commandl后，该事件过程中变量k的当前值为：

A、4B、3C、0D、2

试题6（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。界面

设计以及运行时HScrolll.Value值为90时的显示分别如下图左、图右所示。

!□!x!

【程序】

PrivateSubForm_Load()

Picturel.Width=Picturel.Height

Picturel.Scale(-10,10)-(10,-10)

Picturel.BorderStyle=0

HScrolll.SmallChange=2:HScrolll.LargeChange=10

EndSub

PrivateSubHScrol1IChange()

DimtAsSingle

Picturel.Cis

t=HScrolll.Value*3.14159/180

Label1.Caption=HScrolll.Value

Picturel.Circle(0,0),10,vbRed

Picturel.Line(0,0)-(9*Cos(t),9*Sin(t))

EndSub

(21)决定运行时图片框控件边框不显示的相关属性为：

A、BackColorB、ForeColorC、FillStyleD、BorderStyle

(22)滚动条Value属性值为180时，以原点为起点的直线指向：

A、12点方向B、9点方向C、6点方向D、3点方向

(23)滚动条Value属性值为270时，以原点为起点的直线指向：

A、12点方向B、9点方向C、6点方向D、3点方向

(24)下列说法中正确的是：

A、拖动滚动条滑块的过程中以及结束后都不会触发HScrolll_Change事件

B、拖动滚动条滑块的过程结束后立即触发HScrolll.Change事件

C、单击滚动条两端箭头时Value的增量为10或-10。

D、单击滚动条上空白区域时Value的增量为2或-2。

试题7(28分)

编程，计算多项式％+。2工+。3^的值。在文本框控件Textl、Text2中

分别输入n、x后，按Command1可输入小、的、为、…、*，按Command2可计算该多项式

的值并以标签控件Label3显示。

程序设计时的界面设计如下图左所示。运行时输入n为3、x为1.5,输入％、的、的分

别为1、2、3后的输出结果如下图右所示。请将答卷上各事件过程补充完整。

2007年春浙江省高等学校

计算机等级考试试卷(二级VisualBasic)

说明：⑴考生应将所有试题的答案填写在答卷匕其中试题1〜试题6,请在答卷上各小题

正确选项的对应位置处填“J”；

⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；

(3)考试时间为90分钟；

试题1(每小题3分，共12分)

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击窗体后输入1个不小于6的正整数，然后输出该数所有的质数因子(如

输入6则输出“23”，输入60则输出“2235”，等等)。

【程序】

PrivateSubf((jj)

DimiAsInteger

i=2

DoWhile(2)

If(3)Thenk=k/i:Printi;Elsei=i+1

Loop

EndSub

PrivateSubForm_Click()

DimnAsInteger

Do

n=InputBox(11n=")

Loop(4)

Callf(n)

Print

EndSub

【供选择的答案】

⑴A、nAsIntegerB、kAsInteger

C、ByvalnAsByteD、IAsInteger

⑵A、k>lB、k>=lC、k=lD、kModi=0

⑶A、k\i=0B、k\i*i=0C、nModi=0D、(k\i)*i=k

(4)A、Untiln>6B、Whilen>=6C、Untiln>=6D、Whilen>6

试题2(每小题3分，共15分)

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域的次数：首次单击Command]

将统计结果请零、P1可用，再次单击则以消息框显示统计结果、P1不可用。

DimnAsInteger

PrivateSubCommand1ClickO

IfCommand1.Caption="开始"Then

Command1.Caption="显示”

Pl.Enabled二True:n=0

Else

Command1.Caption=(5)

Pl.Enabled=False:MsgBox("单击该区域”+(6)+"次”)

EndIf

EndSub

PrivateSubForm_Activate()

Pl.Width=Pl.Height

Pl.Scale(-3,3)-(3,-3)

Pl.FillStyle=(7)

Pl.FillColor=(8):Pl.Circle(0,0),2

Pl.FillColor=vbwhite:Pl.Circle(0,0),1

EndSub

PrivateSubForm_Load()

Command1.Caption="开始”:Pl.Enabled=False

EndSub

PrivateSubPlMouseDown(ButtonAsInteger,ShiftAsInteger,

xAsSingle,yAsSingle)

Ifx*x+y*y>=lAnd(9)Thenn=n+1

EndSub

【供选择的答案】

⑸A、"退出"B、"开始"C、“显示”D、”开始”

(6)A、nB、Vai(n)C、Str(n)D、Trim(n)

⑺A、1B、0C、2D、3

(8)A、vbBlackB、Rgb(255,0,0)C、vbwhiteD、Rgb(255,255,0)

⑼A、x*x+y*y<=4x>2Andy>2C、x*x+y*y<=2D、x*x+y*y>4

试题3(每小题3分，共12分)

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选•个正确答案。

【程序说明】

某文件中存放了若干个实数，单击Command1可用对话框打开该文件、并将读入的所有

数据在Listl中显示，单击Command2可将读入的数据按值从大到小顺序重新写入到该文件。

【程序】

PrivateSubCommandl_Click()

DimxAsSingle

Listl.Clear:CommonDialogl.Action=1

OpenCommonDialogl.FileNameFor(10)As#1

DoWhile(11)

Input#1,x:Listl.Additemx

Loop

Close#1

EndSub

PrivateSubCommand2_Click()

DimnAsSingle,xAsSingle,iAsInteger,jAsInteger,KAsInteger

n=Listl.(12)

Redima(n)AsSingle

Fori=1Ton:a(i)=Listl.List(i-1):Nexti

Fori=1Ton-1

k=i

Forj=i+lTon:If(13)Thenk=j:Nextj

x=a(k):a(k)=a(i):a(i)=x

Nexti

OpenCommonDialogl.FileNmaeForOutputAs#1

Fori=1Ton:Print#1,a(i):Nexti

Close#1

EndSub

【供选择的答案】

(10)A^OutputB、Inputc、AppendD、Read

(11)A、Eof(l)B、NotEof(l)c、Eof(fn)D、NotEof(fn)

(12)A、CountB、ListCount-1c、ListD、ListCount

(13)A^a(j)>a(k)B、a(j)<=a(k)c、a(j)Oa(k)D、a(j)<a(k)

试题4(每小题3分，共12分)

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

PrivateSubForm_Load()

Textl.Text=H**:Forml.Cis

EndSub

PrivateSubTextl_KeyPress(kAsInteger)

StaticsAsInteger

If(Chr(k)<“0"OrChr(k)>“9")Andk<>13Thenk=0

Ifk=13Thens=s+Vai(Text1.Text):Textl.Text=Prints;

EndSub

(14)写出运行时在Textl中依次按“1/3/5/”后窗体上的显示结果。

A>149B、9C、135D、5

(15)写出运行时在Textl中依次按“2/4/6/”后窗体上的显示结果。

A、246B、12C、6D、2612

(16)写出运行时在Textl中依次按“1/-3/5/”后窗体上的显示结果。

A、1-23B、149C、1-35D、3

(17)写出运行时在Textl中依次按“1/2a/5/”后窗体上的显示结果。

A、14348B、125C、5D、138

试题5(每小题3分，共9分)

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

PrivateFunctionf(aAsInteger,bAsInteger)AsInteger

DimrAsInteger,tAsInteger

Ifa<bThent=a:a=b:b=t

Do

r=aModb

Ifr=0ThenExitDo

a=b:b=r

Loop

f=b

EndFunction

PrivateSubCommand1_C1ick()

DimmAsInteger,nAsInteger

m=InputBox(nm=n):n=InputBox(nn=n)

Forml.Cis:Printf(m,n)

EndSub

(18)运行时若输入m值为15、n值为25,窗体上的显示结果为：

A、25B、15C、5D、3

(19)运行时若输入m值为24、n值为16,窗体上的显示结果为：

A、24B、16C、8D、2

(20)运行时若输入m值为123、n值为23,窗体上的显示结果为:

A、100B、1C、23D、146

试题6(每小题3分，共12分)

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

PrivateSubf(nAsInteger,kAsInteger,xAsString)

DimmAsInteger,tAsInteger

x=m=n:n=Abs(n)

DoWhilen<>0

t=nModk

Ifk=l6Andt>9Thenx=Chr(Asc(na")+t-10)+xElsex=t&x

n=n\k

Loop

Ifm<0Thenx="一”+x

EndSub

PrivateSubCommandl_Click()

DimxAsInteger,yAsInteger,sAsString

x=Inputbox(nx=n):y=Inputbox(ny=n)

Callf(xfy,s)

Forml.Cis:Prints

EndSub

(21)运行时若输入x值为13、y值为2,窗体上的显示结果为：

A、1011B、33C、1101D、1001

(22)运行时若输入x值为27、y值为8,窗体上的显示结果为：

A、33B、1101C、1011D、1001

(23)运行时若输入x值为-14、y值为2,窗体上的显示结果为：

A、-1110B、1101C、1101-D、1011

(24)运行时若输入x值为123、y值为16,窗体上的显示结果为：

A、123B、321C、b7D、7b

试题7(28分)

按照下列要求和规定的步骤编程：

⑴编制函数过程sum,用于计算1个整数的各位数字之和(如引用sum(132)的结果是6,

引用sum(-23)的结果是5,等等)。

⑵编写事件过程CommandLClick,完成下列运算：

①输入10个数到整型数组a；

②将a(l)各位数字和赋值到b(l)、a(2)各位数字和赋值到b(2)....a(10)各位数字

和赋值到b(10)【要求调用函数sum实现】；

③在窗体上以一行输出a数组各元素值(保持原输入值不变)：

④在窗体上以一行输出b数组各元素值。

2006年秋浙江省高等学校

计算机等级考试试卷(二级VisualBasic)

说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1〜试题6,请在答卷上各小题

正确选项的对应位置处填“V”；

⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内；

(3)考试时间为90分钟；

试题1(每小题3分，共12分)

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选个正确答案。

【程序说明】

•.FOEBI00®

计算费波那契数列第n项，请输入n:

计算

•运行时初始界面如左上图所示，在文本框中输入一个整数n并按回车键后：如果n<l

则重新输入，否则按钮Command1可用；

•按Commandl计算费波那契数列第n项的值(该数列第1、2项均为1,此后各项为该

项前两项之和，如：1、1、2、3、5、8、一）；

•用消息框输出结果（右上图表示输入n为8后，输出结果是21）,按消息框中“是”

按钮则界面显示如左上图，按“否”按钮则退出。

【程序】

DimnAsInteger

PrivateSubForm_Load（）

Commandl.Enabled=False

EndSub

PrivateSubTextl_KeyPress(kAsInteger)

If(1)ThenExitSub

n=Textl.Text

Ifn<1ThenMsgBox("n应大于零！")：ExitSub

Commandl.Enabled=True

EndSub

PrivateSubCommandl-Click()

DimiAsInteger

(2)

f(1)=1:f(2)=1

Fori=(3)

f(i)=f(i-1)+f(i-2)

Nexti

k=MsgBox("第"&n&"项为"&f(n)&",是否继续？",(4))

Ifk=vbYesThen

Textl.Text=：Commandl.Enabled=False

Textl.SetFocus

Else

End

EndIf

EndSub

【供选择的答案】

(1)A、k=13B、k<>13C、KeyAscii<>13D、KeyAscii=13

(2)A、Redimf(8)AsLongB、Redimf(n)AsLong

C^Dimf(n)AsLongD^Dimf(8)AsLong

(3)A、1TonB>1TonStep1C>2TonD、3Ton

(4)A、vbNoB、vbYesC^vbYesNoD^vbQuestion

试题2（每小题3分，共15分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选•个正确答案。

【程序说明】

单击Command1后，将所有在Listl中存在、而在List2中不存在的表项添加到列表框控

件List3中。

PrivateSubCommandl_Click()

DimiAsInteger,jAsInteger

⑸

Fori=0To(6)

Forj=0To(7)

IfListl.List(i)=List2.List(j)Then(8)

Nextj

If⑼ThenList3.AdditemListl.List(i)

Nexti

EndSub

【供选择的答案】

(5)A>List3.ClearB、List3.List二〃〃C、List3.deleteD^List3.Cis

(6)A、Listl.ListCountB、Listl.ListCount-1

C、List2.ListCountD、List2.ListCount-1

(7)A、List2.ListCount-1B、List2.ListCount

C^Listl.ListCount-1D、Listl.ListCount

(8)A、ExitForB、ExitC>ExitDoD^Break

(9)A、j<List2.ListCountB、j<=List2.ListCount

C^j>List2.ListCountD、j>=List2.ListCount

试题3（每小题3分，共15分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选•个正确答案。

【程序说明】

选择一个图象文件（BMP、JPG）后，在图片框控件P1中显示，按“反转”按钮后，将

P1中每一像素在P2中相应位置以不同颜色显示。

【程序】

PrivateSubForm_Load()

Filel.(10)=H*.bmp;*.jpg"

P2.Width=Pl.Width:P2.Height=Pl.Height

Pl.ScaleMode=3:P2.ScaleMode=3

EndSub

PrivateSubDirl_Change()

Filel.Path=Dirl.Path

EndSub

PrivateSubDrivel_Change()

Dirl.Path=(11)

EndSub

PrivateSubFilel_Click()

(L2)GoTokk

Pl.Picture=LoadPicture(Filel.Path+Filel.FileName)

ExitSub

kk:

Pl.Picture=LoadPicture(Filel.Path++Filel.FileName)

EndSub

PrivateSubCommancil_Click()

DimxAsInteger,yAsInteger,(13)

DimrAsByte,gAsByte,bAsByte

Forx=Pl.ScaleLeftToPl.ScaleLeft+Pl.ScaleWidth

Fory=Pl.ScaleTopToPl.ScaleTop+Pl.ScaleHeight

c=Pl.Point(x,y)

Ifc>=0Then

r=cMod256:c=c\256

g=cMod256:c=c\256

(14)

P2.PSet(x,y),RGB(255-r,255-g,255-b)

EndIf

Nexty,x

EndSub

【供选择的答案】

(10)A、FilterB、PatternC、FileNameD、Path

(11)A、Dirl.PathB、Filel.PathC>Drivel.PathD、Drivel.Drive

(12)A、OnErrorB、InErrorC>IfErrorD>IfErrorThen

(13)A、cA