計(jì)算機(jī)二級(jí)VB考試-試題(真題)及詳細(xì)答案

2008年春浙江省高等學(xué)校

計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBasic)

說(shuō)明：⑴考生應(yīng)將所有試題的答案填寫(xiě)在答卷上。其中試題1?試題6,請(qǐng)?jiān)诖鹁砩细餍☆}

正確選項(xiàng)的對(duì)應(yīng)位置處填“J”；

⑵請(qǐng)將你的準(zhǔn)考證號(hào)的后五位填寫(xiě)在答卷右下角的指定位置內(nèi)；

(3)考試時(shí)間為90分鐘；

試題1(每小題3分，共12分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】單擊Command1后用輸入對(duì)話框輸入1個(gè)整數(shù)，單擊Command2后在Textl

中顯示其反序的數(shù)(高位變低位)。要求在文本框中不可輸入任何字符。

例如：輸入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分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

運(yùn)行時(shí)，可以在圖片框控件pl用紅色繪制下列坐標(biāo)線并加上數(shù)字顯示。

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分）

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

單擊“讀文件”按鈕將文本文件讀入并逐行在列表框控件Listl中顯示；然后單擊“分

解”按鈕將Listl每行中的英文字母、其他字符分別顯示在List2、List3各行中。

運(yùn)行結(jié)果如下圖所示。

*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分)

閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

PrivateSubTextl_KeyPress(KAsInteger)

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

K=0

Else

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

EndIf

EndSub

【供選擇的答案】

(13)Text1獲得輸入焦點(diǎn)后,依次按數(shù)字鍵1、3、5,Labell顯示:

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

(14)Text1獲得輸入焦點(diǎn)后,依次按數(shù)字鍵2、7^9,Labell顯示:

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

(15)Text1獲得輸入焦點(diǎn)后,依次按-、2、3、5鍵，Labell顯示:

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

(16)Textl獲得輸入焦點(diǎn)后，依次按1、2、a、5鍵，Labell顯示:

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

試題5(每小題3分，共12分)

閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

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秒顯示一次系統(tǒng)時(shí)間，方式是：

A、藍(lán)、綠色交替顯示B、藍(lán)色顯示C、綠色顯示1)、紅色顯示

(18)系統(tǒng)時(shí)間的顯示位置，是在：

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

(19)如果將Timer過(guò)程中的語(yǔ)句"StatickAsByte"改為"DimkAsByte”,激活Timerl

后，窗體系統(tǒng)時(shí)間顯示上的顏色為：

A、藍(lán)、綠色交替B、藍(lán)色C、綠色D、紅色

(20)如果要同時(shí)顯示系統(tǒng)日期、時(shí)間，對(duì)Timer過(guò)程中Print語(yǔ)句之輸出列表不可取的是:

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

試題6(每小題3分，共12分)

閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

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后，相應(yīng)的顯示結(jié)果為：

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

(22)如果將過(guò)程f首句中的“ByRef”改為“Byval"，輸入數(shù)據(jù)同(21),顯示結(jié)果為：

A、893893333C、754333D、7543

(23)單擊Command1輸入4、12、27、8、-6、3后，相應(yīng)的顯示結(jié)果為：

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

(24)如果將過(guò)程f首句中的“ByRef”改為“Byval"，輸入數(shù)據(jù)同(23),顯示結(jié)果為:

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

試題7(28分)

編程，按Commandl可輸入有10個(gè)實(shí)數(shù)的數(shù)組，調(diào)用函數(shù)f求他們的平均值V,然后輸

出其中與V之差的絕對(duì)值為最小的那個(gè)數(shù)組元素。

請(qǐng)將答卷上函數(shù)過(guò)程f(包括形參列表)、事件過(guò)程Commandl補(bǔ)充完整。

2007年秋浙江省高等學(xué)校

計(jì)算機(jī)等級(jí)考試試卷（二級(jí)VisualBasic）

說(shuō)明：⑴考生應(yīng)將所有試題的答案填寫(xiě)在答卷匕其中試題1?試題6,請(qǐng)?jiān)诖鹁砩细餍☆}

正確選項(xiàng)的對(duì)應(yīng)位置處填“J”；

⑵請(qǐng)將你的準(zhǔn)考證號(hào)的后五位填寫(xiě)在答卷右下角的指定位置內(nèi)；

（3）考試時(shí)間為90分鐘；

試題1（每小題3分，共12分）

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】單擊Command1后計(jì)算a?x?+b?x+c的值并顯示，界面設(shè)計(jì)以及運(yùn)行時(shí)

的顯示分別如下圖左、圖右所示。要求在文本框中不可輸入英文字母。

【程序】

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分）

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

過(guò)程f的功能是：返回Single類(lèi)型數(shù)組n個(gè)元素的平均值，查找數(shù)組中最大值、最小值

并通過(guò)相應(yīng)的實(shí)參返回到調(diào)用處。該過(guò)程可以被其他模塊中的過(guò)程所調(diào)用。

(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分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

單擊Command1后讀入文件中所有數(shù)據(jù)(多于10個(gè))，將其中較大的5個(gè)數(shù)、較小的5個(gè)

數(shù)以及其他數(shù)分別在列表框控件Listl、List3.List2中顯示。

【程序】

PrivateSubCommandl_Click()

DimnAsInteger,xAsSingle,iAsInteger,jAsInteger,kAsInteger

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

DoWhile⑶，統(tǒng)計(jì)文件中的數(shù)據(jù)個(gè)數(shù)n

Input#1,x:n=n+1

Loop

(10)AsSingle

Close#1:Openne:\score.txt**ForInputAs#1'重新打開(kāi)文件

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分)

閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

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)運(yùn)行時(shí)第1次單擊Commandl輸入7后，窗體上的顯示結(jié)果為：

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

(14)運(yùn)行時(shí)第2次單擊Commandl輸入8后，窗體上的顯示結(jié)果為：

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

(15)運(yùn)行時(shí)第3次單擊Commandl輸入9后，窗體上的顯示結(jié)果為：

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

(16)運(yùn)行時(shí)3次單擊Commandl、并依次輸入7、8、9后，變量m的當(dāng)前值為：

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

試題5(每小題3分，共12分)

閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

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)運(yùn)行時(shí)第1次單擊Commandl輸入4、6后，窗體上的顯示結(jié)果為：

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

(18)運(yùn)行時(shí)第2次單擊Commandl輸入15、10后，窗體上的顯示結(jié)果為:

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

(19)運(yùn)行時(shí)第3次單擊Commandl輸入4、10后，窗體上的顯示結(jié)果為：

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

(20)第4次單擊Commandl后，該事件過(guò)程中變量k的當(dāng)前值為：

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

試題6（每小題3分，共12分）

閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。界面

設(shè)計(jì)以及運(yùn)行時(shí)HScrolll.Value值為90時(shí)的顯示分別如下圖左、圖右所示。

!□!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)決定運(yùn)行時(shí)圖片框控件邊框不顯示的相關(guān)屬性為：

A、BackColorB、ForeColorC、FillStyleD、BorderStyle

(22)滾動(dòng)條Value屬性值為180時(shí)，以原點(diǎn)為起點(diǎn)的直線指向：

A、12點(diǎn)方向B、9點(diǎn)方向C、6點(diǎn)方向D、3點(diǎn)方向

(23)滾動(dòng)條Value屬性值為270時(shí)，以原點(diǎn)為起點(diǎn)的直線指向：

A、12點(diǎn)方向B、9點(diǎn)方向C、6點(diǎn)方向D、3點(diǎn)方向

(24)下列說(shuō)法中正確的是：

A、拖動(dòng)滾動(dòng)條滑塊的過(guò)程中以及結(jié)束后都不會(huì)觸發(fā)HScrolll_Change事件

B、拖動(dòng)滾動(dòng)條滑塊的過(guò)程結(jié)束后立即觸發(fā)HScrolll.Change事件

C、單擊滾動(dòng)條兩端箭頭時(shí)Value的增量為10或-10。

D、單擊滾動(dòng)條上空白區(qū)域時(shí)Value的增量為2或-2。

試題7(28分)

編程，計(jì)算多項(xiàng)式％+。2工+。3^的值。在文本框控件Textl、Text2中

分別輸入n、x后，按Command1可輸入小、的、為、…、*，按Command2可計(jì)算該多項(xiàng)式

的值并以標(biāo)簽控件Label3顯示。

程序設(shè)計(jì)時(shí)的界面設(shè)計(jì)如下圖左所示。運(yùn)行時(shí)輸入n為3、x為1.5,輸入％、的、的分

別為1、2、3后的輸出結(jié)果如下圖右所示。請(qǐng)將答卷上各事件過(guò)程補(bǔ)充完整。

2007年春浙江省高等學(xué)校

計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBasic)

說(shuō)明：⑴考生應(yīng)將所有試題的答案填寫(xiě)在答卷匕其中試題1?試題6,請(qǐng)?jiān)诖鹁砩细餍☆}

正確選項(xiàng)的對(duì)應(yīng)位置處填“J”；

⑵請(qǐng)將你的準(zhǔn)考證號(hào)的后五位填寫(xiě)在答卷右下角的指定位置內(nèi)；

(3)考試時(shí)間為90分鐘；

試題1(每小題3分，共12分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】單擊窗體后輸入1個(gè)不小于6的正整數(shù)，然后輸出該數(shù)所有的質(zhì)數(shù)因子(如

輸入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分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說(shuō)明】

統(tǒng)計(jì)鼠標(biāo)單擊圖片框控件P1中兩個(gè)同心圓所圍成黑色區(qū)域的次數(shù)：首次單擊Command]

將統(tǒng)計(jì)結(jié)果請(qǐng)零、P1可用，再次單擊則以消息框顯示統(tǒng)計(jì)結(jié)果、P1不可用。

DimnAsInteger

PrivateSubCommand1ClickO

IfCommand1.Caption="開(kāi)始"Then

Command1.Caption="顯示”

Pl.Enabled二True:n=0

Else

Command1.Caption=(5)

Pl.Enabled=False:MsgBox("單擊該區(qū)域”+(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="開(kāi)始”:Pl.Enabled=False

EndSub

PrivateSubPlMouseDown(ButtonAsInteger,ShiftAsInteger,

xAsSingle,yAsSingle)

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

EndSub

【供選擇的答案】

⑸A、"退出"B、"開(kāi)始"C、“顯示”D、”開(kāi)始”

(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分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選?個(gè)正確答案。

【程序說(shuō)明】

某文件中存放了若干個(gè)實(shí)數(shù)，單擊Command1可用對(duì)話框打開(kāi)該文件、并將讀入的所有

數(shù)據(jù)在Listl中顯示，單擊Command2可將讀入的數(shù)據(jù)按值從大到小順序重新寫(xiě)入到該文件。

【程序】

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分)

閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

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)寫(xiě)出運(yùn)行時(shí)在Textl中依次按“1/3/5/”后窗體上的顯示結(jié)果。

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

(15)寫(xiě)出運(yùn)行時(shí)在Textl中依次按“2/4/6/”后窗體上的顯示結(jié)果。

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

(16)寫(xiě)出運(yùn)行時(shí)在Textl中依次按“1/-3/5/”后窗體上的顯示結(jié)果。

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

(17)寫(xiě)出運(yùn)行時(shí)在Textl中依次按“1/2a/5/”后窗體上的顯示結(jié)果。

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

試題5(每小題3分，共9分)

閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

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)運(yùn)行時(shí)若輸入m值為15、n值為25,窗體上的顯示結(jié)果為：

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

(19)運(yùn)行時(shí)若輸入m值為24、n值為16,窗體上的顯示結(jié)果為：

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

(20)運(yùn)行時(shí)若輸入m值為123、n值為23,窗體上的顯示結(jié)果為:

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

試題6(每小題3分，共12分)

閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

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)運(yùn)行時(shí)若輸入x值為13、y值為2,窗體上的顯示結(jié)果為：

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

(22)運(yùn)行時(shí)若輸入x值為27、y值為8,窗體上的顯示結(jié)果為：

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

(23)運(yùn)行時(shí)若輸入x值為-14、y值為2,窗體上的顯示結(jié)果為：

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

(24)運(yùn)行時(shí)若輸入x值為123、y值為16,窗體上的顯示結(jié)果為：

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

試題7(28分)

按照下列要求和規(guī)定的步驟編程：

⑴編制函數(shù)過(guò)程sum,用于計(jì)算1個(gè)整數(shù)的各位數(shù)字之和(如引用sum(132)的結(jié)果是6,

引用sum(-23)的結(jié)果是5,等等)。

⑵編寫(xiě)事件過(guò)程CommandLClick,完成下列運(yùn)算：

①輸入10個(gè)數(shù)到整型數(shù)組a；

②將a(l)各位數(shù)字和賦值到b(l)、a(2)各位數(shù)字和賦值到b(2)....a(10)各位數(shù)字

和賦值到b(10)【要求調(diào)用函數(shù)sum實(shí)現(xiàn)】；

③在窗體上以一行輸出a數(shù)組各元素值(保持原輸入值不變)：

④在窗體上以一行輸出b數(shù)組各元素值。

2006年秋浙江省高等學(xué)校

計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBasic)

說(shuō)明：⑴考生應(yīng)將所有試題的答案填寫(xiě)在答卷上。其中試題1?試題6,請(qǐng)?jiān)诖鹁砩细餍☆}

正確選項(xiàng)的對(duì)應(yīng)位置處填“V”；

⑵請(qǐng)將你的準(zhǔn)考證號(hào)的后五位填寫(xiě)在答卷右下角的指定位置內(nèi)；

(3)考試時(shí)間為90分鐘；

試題1(每小題3分，共12分)

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選個(gè)正確答案。

【程序說(shuō)明】

?.FOEBI00?

計(jì)算費(fèi)波那契數(shù)列第n項(xiàng)，請(qǐng)輸入n:

計(jì)算

?運(yùn)行時(shí)初始界面如左上圖所示，在文本框中輸入一個(gè)整數(shù)n并按回車(chē)鍵后：如果n<l

則重新輸入，否則按鈕Command1可用；

?按Commandl計(jì)算費(fèi)波那契數(shù)列第n項(xiàng)的值(該數(shù)列第1、2項(xiàng)均為1,此后各項(xiàng)為該

項(xiàng)前兩項(xiàng)之和，如：1、1、2、3、5、8、一）；

?用消息框輸出結(jié)果（右上圖表示輸入n為8后，輸出結(jié)果是21）,按消息框中“是”

按鈕則界面顯示如左上圖，按“否”按鈕則退出。

【程序】

DimnAsInteger

PrivateSubForm_Load（）

Commandl.Enabled=False

EndSub

PrivateSubTextl_KeyPress(kAsInteger)

If(1)ThenExitSub

n=Textl.Text

Ifn<1ThenMsgBox("n應(yīng)大于零！")：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&"項(xiàng)為"&f(n)&",是否繼續(xù)？",(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分）

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選?個(gè)正確答案。

【程序說(shuō)明】

單擊Command1后，將所有在Listl中存在、而在List2中不存在的表項(xiàng)添加到列表框控

件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分）

閱讀下列程序說(shuō)明和程序，在每小題提供的若干可選答案中，挑選?個(gè)正確答案。

【程序說(shuō)明】

選擇一個(gè)圖象文件（BMP、JPG）后，在圖片框控件P1中顯示，按“反轉(zhuǎn)”按鈕后，將

P1中每一像素在P2中相應(yīng)位置以不同顏色顯示。

【程序】

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