VB筆試章節(jié)練習(xí)試卷21

一、公共基礎(chǔ)選擇題(本題共io題，每題i.o分，共

10分。)

1、單擊一次命令按鈕之后，下列程序代碼的執(zhí)行結(jié)果為oPrivateSub

Command1_Click()a=fun(4)+fun(5)Printa;EndSubPublicFunctionfun(nAs

Integer)StaticNumFori=1TonNum=Num+iNextifun=NumEndFunction

A、15

B、20

C、35

D、40

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：暫無(wú)解析

2、下面過(guò)程定義語(yǔ)句可以使過(guò)程調(diào)用后不影響主調(diào)過(guò)程中的實(shí)際參數(shù)的是

A、SubCom(ByVaia,ByValB)

B、SubCom(a?ByValB)

C、SubCom(a,B)

D、SubCom(ByVaia,B)

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：暫無(wú)解析

3、單擊一次窗體之后，下列程序代碼的執(zhí)行結(jié)果為oPrivateSub

CommandI_Click()DimxAsInteger,yAsInteger,zAsIntegerx=1:y=2:z=3Call

funl(x,y,z)Printx;y;zCallfun2(x,y,z)Printx;y;zEndSubPrivateSubfunl(xAs

Integer,yAsInteger,zAsInteger)x=10*zy=z*z+xz=x+y+zEndSubPrivateSub

fun2(ByVaixAsInteger,ByVaiyAsInteger,ByVaizAsInteger)x=10*zy=z*z+x

z=x+y+zEndSub

A、123303972

B、123123

C、303972123

D、303972303972

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：暫無(wú)解析

4、單擊一次窗體之后，下列程序代碼的執(zhí)行結(jié)果為oPrivateSub

Command1_Click()DimaAsInteger,bAsInteger,cAsIntegera=1:h=2:c=4Print

Value(a,b,C)EndSubFunctionNum(xAsInteger,yAsInteger,zAsInteger)Num=x*

x+y*y+z*zEndFunctionFunctionValue(xAsInteger,yAsInteger,zAsInteger)

Value=Num(x,y,z)+2*xEndFunction

A、21

B、23

C、19

D、35

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：暫無(wú)解析

5、單擊一次命令按鈕之后，在對(duì)話框中輸入12,2,34,23,窗體中的輸出結(jié)果

為oPrivateSubCommandI_Click()Dima(4)AsIntegerFori=ITo4a(i)=

Vai(InputBox(“請(qǐng)輸入元素”))Nextiplusa(l),a(2),a(3)EndSubSubplus(firstAs

Integer,secondAsInteger,thirdAsInteger,Optionalforth)n=first+second+thirdIf

NotIsMissing(forth)Thenn=n+forthEndIfPrintnEndSub

A、14

B、71

C、48

D、37

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：暫無(wú)解析

6、單擊一次命令按鈕之后，在對(duì)話框中輸入10,20,30,40,窗體中的輸出結(jié)果

為oPrivateSubCommand1_Click()Dima(4)AsIntegerFori=1To4a(i)=

InputBox("請(qǐng)輸入:")NextiCallsubper(A.Fori=1To4Printa(i)NextiEndSub

Subsubper(b()AsInteger)Fori=iTo4b(i)=2*iNextiEndSub

A、10203040

B、1234

C、2468

D、5101520

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：暫無(wú)解析

7、單擊一次命令按鈕之后，在對(duì)話框中輸入12,21,30,3,窗體中的輸出結(jié)果

為oPrivateSubCommand1_Click()Fori=1To4s=InputBox("請(qǐng)輸入”)

Callpcr(i,s)NextiPrintsEndSubSubpcr(a,ByValB)h=1Fori=1To3a=a*i

NextiEndSub

A、1221303

B、2442606

C、3302112

D、只能輸入一個(gè)數(shù)

標(biāo)準(zhǔn)答案：D

知識(shí)點(diǎn)解析：暫無(wú)解析

8、單擊一次命令按鈕之后，窗體中的輸出結(jié)果為。PrivateSubCommand1_

Click()DimaAsInteger,bAsIntegerFori=ITo6a=i*i+iNextiCall

writein(a,B)Prinia,bEndSubSubwrilein(a,ByValB)b=1Fori=1To6a=b*4b=b+

1NextiEndSub

A、246

B、240

C、126

D、120

標(biāo)準(zhǔn)答案：B

知識(shí)點(diǎn)解析：暫無(wú)解析

9、下列Sub過(guò)程中描述錯(cuò)誤的是

A、Sub過(guò)程只能在窗體模塊中定義

B、Gol。語(yǔ)句不能用于Sub過(guò)程

C、Sub過(guò)程只能在窗體模塊中定義

D、Sub過(guò)程中不能嵌套定義Sub過(guò)程

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：暫無(wú)解析

10、單擊一次命令按鈕之后，窗體中的輸出結(jié)果為°PrivateSub

CommandI_Click()DimaAsSingleDimbAsSinglea=10b=20CallNum(a,B)Print

a,bEndSubSubNum(a.B)t=aa=b/tb=tEndSub

A、2010

B、1020

C、210

D、1010

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：暫無(wú)解析

二、選擇題(本題共3題，每題7.0分，共3分。)

11、以下敘述中錯(cuò)誤的是O

A、在程序運(yùn)行時(shí)，通用對(duì)話框控件是不可見的

B、在同一個(gè)程序中，用不司的方法(如ShowOpen或ShowSave等)激活同一個(gè)通用

對(duì)話框，可以使該通用對(duì)話框具有不同的作用

C、調(diào)用通用對(duì)話框的ShowOpen方法，能夠直接打開在該通用對(duì)話框中指定的文

件

D、調(diào)用對(duì)話框的ShowColor方法，可以打開顏色對(duì)話框

標(biāo)準(zhǔn)答案：C

知識(shí)點(diǎn)解析：暫無(wú)解析

12、在窗體上畫一個(gè)名為CommonDialogl的通用對(duì)話框，一個(gè)名稱為Commandl

的命令按鈕。要求單擊命令按鈕時(shí)，打開一個(gè)保存文件的通用對(duì)話框窗口。該窗口

的標(biāo)題為“Save”，默認(rèn)文件名為“SaveFile”,在“文件類型”欄中顯示“*.txt"。能夠滿

足上述要求的程序是。

A、PrivateSubCommand1_Click()CommonDialog1.FilcName="SaveFile"

CommonDialogl.Filter="AllFilesI*.*I*.txt*.txtI*.docI*.doc"

CommonDialogl.Filterindex=2CommonDialogl.DialogTitle="Save"

CommonDialogl.Action=2EndSub

B、PrivateSubCommandl_Click()CommonDialogl.FileNarne="SaveFile"

CommonDialogl.Filter="AllFilesI*.*I*.txtI*.txtI*.docI*.doc"

CommonDialogl.Filtcrlndcx=1CommonDialog1.DialogTitle="Save"

CommonDialogl.Action=2EndSub

C、PrivateSubCommandl_Click()CommonDialogl.FileNarne="Save"

CommonDialogl.Filter="AllFilesI%*I*.txtI*.txtI*.docI*.doc"

CommonDialogl.Fillerindex=2CommonDialogl.DialogTitle="Save"

CommonDialogl.Action=2EndSub

D^PrivateSubCommandl_Click()CommonDialogl.FileNarne="SaveFile0

CommonDialogl.Filter="AllFilesI*.*I*.txtI*.txtI*.docI*.doc"

CommonDialog1.Filterindex=1CommonDialogl.DialogTitle="Save".

CommonDialog1.Action=1EndSub

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：暫無(wú)解析

13、在窗體上畫一個(gè)通用對(duì)話框，其名稱為CommonDialogl,則下列與

CommonDialogl.ShowOpen方法等效的語(yǔ)句是。

A^CommonDialogI.Action=1

B、CommonDialog1.Action=2

C、CommonDialog1.Action=3

D、CommonDialogI.Action=4

標(biāo)準(zhǔn)答案：A

知識(shí)點(diǎn)解析：暫無(wú)解析

三、公共基礎(chǔ)填空題(本題共6題，每題1?0分，共6

分。)

14、若界面上沒(méi)有調(diào)試工具欄，可通過(guò)選中“視圖“菜單中【】中的“調(diào)試”子菜單

把它顯示出來(lái)。

標(biāo)準(zhǔn)答案：工具欄

知識(shí)點(diǎn)解析：暫無(wú)解析

15、要運(yùn)行VB的程序，可以按【】鍵。

標(biāo)準(zhǔn)答案：<