試卷方案：201105VisualBasic期末考試方案

一、單項(xiàng)選擇一共50題(選：20題*1'20分)

第1題

A.以下有關(guān)對(duì)象屬性的說(shuō)法中，錯(cuò)誤的是.

B.工具箱中的控件并不是VB中所有的控件

C.若將Frame的Enabled屬性設(shè)置為False,則不能使用放置在Frame里面的控件

D.對(duì)象的Name屬性在運(yùn)行時(shí)不能改變

E.對(duì)象的所有屬性都可以在屬性窗口口設(shè)置

第2題

數(shù)學(xué)表達(dá)式sin27:+a%+e的VB算術(shù)表達(dá)式為二

|x+y|-

A.Sin(27)+Sqr(x+Exp3)/(x+y)

B.Sin(27*3.14159/180)+Sqr(x+Exp(3j)/Abs(x+y)

C.Sin(27*3.14159/180)+Sqr(x+eA3)/Abs(x+y)

D.Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)

第3題

A.下列有關(guān)對(duì)象的敘述中，正確的是

B.對(duì)象山屬性，事件和方法構(gòu)成

C.對(duì)象的所有屬性既可以在屬性窗口設(shè)置，又可以在程序運(yùn)行時(shí)用賦值語(yǔ)句設(shè)置

D.對(duì)象的事件一定就是由VB預(yù)先設(shè)置好的人工干預(yù)的動(dòng)作

E.對(duì)象的方法是對(duì)象響應(yīng)某個(gè)事件后執(zhí)行的一段程序代碼

第4題

表達(dá)式Clnt(4.5)+Cint(-4.51)+lnt(4.9)+lnt(-4.1)+Fix(-1.9)+0Mod2的運(yùn)算結(jié)果是

1B.-lC.-2D.-3

第5題

A.下列關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是

B.每一個(gè)菜單項(xiàng)就是一個(gè)對(duì)象，并且可設(shè)置自己的屬性和事件

C.菜單項(xiàng)不可以響應(yīng)DbICIick事件

D.VB6.0允許創(chuàng)建超過(guò)四級(jí)的子菜單

程序決行時(shí)，如果要求菜單項(xiàng)是灰色，不能被用戶選擇，則應(yīng)設(shè)置菜單項(xiàng)的Enabled屬性為False

第6題

A.以下關(guān)于數(shù)組的說(shuō)法中，錯(cuò)誤的是

B.使用了Preserve子句的Redim語(yǔ)句，只允許改變數(shù)組最后一維的上界

C.對(duì)于動(dòng)態(tài)數(shù)組，Redim語(yǔ)句可以改變其維界但不可以改變其數(shù)據(jù)類型

D.Erase語(yǔ)句的功能只是對(duì)固定大小的數(shù)組進(jìn)行初始化

E.Lbound函數(shù)返回值是指定數(shù)組某一維的下界

第7題

設(shè)a=3,b=2,c=1,運(yùn)行printa>b>c的結(jié)果是.

TrueB.FalseC.lD.出錯(cuò)

第8題

以下說(shuō)法不正確的是.

A.使用不帶關(guān)鍵字Preserve的ReDim語(yǔ)句可以重新定義數(shù)組的維數(shù)

B.使用不帶關(guān)鍵字Preserve的ReDim語(yǔ)句可以改變數(shù)組各維的上、卜界

C.使用不帶關(guān)鍵字Preserve的ReDim語(yǔ)句可以改變數(shù)組的數(shù)據(jù)類型

D使用不帶父鍵字Preserve的ReDim語(yǔ)句可以對(duì)數(shù)組中的所有元素進(jìn)行初始化

第9題

A.在列表框Listl中有若干列表項(xiàng)，可以刪除選定列表項(xiàng)的語(yǔ)句是.

B.Listl.text=m,

C.Listl.List(List1.Listlndex)=""

D.Listl.Clear

E.Listl.RemoveitemListl.Listlndex

第10題

e2—bInxsin3(2x)

數(shù)學(xué)表達(dá)式e豆型)對(duì)應(yīng)的VB表達(dá)式是.

|sinx-cosx21

A.(eA(2*n*x-5)*Log(x)+(Sin(2x))A3)/Sqr(Sin(x)-Cos(xA2))

B.(Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x))A3)/Sqr(Sin(x)-Cos(xA2))

C.(Exp(2*n*x-5)*Ln(x)+(Sin(2*x)F3)/Sqr(Sin(x)-Cos(xA2))

D.eA(2*3.14159*x-5)*Ln(x)+(Sin(2*x))A3)/Sqr(Sin(x)-Cos(xA2))

第11題

A.以下有關(guān)數(shù)組參數(shù)的說(shuō)明中，正確的是

B.在過(guò)程中也可用Dim語(yǔ)句對(duì)形參數(shù)組進(jìn)行說(shuō)明

C.動(dòng)態(tài)數(shù)組作為實(shí)參時(shí)，可用ReDim語(yǔ)句在過(guò)程中改變對(duì)應(yīng)形參數(shù)組的維界

D.調(diào)用過(guò)程時(shí)，數(shù)組名不能作為實(shí)參

E.數(shù)組可以按地址傳遞也可以按植傳遞

第12題

A.下列有關(guān)過(guò)程的說(shuō)法中，錯(cuò)誤的是

B.在Sub或Function過(guò)程內(nèi)部不能再定義其它Sub或Function過(guò)程

C.對(duì)于使用ByRef說(shuō)明的形參，在過(guò)程調(diào)用時(shí)形參和實(shí)參只能按傳址方式結(jié)合

D.遞歸過(guò)程既可以是遞歸Function過(guò)程，也可以是遞歸Sub過(guò)程

E.可以像調(diào)用Sub過(guò)程一樣使用Call語(yǔ)句調(diào)用Function過(guò)程

第13題

A.要將焦點(diǎn)設(shè)置在某個(gè)控件上，以下四個(gè)選項(xiàng)中正確的是.

B.只能使用鼠標(biāo)直接點(diǎn)擊控件

C.只能使用Tab鍵將焦點(diǎn)移到該控件

D.只能在程序中調(diào)用該控件的SetFocus方法

A.B.C三選項(xiàng)中涉及的方法均可使用

第14題

A.以下Case語(yǔ)句中，能正確描述丫的絕對(duì)值大于6的是.

CaseAbs(Y)>6B.Case-6To6

C.CaseNot(-6To6)D.CaseIs<-6?Is>6

第21題

下列語(yǔ)句中，正確的是___________

A.Textl.SetFocusB.Forml.ClearC.LabelLSetFocusD.Listl.CIs

第22題

下列選項(xiàng)中，所包含的所有表達(dá)式能夠?qū)晌徽麛?shù)x的個(gè)位數(shù)與十位數(shù)對(duì)調(diào)（如將78轉(zhuǎn)換為87）的是

①Val(Right(X,1)&Left(X,1))②Val(Right(Str(X),1)&Lelt(Str(X),1))

③Val(Right(CStr(X),1)&Left(CStr(X),1))④Val(Mid(X,2,1)+Mid(X,1,1))

AW②③C.②④

第23題

以下關(guān)于子過(guò)程或函數(shù)的定義中，正痢的是

A4八f1/nAcQtrinn*1\B.Subf1(nAsInteger)AsInteger

C.Functionf1(f1AsIntcger)AsIntegerD.Funetionf1(ByVa1nAsInteger)

第24題

A.下列有關(guān)控件數(shù)組的說(shuō)法中，錯(cuò)誤的是.

B.控件數(shù)組由一組具有相同名稱和相同類型的控件組成，不同類型的控件無(wú)法組成控件數(shù)組

C.控件數(shù)組中的所有控件不得具有各自不同的屬性設(shè)宜值

D.控件數(shù)組中的所有控件共享同一個(gè)事件過(guò)程

E.控件數(shù)組中每個(gè)元素的下標(biāo)由控件的Index屬性指定

第25題

A.以下對(duì)數(shù)組參數(shù)的說(shuō)明中，錯(cuò)誤的處.

B.在過(guò)程中可以用Dim語(yǔ)句對(duì)形參數(shù)組進(jìn)行聲明

C.形參數(shù)組只能按地址傳遞

D.實(shí)參為動(dòng)態(tài)數(shù)組時(shí)，可用ReDim語(yǔ)句改變對(duì)應(yīng)形參數(shù)組的維界

只需把要傳遞的數(shù)組名作為實(shí)參.即可調(diào)用過(guò)程

第26題

A.要向文件datal.txt添加數(shù)據(jù)，正確的文件打開命令是.

B.Open"datal.txt"ForOutputAs#1

C.Open"datal.txt"ForInputAs#1

D.Open"datal.txt"ForAppendAs#5

E.Open"datal.txt"ForWriteAs#5

第27題

A.下面有關(guān)數(shù)組處理的敘述中，正確的是.

B.在過(guò)程中使用ReDim語(yǔ)句可以改變動(dòng)態(tài)數(shù)組數(shù)據(jù)的類型

C.七:過(guò)程中，可以使用Dim、Private和Sialic語(yǔ)句來(lái)定義數(shù)組

D.用ReDim語(yǔ)句重新定義動(dòng)態(tài)數(shù)組時(shí)，口;以改變數(shù)組的大小，但不能改變數(shù)組的維數(shù)

E.不可以用Public語(yǔ)句在街體模塊的通用處說(shuō)明一個(gè)全局?jǐn)?shù)組

第28題

卜面的表達(dá)式中，運(yùn)算結(jié)果為True的是.

A."abcrdM<="ABCRD"B,lnt(134.69)<=CInt(134.69)

C.3>2>1D.Mid("Visual",l,4)=Right("lausiV",4)

第29題

設(shè)計(jì)界面時(shí)，要使一個(gè)文本框具有水平和垂直滾動(dòng)條，應(yīng)先將其屈性置為True,再將ScrollBar

為3.

A.MultiLineB.AutoSizeC.A1ignmentD.RightToLeft

第30題

F面有關(guān)數(shù)組的說(shuō)法中，正確的是

A.數(shù)組的維下界不可以是負(fù)數(shù)

.則模塊中數(shù)組定義語(yǔ)句DimA(0To5)會(huì)與之沖突

①卜面有關(guān)數(shù)組的敘述中，不正確的是.

②在過(guò)程中用ReDim語(yǔ)句定義的動(dòng)態(tài)數(shù)處，其下標(biāo)的上下界可以是變量

③數(shù)組作為形式參數(shù)時(shí)，傳遞的是每個(gè)數(shù)組元素的值

④

⑤在衡體模塊的通用聲明處可以用Public說(shuō)明一個(gè)全局?jǐn)?shù)組

⑥數(shù)組定義語(yǔ)句中可以用負(fù)數(shù)或小數(shù)來(lái)指定某一維的維下界或維上界的值

A.（DQ）B.0B）④C.①②④D.③④

第32題

下列關(guān)于對(duì)象SetFocus與GotFocus的描述中，正確的是

A.SetFocus是事件,GotFocus是方法B.Setfocus和Gotfocus都是事件

C.Se（focus和GotFocus都是方法D.SetFocus是方法.GoiFocus是事件

第33題

創(chuàng)建一個(gè)名為“文件”的菜單項(xiàng)，欲使其可用Alt+F方式訪問(wèn)，則在菜單編輯器的標(biāo)題文本框中應(yīng)輸入

A.文件（$F）B.文件（&F）C.文件伊F）D.文件（％F）

第34題

在下列屬性中，屬于CommandButton控件、LislBox控件共有的是

A.Caption、TextB.Visible、FontC.Caption、VisibleD.List、Visible

第35題

下列能夠正確表示條件"x<Y<Z”的VB漫輯表達(dá)式是

A.XY<ZB.X<=YAndY<ZC.X<YORY<ZD.X<=Y<Z

第36題

A.以卜.關(guān)于Funciion過(guò)程的說(shuō)法中，錯(cuò)誤的是

B.Function過(guò)程名可以有一個(gè)或多個(gè)返回值

C.在Function過(guò)程內(nèi)部不得再定義Function過(guò)程

D.Funotion過(guò)程中可以包含多個(gè)ExitFunction語(yǔ)句

E.可以像調(diào)用Sub過(guò)程一樣調(diào)用Function過(guò)程

第37題

卜面的關(guān)系表達(dá)式中，運(yùn)算結(jié)果為True的是

A.Clnt(1.5)=lnt(1.5)B.Fix(1.5)=lnt(1.5)

C.Fix(-1.5)=CInt(-1.5)D.Fix(-1.5)=lnt(-1.5)

第38題

已知X<Y,A>B,則下列表達(dá)式中，結(jié)果為True的是

A.Sgn(X-Y)+Sgn(A-B)=-1B.Sgn(X-Y)+Sgn(A-B)=-

2

C.Sgn(Y-X)+Sgn(A-B)=2

第39題

執(zhí)行語(yǔ)句時(shí)，會(huì)出現(xiàn)出錯(cuò)提示信息

C.A.Print5+7=14B.Print16384*2

Print32768*2D.Print"14"+32

第40題

sin30+Jlogx+y

數(shù)學(xué)表達(dá)式.......................對(duì)應(yīng)的VisualBasic表達(dá)式是

2兀+ef

A.Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)

B.(Sin(30*n/180)+Sqr(Ln(x)+y))/(2*n+Exp(x+y))

C.Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2-3.14159+eA(x+y))

D.(Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y))

第41題

在一人多窗體程序中，可以僅將窗體=orm2從內(nèi)存中卸載的語(yǔ)句罡一

A.Form2.UnloadB.UnloadForm2

C.Form2.EndD.Form2.Hide

第42題

Print方法可在上輸出數(shù)據(jù).

①衡體②文本框③圖片框④標(biāo)簽⑤列表框⑥立即衡

AW<S).②③⑤C.①翻D.③破

第43題

若要使邏輯表達(dá)式x>yXoryvz結(jié)果為True,則x、y、z的取值應(yīng)為下列選項(xiàng)中的________

A.x=3、y=3.z=4B.x=2.y=1.z=2

、

C.x=1y=3,z=2Dx=2.y=2.z=2

第44題

下列是合法的變量名.

A.absB,-alCcdcdD.Abe_10

第45題

下列是確的VB常量.

7U

A.D-6B.E-6C5DD.5E-6

第46題

髓嬲饕「陶猛雪魁鏢州寮啷磊蔚^㈱端麻蹤心的語(yǔ)句是定義了函數(shù)Fun.調(diào)用函數(shù)Fun

A.Fun3.14.JB.CallFun(1,365)D.K=Fun("24","35")

第47題

若需要在同一窗體內(nèi)安排兩組相互獨(dú)立的單選按鈕(OptionButto可使用控件做容器將它們分開

①②PictureBox③Imagen),

TextBoxA.①或④Frame

②B.②或③

C.②或④D.③或④

第48題

A.以下關(guān)于文件的敘述中，錯(cuò)誤的是。

B.用Oulpul模式打開一個(gè)順序文件，即使不對(duì)它進(jìn)行寫操作，原來(lái)的內(nèi)容也被清除

C.可以用Print#語(yǔ)句或Write#語(yǔ)句將數(shù)據(jù)寫到順序文件中

D.若以O(shè)uipul'Append、RandomBinary方式打開一個(gè)不存在的文件，系統(tǒng)會(huì)出錯(cuò)

E.順手文件或隨機(jī)文件都可以用二進(jìn)制訪問(wèn)模式打開

第49題

窗體上有若干命令按鈕和一個(gè)文本屬性設(shè)置為True.

A.EnabledB.DefaultC.CancelD.Visible

第50題

5,

數(shù)學(xué)表達(dá)式一X-8S29-------對(duì)應(yīng)的VB表達(dá)式是

(exIny)5

A.(x*5-Cos(29))/Sqr(eAx+ln(y))+5

B.(xA5-Cos(29))/(Sqr(Exp(x)+Log(y))+5)

C.(xA5-Cos(29*3.14159/180))/(Sqr(Exp(x)+Log(y))+5)

D.(x/,5-Cos(29*3.14159/180))/(Sqr(eAx+Log(y))+5

、填空—共20題(選：15空*2'30分)一一閱讀理解：填寫程序的輸出結(jié)果

第1題

運(yùn)行下列程序，單擊Command]，在窗體上顯示的第一行內(nèi)容是【I】，第二行的內(nèi)容是[2】,

第三行的內(nèi)容是______[3]。

OptionExplicit

PrivateSubCommand1_Click()

DimsAsString

s='Basic"

Calltrans(s)

EndSub

PrivateSubtrans(sAsString)

DimjAsInteger,tAsString

DimkAsInteger

k=3

Do

j=lnStr(s,"a")

t=LCase(Right(s,j))

s=Right(t,Len(s)-k)&Left(s,Len(t))

k=k-1

Prints

LoopUntilk=0

EndSub

第2題

執(zhí)行下面程序，單擊Command1則窗體上顯示的笫一行是_【1J,第三行是【21,最后一行是

[3]

OptionExplicit

PrivateSubCommand1—Click()

DimxAsInteger,yAsInteger

x=12:y=0

DoWhilex>0

IfxMod4=0Then

y=y+x

Else

y=y-x

EndIf

x=x-3

Printx,y

Loop

EndSub

第3題

執(zhí)行下面的程序，單擊Command】窗體上顯示的第一行是【1】，第二行是【2】，第四行是

______[3]—<-

OptionExplicit

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=1:b=1

Callsub1(a,b)

Printa,b

EndSub

PrivateSubsub1(aAsInteger,bAsInteger)

a=a+b:b=b+a

Printa,b

Ifa>10Then

a=a+b

b=b+a

Else

Callsub1(a,b)

EndIf

EndSub

第4題

運(yùn)行下面的程序，單擊Commaidl在窗體t■.顯示的變量a的值為【1】，變量b的值為【2】

變量c的值為[3]。

OptionExplicit

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,cAsInteger

a=5:b=10:c=15

Printfun(a,b,c)+fun(a,b,c)

Printa,b,c

EndSub

PrivateFunctionfun(xAsInteger,yAshteger,zAsInteger)AsInteger

z=x

x=x+y

y=y+z

fun=x+y

EndFunction

第5題

執(zhí)行下面的程序，連續(xù)三次單擊命令按鈕Command】之后，A數(shù)組共有【I】個(gè)元素：數(shù)組元素A(2)的值

【2】，A(4)的值是[3】，

OplionExplicit

OplionBase1

PrivateSubCommand1_Click()

StaticA()AsInteger,nAsInteger

DimiAsInteger,kAsInteger

k=n'

n=n+2

ReDimPreserveA(n)

Fori=k+1Ton

A(i)=i*n+1

Nexti

Fori=1Ton

PrintA(i);

Nexti

Print

EndSub

第6題

運(yùn)行下面程序，單擊Commandl在窗體上顯示的變量A的值為[1]，變量B的值為【2】

OptionExplicit

DimaAsInteger

PrivateSubCommand1_Click()

DimbAsInteger

b=3

a=4

b=fun(fun(a,b+2),a)+b

Prints,b

EndSub

PrivateFunctionfun(nAsInteger,kAsInteger)

n=n+a

k=n-k

fun=n+k+a

EndFunction

第7題

執(zhí)行下面的程序，單擊Command,則窗體上第一行顯示的是【1】，第二行顯示的是一【2】

OplionExplicit

DimxAsInteger

PrivateSubCommand1_Click()

DimyasInteger

X=1O:Y=2

Callprocess(y)

PrintX,Y

Callprocess((y))

PrintX,Y

EndSub

PrivateSubprocess(nAsInteger)

DimyAsInteger

Ifn>0Then

>=x-n

y=x

Else

x=x+n

y=x+2

EndIf

n=_n

EndSub

第8題

執(zhí)行下面程序，單擊Command1窗體上顯示的第一行是一【1】，第二行是【2】，第四行是【3】

最后一行是一【4】.

OptionExplicit

PrivateSubCommand1_Click()

DimnAsInteger

n=5

Calltest(n)

Printn

EndSub

PrivateSubtest(ByValnAsInteger)

DimiAsInteger,sAsInteger

Ifn>0Then

Fori=1Ton

s=s&CStr(i)

Nexti

Prints

Calltest(n-2)

Else

Print"OVER"

EndIf

EndSub

第9題

運(yùn)行下列程序，單擊Commandl在窗體上顯示的笫一行內(nèi)容是［1］,第二行的內(nèi)容是［2】，第三行的內(nèi)

容是［3］。(""的ASCII碼是65,Z是90)

OptionExplicit

PrivateSubCommand1Click()

DimiAsInteger,stAsString,nAsInteger,pAsString*1

p="B"

Fori=3To1Step-1

n=Asc(p)-i

Ifn<65Thenn=n+26

st=Chr(n)

st=st&F(i)

Printst

Nexti

EndSub

PrivateFunctionF(nAsInteger)

DimiAsInteger

StaticsAsInteger

Fori=1Ton

s=s+i

Nexti

F=s

EndFunction

而101

執(zhí)行下面的程序，單擊Commandl輸出的變量i的值是【1】，變量j的值是【2］，變量k的值是【3】

OptionExplicit

PrivateSubCommand1Click()

DimiAsIntegerjAsInteger

DimkAsInteger

i=10

j=4

k=Funk(i,j)

Printij,k

EndSub

PriateFunctionFunk(ByValAAsIntege\BAsInteger)AsInteger

A=A+B

B=B-2

IIB=0OrB=1Then

Funk=1

Else

Funk=A+Funk(A,B)

EndIf

EndFunction

第11題

運(yùn)行下面程序，如果連續(xù)三次單擊命令按鈕之后，A數(shù)組共有一【1】一個(gè)元素；數(shù)組元素A(2)的值是[2】

—.A(5)的值是一【3】.

OptionExplicit

OptionBase1

PrivateSubCommand1_Click()

Statica()AsInteger,nAsInteger

DimiAsInteger,kAsInteger

k=n

0=04-2

ReDimPreservea(n)

Fori=k+1Ton

a(i)=i*n+1

Nexti

Fori=1Ton

Printa(i);

Nexti

Print

EndSub

第12題

執(zhí)行下面的程序,單擊Commandl在窗體界面上顯示的第?行是[11,第二行是【2】，第三行是【3】

第四行是L4J。

OplionExplicit

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,iAsInteger

i=1218

a=i\100

b=iMod100

Ifb<>0Then

Printa

Printb

PrintLcd((a),(b));a;b

PrintLcd(a,b);a;b

EndIf

EndSub

PrivateFunctionLcd(xAsInteger,YAsInteger)AsInteger

DimdAsInteger

Ifx<ythen

d=x:x=y:y=d

EndIf

d=x

Do

IfxMody=0Then

Lcd=x

ExitDo

Else

x=x+d

EndIf

Loop

EndFunction

第13題

執(zhí)行以下程序，單擊Commandl則在Picturel上顯示的第一行是【1】，第二行是【2】，第三行是【3】

OplionExplicit

PrivateSubCommand1_Click()

DimA(3,3)AsInteger.iAsInteger,jAsInteger

DimkAsInteger

i=3：j=2:A(i,j)=1:k=1

DoUntilk>9

k=k+1

Ifi+1>3Andj+1<=3Then

i=1：j=j+1

Elselfi+1<=3Andj+1>3Then

i=i+1：j=1

Elselfi+1>3Andj+1>3Then

由-1

Elselfi+1<=3Andj+1<=3AndA(i+1,j+1)<>0Then

由-1

Else

占i+1:j=j+1

EndIf

A(i,j)=k

Locp

Fori=1To3

Forj=1To3

Picturel.PrintA(i.j)：

Nextj

Picturel.Print

Nexti

EndSub

第14題

執(zhí)行下列程序，單擊在窗體上顯示的第一行內(nèi)容是【

ConmandlI，第二行的內(nèi)容是一[2]

第三行的內(nèi)容是—【3】。

OptionExplicit

PrivateSubCommand1_Click

DimnAsInteger,iAsInteger

n=2

Fori=7To1Step-1

Calsub2(i,n)

Printi,n

Nexti

EndSub

PrivateSubsub2(xAsInteger,yAsInteger)

StaticnAsInteger

DimiAsInteger

Fori=2To1Step-1

n=n+x

x=x-1

Nexti

y=y+n

EndSub

第15題

執(zhí)行下列的程序，單擊Command1在窗體上顯示的變量b的值為【

1】一，變量C的值為[2]

變量Z的值為—[3]—。

PrivateSubCommand1_Click()

DimbAsInteger,cAsInteger,zAsInteger

b=2

c=1

z=fun(b,fun(b+1,c))+b-c+1

Printb,c,z

EndSub

PrivateFunctionfun(xAsInteger.ByValyAsInteger)AsInteger

x=x-y

y=x+y+2

fun=y-x

EndFunction

第16題

執(zhí)行下面程序，單擊Commandl窗體上顯示的第一行是【1】，第二行是【，第四行是—[3]

OptionExplicit

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,iAsInteger

a=2:b=5

Fori=aToa*bStepa

Callsub1(i,a,b)

Printa,b

Nexti

Printa,b,i

EndSub

PrivateSubsub1(iAsInteger,aAsInteger,bAsInteger)

i=i+1

a=a+1

b=u+l

EndSub

第仃題

執(zhí)行下面程序，單擊Commandl窗體上顯示的第一行是【1】，第二行是【2】，第三行是一【3】

OptionExplicit

OptionBase1

PrivateSubCommand1_Click()

Dimsa(3,3)AsString*1,iAsInteger,jAsInteger,kasInteger

k=1

Fori=1To3

Forj=1To3

sa(i,j)=Chr(Asc("A")+(k+i+j)Mod26)

Printsa(i,j)r；

k=k+3

Nextj

Print

Nexti

EndSub

第18題

執(zhí)行下面程序，單擊Command：則數(shù)組元素a(1,2)的數(shù)值是[1】，a(3,3)的數(shù)值是[2】，圖

片框中最后一行顯示的是[3]____.

OptionExplicit

PrivateSubCommand1_Click()

Dima(4,4)asInteger,iasInteger,jasInteger

DimkAsInteger,numasInteger

num=O

Fork=1To4

ForTok-1

num=num+1

a(i,k)=num

nexti

Forj=kTo1Step-1

num=num+1

a(k,j)=num

nextj

nextk

Fori=1To4

Forj=1To4

Picturel.PrintRightr&a(i,j),3);

Nextj

Picturel.Print

Nexti

EndSub

第佃趣

執(zhí)行下面程序，單擊Comandl則圖片框中顯示的第一行是【1】，顯示的第二行是【2】

一行顯示的是一【3】______.

PrivateSubCommand1_Click()

Dima；3,3)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=3To1Step-1

Ifi>=jThen

a(i,j)=i-j

Else

EndIf

Nextj

Nexti

Fori=1To3

Forj=3To1Step-1

Picturel.Printa(i,j);

Nextj

Pic:ure1.Print

Nexti

EndSub

第20題

執(zhí)行下面程序，單擊Command1則窗體上顯示的第一行是【1】，第二行是【2】，第三行是

OplionExplicit

PrivateSubCommand1_Click()

DimaAsString,iAsInteger

DimxAsString,zAsString

a='iamstudent"

i=lnStr(5,a,"d")

Do

[3]

x=Mid(a,i,3)

z=Right(x,1)

z=UCase(x&Z)

i-i-2

Printz

LoopUntili=1

EndSub

三、程序填空一共16題(選：W空*2NO分)一一完形填空：把題目中空的程序代碼行補(bǔ)齊

第1題

'本程序的功能是把由4個(gè)分隔的十進(jìn)制數(shù)表示的IP地址轉(zhuǎn)換為由32位二進(jìn)制數(shù)組成

'的IP地址。例如十進(jìn)制表示的IP地址為202.119.191.1,其中每個(gè)十進(jìn)制數(shù)對(duì)應(yīng)一個(gè)8位

'的二進(jìn)制數(shù)，合起來(lái)構(gòu)成一個(gè)32位二進(jìn)制的IP地址11001010011101111011111100000001。

'過(guò)程Tiqu用于提取十進(jìn)制IP地址中每個(gè)用…分隔的十進(jìn)制數(shù)；

"汗知Cccwort用工間生【做r阱怖興《珀出示1a小一出宿第7八坦左因百余EKPSlA

OptonExplicit

PrivateSubCommand1_Click()

Dimstr1AsString,str2AsString

Dima(4)AsInteger,iAsIn

tegerstr1=Textl.Text

CallTiqu(str1,a)

Fori=1To4

lfa(i)<OOra(i)>255Then

MsgBox("IP地址錯(cuò)誤！")

ExitSub

Else

1*SPACE

[?]

EndIf

Nexti

Text2.Text=str2

EncSub

PrivateSubTiqu(stAsString,a()AsInteger)

DimnAsInteger,kAsInteger,sAsString,dAsString*1,iAsIn

n=Len(st):k=0:s=

Fori=1Ton

1"SPACE

[?]

lfd=VThen

a(k)=Val(s)

1"SPACE

【？1

Else

s=s&d

EndIf

Nexti

a(4)=s

EndSub

PrivateFunctionconvert(ByValnAsInteger)AsString

DimbAsInteger,iAsInteger,sAsString

DoWhilen>0

b=nMod2

n=n\2

****?*?***

"SPACE

Loop

Fori=1To8-Len(s)

s="0"&s

Nexti

!***?***??

.SPACE

EndFunction

'下面程序的功能是：統(tǒng)il?存放在數(shù)組A中的N個(gè)數(shù)有多少個(gè)是不同的。

'具體做法是：變量Left指向要被處理的數(shù)1從第2個(gè)元素開始)，

'Right指向數(shù)組最后一個(gè)元素。若

為

A(Left)與排在它前面

的某個(gè)數(shù)組元素值相同，

'就用數(shù)組元素A(Right)的值來(lái)替換A(Left)的值，同時(shí)將變量Right的值

減1：

'否則將變量Left的值力口1,處理數(shù)組下一個(gè)元素，重復(fù)以上過(guò)程，直到Left>Right'Right的值即為

不同的數(shù)的個(gè)數(shù)。程序界面參見(jiàn)下圖所示

OptionExplicit

OpticnBase1

PrivateSubCommand1_Click()

1*SPACE

DimA()AsInteger,NAsInteger,IAsInteger

DimOPAsInteger

N=InputBox("請(qǐng)輸入數(shù)據(jù)個(gè)數(shù)",,10)

ReDimA(N)

Raidomize

ForI=1ToN

A(l)=lnt(Rnd*10)+1

Textl=Textl&A(l)&"“

NextI

CaIstatisticfA,OP)

Text2="有"&OP&“個(gè)不同的數(shù):"

ForI=1ToOP

Text2=Text2&A(l)&u"

NextI

EndSub

PrivateSubstatistic(A()AsInteger.RightAsInteger)

DinLeftAsInteger,KAsInteger,IAsInteger

Right=［？］

Left=2

DoWhileLeft<=Right

*SPACE

K=[?]

ForI=KTo1Step-1

IfA(Left)=A(l)ThenExitFor

NextI

i****??***mu

-SPACE

If[?]Then

Left=Left+1

Else

A(Left)=A(Right)

"SPACE

[?J

EndIf

Loop

EndSub

F面程序的功能是隨機(jī)生成小于100的諸素?cái)?shù)組成的數(shù)據(jù)。程序界面如下圖所示

OptionExplicit

■生成素?cái)?shù)數(shù)組巨叵區(qū)

PrivateSubCommand1_Click()

Dinp()AsInteger.iAsInteger,nAsIn

teger

DinstAsString,kAsInteger

Randomize

k=1nputBox("元素個(gè)數(shù)；=20)

ReDimp(k)

n=lnt(Rnd*90)+10

(*********

1*SPACE

If[?]Then

i=i+1

P(i)=n

EndIf

1*SPACE

LoopUntil[?]

Fori=1ToUBound(p)

st=st&Str(p(i))

IfiMod10=0Thenst=st&vbCrLf

Nexti

Textl=st

EndSub

PrivateFunctionprime(nAsInteger)AsBooleanDimiAsInteger

P,ime=True

Fori=2ToSqr(n)

IfnModi-0Then

1*SPACE

ExitFor

EndIf

Nexti

End~unction

第4題

'用以下公式求f(x)的值。當(dāng)通項(xiàng)的絕對(duì)值小于10A-7時(shí)停止計(jì)算,x的值由鍵盤輸入。

/(x)二口〕兀1—azx2+ajx3十…

其中，ai=L=

n=3,435,

’程序界面和公式參考圖片妒示:

OptionExplicit

PrivateSubCommand1_Click()

DirrxAsSingle,fxAsSingle

DirraAsSingle,a1AsSingle,a2AsSin

gle

DirrtAsSingle

x=Textl

a2—2*?*?******

1*SPACE

If[?]Then

MsgBox("x必須在-1?1之間")

EfikitfSub

fx=a1*x-a2*x*x

t=(-1)*x*x

Do

a=1/(a1+a2)

t=(-1)*t*x

1-SPACE

僅=[

a1=a2'

)**********

1"SPACE

【？J

LoopUntilAbs(a*t)<0.0000001

Text2=僅

EndSub

第5題原有序數(shù)組?

'下面程序的功能是：首先生成一個(gè)由小到大已排好序

“PIT2131頁(yè)茴幣市91

的整數(shù)數(shù)組，再輸入一個(gè)數(shù)據(jù)，

‘單擊'插入"按鈕會(huì)自動(dòng)把這個(gè)數(shù)據(jù)插人到京數(shù)組適當(dāng)

的位置，并保持?jǐn)?shù)組的有序性。特插入數(shù)H平

'程序界面參見(jiàn)下圖。

那排序帖入匚

叵蘭

插入

OptionExplicit

Dima()AsInteger

PrivateSubForm_Activate()生成有序數(shù)組

DimiAsInteger

ReDima(10)

Fori=1To10a(i)=(i-1)*10+1

Text1=Text1&Str(a(i})

Nexti

Text2.SetFocus

EndSub

PrivateSubCommand1_Click()

DimnAsIntegerjAsIntegern=Text2

Fori=1ToUBound(a)

(**????****sPACE.m…

If[?]ThenExitFor確定插入的位置

Nexti

1-SPACE

【？1

Fori=1ToUBound(a)

Text3=Text3&Str(a(i))

Nexti

EndSub

PrivateSubinst(P()AsInteger,nAsInteger,kAsInteger)數(shù)組元素移位并實(shí)現(xiàn)插入

DimiAsInteger

1,SPACE

【？J

Fori=UBound(P)-1TokStep-1

1,SPACE

【？1

Nexti

P(k)=n

EndSub

第6題

'下面程序的功能是:將輸入的2位16進(jìn)制數(shù)的每一位轉(zhuǎn)換為一個(gè)4位的二進(jìn)制數(shù),

'再組合成為??個(gè)8位的二進(jìn)制數(shù)。程序界面參見(jiàn)下圖。

OptionExplicit

PrivateSubCommand1_Click()

DimhAsString,hiAsString*1,h2AsString*1

h=Text1

h1=Left(h,1):h2=Right(h,1)

Text2=h2b(h1)&h2b(h2)

EndSub

PrivateFunctionh2b(pAsString)AsString

DimstAsString,iAsInteger

st="0123456789ABCDEF

Fori=1ToLen(st)

............?SPACE””…

If[?]ThenExitFor

Nexti

i=i-1

Do

*****??**

,SPACE

h2b.[?]

i=i\2

LoopUntili<=0

再把數(shù)組中所有重究的元素刪除(只保留一個(gè))h2b=[?]

，并輸出到文本框20OptionExplicit

EndFunction

第7題

用以下公式(公式如下圖所示，求Sin(x)的值.當(dāng)級(jí)數(shù)通項(xiàng)的絕對(duì)值小與eps=10A-

7時(shí)停止

352nl

XXnX

sin(x)=x(-1),|x|::::,n=0,1,2,......

3!5(2n+1)!

計(jì)算,X的值山鍵盤輸入

請(qǐng)完善如下程序

OptionExplicit

PrivateSubForm_Click()

DmxAsDouble,!AsDouble,nAsInteger.sumAsDouble

Consteps=0.0000001

X=Val(InputBoxf請(qǐng)輸入x:"))

1'SPACE

[?]

sum=t

n=1

16PACE

DoUntil[?]

t=-t

1-SPACE

sum=sum+t

n=n+1

Loop

Print"Sin(";x;")=";Format(sum,"0.000")

EndSub

下面程序的功能是：在文本框】中輸入若干以空格分隔的整數(shù)（末尾無(wú)空格）

程序自動(dòng)將輸入的數(shù)據(jù)分解并存儲(chǔ)到?個(gè)?維數(shù)組，

OptionExplicit

OptionBase1

PrivateSubCommand1_Click()

Dima()AsInteger,iAsInteger,stAs

String

DimkAsInteger,pAsInteger

雷Text1

p=lnStr(st,"")

Ifp<>0Then

?tAAA★★★★★★★★**

,SPACE

ReDimPreservea(k)

a(k)=Val(Left(st,p-1))

st=Right(st,Len(st)-p)

★百ACF*，**m

【？]

a(k+1)=Val(st)

EndIf

1,SPACE

LoopUntil[?]

Calldel(a)

Fori=1ToUBound(a)

Text2=Text2&Str(a(i))

Nexti

Text2=LTrim(Text2)

EndSub

PrivateSubde