2024年-VB考試題庫(kù)二級(jí)習(xí)題(含答案)

VB考試一

i、能夠獲得一個(gè)文本框中被選取文本的內(nèi)容的屬性是_____。

A：SelStartB：SeiLengthC：SelTextD：Text

參考答案：C

2、在窗體上畫一個(gè)文本框，其名稱為Textl,為了在程序運(yùn)行后隱藏該文本框，應(yīng)當(dāng)使川

的語(yǔ)句為：。

A：Text1.Enabled=FalseB：Text1.Hide

C：Textl.ClearD：Textl.Visible=False

參考答案：D

3、對(duì)于語(yǔ)句Ifx=lTheny=l,下列說(shuō)法正確的是—。

A：x=l和y=l均為賦值語(yǔ)句

B：x=l和y=l均為關(guān)系表達(dá)式

C：x=l為賦值語(yǔ)句，尸1為關(guān)系表達(dá)式

D：x=l為關(guān)系表達(dá)式，y=l為賦值語(yǔ)句

參考答案：D

4、以下變量名中，_____是不符合VisualBasic的命名規(guī)范的。

A：_mnu_0pen_234B：Abc901C：price_D：K

參考答案：A

5、MsgBox函數(shù)返回值的類型是o

A：數(shù)值或字符串B：字符串C：變體D：整型數(shù)值

參考答案：D

6、VB一共有設(shè)計(jì)、運(yùn)行和中斷三種模式，要使用調(diào)試工具應(yīng)該。

A：進(jìn)入中斷模式B：進(jìn)入運(yùn)行模式

C：進(jìn)入設(shè)計(jì)模式D：不用進(jìn)入任何模式

參考答案：A

7、設(shè)a=6,則執(zhí)行

x=IIF(a>5,-l,0)后，x的值為______。

A：-1B：6C：0D：5

參考答案：A

8、可以同時(shí)刪除字符前導(dǎo)和尾部空白的函數(shù)是______o

A：MidB：RtrimC：TrimD：Ltrim

參考答案：C

9、以下語(yǔ)句的輸出結(jié)果是。

PrintFormats("32548.5","000,000.00")

A：32,548.5B：32548.5C：032,548.50D：32,548.50

參考答案：C

10、設(shè)有如下聲明：

DimXAsInteger

如果Sgn(X)的值為T,則X的值是。

A：等于0的整數(shù)B：大于0的整數(shù)C：整數(shù)D：小于0的整數(shù)

參考答案：D

11、在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：

PrivateSubCommand1_C1ick()

Fori=1To4

x=4

Forj=1To3

x=3

Fork=1To2

x=x+6

Nextk

Nextj

Nexti

Printx

EndSub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是。

參考答案：15#15#15#15

12、執(zhí)行下面的程序段后，S的值為o

s=5

Fori=2.6To4.9Step0.6

s=s+l

Nexti

參考答案：9

13、下列表達(dá)式有錯(cuò)誤，正確的寫法應(yīng)該是。

[(a+b)+c]/80-54-(d+e)

參考答案：(a+b+c)/80-5/(d+e)#(a+b+c)/80-5/(d+e)

14、表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為

參考答案：xMod5=0OrxMod9=()#xMod9=0OrxMod5=0

15、以下程序的功能是:從鍵盤上輸入若干個(gè)數(shù)字，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，統(tǒng)計(jì)出若干數(shù)

字的平均值，輸出結(jié)果。請(qǐng)?zhí)羁铡?/p>

PrivateSubFormclickO

Dimx,yAsSingle

DimzAsInteger

x=InputBox(''Enterascore")

Dowhilex>=0

y=y+x

z=z+1

x=InputBox("Enterascore")

Loop

Ifz=0Then

z=1

EndIf

y=______

Printy

EndSub

參考答案：y/z

VB考試二

1、列表框中的列表項(xiàng)的數(shù)目可以通過(guò)以下哪個(gè)屬性的值獲得。

A：ListindexB：ListCountC：CountD：Index

參考答案：B

2、在窗體上畫一個(gè)名稱為L(zhǎng)istl的列表框，一個(gè)名稱為L(zhǎng)abell的標(biāo)簽。列表框中顯示若干

城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱。下列能正確

實(shí)現(xiàn)上述功能的程序是_____o

A：PrivateSubListl_Click()

Labell.Caption=Listl.Text

EndSub

B：PrivateSubListl_Click()

Labell.Name=Listl.Listindex

EndSub

C：PrivateSubList!ClickO

Labe11.Name=Listl.Text

EndSub

D：PrivateSubListl_Click()

Labell.Caption=Listl.Listindex

EndSub

參考答案：A

3、在列表框中當(dāng)前被選中的列表項(xiàng)的序號(hào)是由下列哪個(gè)屬性表示o

A：ListindexB：IndexC：ListD：Tabindex

參考答案：A

4、為了清除列表框中的所有內(nèi)容，應(yīng)使用的方法是：。

A：ClearB：RemoveC：RemoveitemD：Cis

參考答案：A

5、在窗體上畫一個(gè)名稱為L(zhǎng)istI的列表框，為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn)行處理，應(yīng)

使用的循環(huán)語(yǔ)句為9

A：Fori=lToListl.ListCount

NEXT

B：Fori=0ToListl.Count-1

NEXT

C：Fori=0ToListl.ListCount-1

??????

NEXT

I)：Fori=IToListl.Count

NEXT

參考答案：C

6、設(shè)有如下程序：

OptionBase0

PrivateSubFormClick()

Dima

DimiAsInteger

a=Array(1,2,3,4,5,6,7,8,9)

Fori=0To3

Printa(5-i);

Next

EnclSub

程序運(yùn)行后，單擊窗體，則在窗體上顯示的是。

A：6543B：5432C：4321D：7654

參考答案：A

7、設(shè)執(zhí)行以下程序段時(shí)依次輸入1、3、5,執(zhí)行結(jié)果為。

Dima(4)AsInteger,b(4)AsInteger

ForK=0To2

a(K+1)=Vai(InputBox("請(qǐng)輸入數(shù)據(jù)”))

b(3-K)=a(K+1)

NextK

Printb(K)

A：0B：3C：5D：1

參考答案：D

8、在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

PrivateSubCommand1Click()

DimiAsInteger,jAsInteger

Dima(10,10)AsInteger

Fori=lTo3

Forj=lTo3

a(i,j)=(i-l)*3+j

Printa(i,j);

Nextj

Print

Nexti

EndSub

程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是o

A：123

456

789

B：234

345

456

C：147

258

369

1)：123

246

369

參考答案：A

9、用下面的語(yǔ)句所定義的數(shù)組的元素個(gè)數(shù)是：o

Dimarr(3To5,-2to2)

A：24B：12C：15D：20

參考答案：C

10、下列語(yǔ)句可以為動(dòng)態(tài)數(shù)組分配實(shí)際元素個(gè)數(shù)。

A：static語(yǔ)句B：Dim語(yǔ)句C：public語(yǔ)句D：ReDim語(yǔ)句

參考答案：D

11、假定程序中有以下語(yǔ)句：

answer=MsgBox("String1"，，"String2","String3”,2)

執(zhí)行該語(yǔ)句后，將顯示一個(gè)信息框，此時(shí)如果單擊〃確定”按鈕，則answer的值為:

A：String3B：String2C：StringlD：1

參考答案：D

12、設(shè)有語(yǔ)句

、=1呼仇8。乂("輸入數(shù)值“，"0〃，"示例")

程序運(yùn)行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是_____

A：0是默認(rèn)值

B：變量X的值是字符串〃10〃

C：在InputBox對(duì)話框標(biāo)題欄中顯示的是“示例"

D：變量X的值是數(shù)值10

參考答案：B

13、以下程序段運(yùn)行的結(jié)果是：o

Dima(-lTo5)AsBoolean

DimflagAsBoolean

flag=False

DimiAsInteger

DimjAsInteger

DoUntilflag=True

Fori=-1To5

J=J+1

Ifa(i)=FalseThen

a(i)=True

ExitFor

EndIf

Ifi=5Then

flag=True

EndIf

Next

Loop

Printj

A：20B：7C：8I)：35

參考答案：D

14、設(shè)a=5,b=6,c=7,c=8,則執(zhí)行下列語(yǔ)句后，x的值為：______。

x=IIF((a>b)And(c<d).10,20)

A：300B：20C：30D：10

參考答案：B

15、要將?個(gè)組合框設(shè)置為簡(jiǎn)單組合框(SimpleCombo),則應(yīng)將其Style屬性設(shè)置為

A：0B：1C：3I)：2

參考答案：B

VB考試三

1、設(shè)組合框Combol中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是—

A：Combol.RemoveltemCombol.Listcount

B：Combol.Removeltem2

C：Combol.Removeltem3

D：Combol.RemoveltemText

參考答案：B題分：6

2、在窗體上畫一個(gè)命令按鈕，其名稱為Commands然后編寫如下程序:

FunctionFunc(ByVaixAsInteger,yAsInteger)

y=x*y

Ify>0Then

Func=K

Else

Func=y

EndIf

EndFunction

PrivateSubCommand1Click()

DimaAsInteger,bAsInteger

a=3

b=4

c=Func(a,b)

Print"a=〃；a

Print"b="；b

Print〃c=";c

EndSub

程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為：______0

A：a=3

b二4

c=12

B：a=13

b=12

c=12

C：a=3

b=4

c=3

D：a=3

b=12

c=3

參考答案：I)題分：6

3、單擊命令按鈕時(shí)，下列程序代碼的執(zhí)行結(jié)果為。

PublicSubProcl(nAsInteger,ByVaimAsInteger)

n=nMod10

m=m/10

EndSub

PrivateSubCommandl_Click()

DimxAsInteger,yAsInteger

x=12:y=34

CallProcl(x,y)

Printx;y

EnclSub

A：123B：23C：1234I)：234

參考答案：D題分：6

4、以下關(guān)于函數(shù)過(guò)程的敘述中，正確的是______o

A：在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)

B：函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒(méi)有關(guān)系

C：當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞

I)：如果不指明函數(shù)過(guò)程參數(shù)的類型，則該參數(shù)沒(méi)有數(shù)據(jù)類型

參考答案：B題分：6

5、以下說(shuō)法錯(cuò)誤的是。

A：函數(shù)過(guò)程可以帶參數(shù)B：子過(guò)程沒(méi)有返回值

C：函數(shù)過(guò)程沒(méi)有返回值D：子過(guò)程可以帶參數(shù)

參考答案：C題分：6

6、在窗體上畫一個(gè)命令按鈕(名稱為Commandl),然后編寫如下事件過(guò)程：

PrivateSubCommand1_Click()

DimbAsInteger

b=b+1

EnclSub

運(yùn)行程序，三次單擊命令按鈕后，變量b的值是：。

A：2B：1C：0D：3

參考答案：B題分：6

7、假定有以下函數(shù)過(guò)程：

FunctionFun(SAsString)AsString

DimsiAsString

Fori=1ToLen(S)

sl=UCase(Mid(S,i,l))+sl

Nexti

Fun=si

EndFunction

在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：

PrivateSubCommandlClickO

DimStrlAsString,Str2AsString

Strl=InputBox("請(qǐng)輸入一個(gè)字符串“)

Str2=Fun(Strl)

PrintStr2

EndSub

程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串〃abcdefg〃則單擊“確定"按鈕

后在窗體上的輸出結(jié)果為。

A：GFEDCBA

B：ABCEDFG

C：gfedcba

D：abcdefg

參考答案：A題分：6

8、Sub過(guò)程與Function過(guò)程最根本的區(qū)別是。

A：兩種過(guò)程參數(shù)的傳遞方式不同

B：Function過(guò)程可以有參數(shù)，Sub過(guò)程不可以

C：Sub過(guò)程可以使用Call語(yǔ)句或直接使用過(guò)程名調(diào)用，而Rinclion過(guò)程不可以

D：Sub過(guò)程的過(guò)程名不能返回值，而Function過(guò)程能通過(guò)過(guò)程名返回值

參考答案：D題分：6

9、在代碼中定義了一個(gè)子過(guò)程：

SubP(a,b)

EndSub

下面調(diào)用該過(guò)程的格式是正確的。

A：CallP

B：CallP10,20

C：P(10,20)

D：CallP(10,20)

參考答案：D題分：6

10、在窗體上畫一個(gè)名稱為Conmiandl的命令按鈕，然后編寫如下程序：

PrivateSubCommand1Click()

StaticXAsInteger

StaticYAsInteger

Cis

Y=1

Y=Y+5

X=5+X

PrintX,Y

EndSub

程序運(yùn)行時(shí)，三次單擊命令按鈕Comniandl后，窗體上顯示的結(jié)果為。

A：1515

B：156

C：1516

D：56

參考答案：B題分：6

11、設(shè)有以下循環(huán)結(jié)構(gòu)

Do

循環(huán)體

LoopWhile〈條件)

則以下敘述中錯(cuò)誤的是。

A：循環(huán)體中可以使用ExitDo語(yǔ)句

B：〃條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)

C：若〃條件”是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體

D：如果〃條件〃總是為True,則不停地執(zhí)行循環(huán)體

參考答案：C題分：6

12、在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下通用過(guò)程和命令按鈕的事

件過(guò)程；

PrivateFunctionfun(ByVaimAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIf

EndFunction

PrivateSubCommandlClick()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+fund)

Next

Prints

EndSub

程序運(yùn)行后，單擊命令按鈕，在窗體上顯示是。

A：7B：6C：8D：9

參考答案：A題分：6

VB考試四

1、某人編寫了如下程序，用來(lái)求10個(gè)整數(shù)(整數(shù)從鍵盤輸入)中的最大值：

PrivateSubCommandlClick()

Dima(10)AsInteger,maxAsInteger

Fork=lTo10

a(k)=InputBox("輸入一個(gè)整數(shù)“)

Nextk

max=O

Fork=lTo10

Ifa(k)>maxThen

max=a(k)

EndIf

Nextk

Printmax

EnclSub

運(yùn)行程序時(shí)發(fā)現(xiàn)，當(dāng)輸入10個(gè)正數(shù)時(shí)，可以得到正確結(jié)果，但輸入10個(gè)負(fù)數(shù)時(shí)結(jié)果是錯(cuò)誤

的，程序需要修改。下面的修改中可以得到正確運(yùn)行結(jié)果的是。

A：把max=a(k)改為a(k)=max

B：把Ifa(k)>maxThen改為Ifa(k)<maxThen

C：把第2個(gè)循環(huán)語(yǔ)句Fork=lTo10改為Fork=2To10

D：把max=0改為max=a(10)

參考答案：D

2、設(shè)有語(yǔ)句：Open"d:\Test.txt"ForOutputAs#1,以下敘述中錯(cuò)誤的是。

A：執(zhí)行該語(yǔ)句后，就可以通過(guò)Print#語(yǔ)句向文件Test,txt中寫入信息

B：用該語(yǔ)句建立的文件的文件號(hào)為1

C：該語(yǔ)句打開d盤根目錄下一個(gè)已存在的文件Test.txt,之后就可以從文件中讀取信

息

D：若d盤根目錄下無(wú)Test.txt文件，則該語(yǔ)句創(chuàng)建此文件

參考答案：C

3、工程中有2個(gè)窗體，名稱分別為Forml、Form2,Forrnl為啟動(dòng)窗體，該窗體上有命令按

鈕CommandU要求程序運(yùn)行后單擊該命令按鈕時(shí)顯示Form2,則按鈕Click事件過(guò)程應(yīng)該是

O

A：PrivateSubCommand1_C1ick()

Form2.Load

EndSub

B：PrivateSubCommand1Click()

Form2.Visible

EndSub

C：PrivateSubCommand1_C1ick()

LoadForm2

EndSub

D：PrivateSubCommand1_C1ick()

Form2.Show

EndSub

參考答案：D

4、在窗體上畫一個(gè)名為Conwmdl的命令按鈕，然后編寫如下代碼:

OptionBase1

PrivateSubCommandlClickO

Dima

a=Array(1,2,3,4)

J=1

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EnclSub

運(yùn)行上面的程序，其輸出結(jié)果是。

A：12

B：1234

C：34

D：4321

參考答案：B

5、設(shè)在窗體中有一個(gè)名稱為L(zhǎng)istl的列表框，其中有若干個(gè)項(xiàng)目(如圖)。要求選中某一項(xiàng)

后單擊Command1按鈕，就刪除選中的項(xiàng)，則正確的事件過(guò)程是。

A：PrivateSubCommand1_C1ick()

Listl.ClearListl.Listindex

EndSub

B：PrivateSubCommand1_C1ick()

Listl.Clear

EndSub

C：PrivateSubCommand1_C1ick()

Listl.RomoveltomListl.Listindex

EndSub

D：PrivateSubCommand1Click()

Listl.RemoveItem

EndSub

參考答案：C

6、窗體上有一個(gè)名稱為Frame1的框架(如圖)，若要壬框架上顯示的“Framol"改為漢字"

框架〃，下面正確的語(yǔ)句是O

A：Frame1.Caption="框架"

B：FrameLName="框架"

C：FrameLText："框架”

D：Frame1.Va1ue="框架"

參考答案：A

7、設(shè)窗體上有一個(gè)圖片框Picturel,要在程序運(yùn)行期間裝入當(dāng)前文件夾下的圖形文件

Filel.jpg,能實(shí)現(xiàn)此功能的語(yǔ)句是______o

A：Cal1LoadPictureCFilel.jpg")

B：Picturel.Picture二LoadPicture("Filel.jpg")

C：LoadPictureCFihl.jpg")

D：Picture】.Picture="Filel.jpg”

參考答案：B

8、在窗體上畫一個(gè)名稱為Time門的計(jì)時(shí)器控件，要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件，則

以下正確的屬性設(shè)置語(yǔ)句是_____O

A：Timerl.Interval=50

B：Timerl.Interval=5

C：Timerl.Interval=D.5

D：Timerl.lnterval=500

參考答案；D

9、在窗體上畫一個(gè)通用對(duì)話框，其名稱為CommonDialogl,然后畫一個(gè)命令按鈕，并編寫

如下事件過(guò)程：

PrivateSubCommandlClick()

CommonDialogl.Filter=*AllFiles(*.*)|*.*TextFiles"&_

”(丸txt)|*.txt|Executable

Files(*.exe)I*.exe”

CommonDialogl.Filterlndex=3

CommonDialogl.ShowOpcn

MsgBoxCommonDialogl.FileName

EndSub

程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開"對(duì)話框，此時(shí)在〃文件類型〃框中顯示的是

A：TextFiles(*.txt)

B：AllFiles(*.*)

C：ExecutableFiles(*.exe)

D：不確定

參考答案：C

10、在窗體上畫一個(gè)名稱為Commandl命令按鈕，然后編寫如下事件過(guò)程:

PrivateSubCommand1_C1ick()

c="ABCD〃

Forn=1To4

Print.

Next

EndSub

程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容

D

CD

BCD

ABCI)

則在______處填入的內(nèi)容為。

A：Left(c,n)B：Right(c,n)C：Mid(c,n,n)D：Mid(c,n,1)

參考答案：B

11、在窗體上畫一個(gè)名稱為L(zhǎng)abelU標(biāo)題為"VisualBasic考試〃的標(biāo)簽，兩個(gè)名稱分別為

Command1和Command2、標(biāo)題分別為"開始"和"停止"的命令按鈕，然后畫一個(gè)名稱為Timerl

的計(jì)時(shí)器控件，并把其Interval屬性設(shè)置為500,如圖所示。

編寫如下程序：

PrivateSubFormLoad(>

Timerl.Enabled=FaIse

EndSub

PrivateSubCommand1_C1ick()

Timerl.Enabled=True

EndSub

PrivateSubCommand2Click()

Timerl.Enabled=False

EndSub

PrivateSubTimerITimerO

IfLabell.Left<VidthThen

Label1.Left=Label1.Left+20

Else

Label1.Left=0

EndIf

EndSub

程序運(yùn)行后，單擊〃開始〃按鈕，標(biāo)簽在窗體中移動(dòng)。

對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是_____o

A：?jiǎn)螕?停止"按鈕后再單擊"開始"按鈕，標(biāo)簽從停止的位置繼續(xù)移動(dòng)

B：標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃?/p>

C：當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另?端出現(xiàn)并重新移動(dòng)

D：標(biāo)簽按指定的時(shí)間時(shí)隔移動(dòng)

參考答案：B

12、執(zhí)行下列語(yǔ)句

strInput=InpulBox(“請(qǐng)輸入字符串〃，”字符串對(duì)話框〃，”字符串〃)

將顯示輸入對(duì)話框。此時(shí)如果直接單擊"確定"按鈕，則變量strinput的內(nèi)容是______。

A：”請(qǐng)輸入字符串"B：空字符串C：〃字符串"D："字符串對(duì)話框”

參考答案：C

13、假定在圖片框Picturel中裝入了一個(gè)圖形，為了清除該圖形(不刪除圖片框),應(yīng)采用

的正確方法是

A：執(zhí)行語(yǔ)句Picturel.Picture="”

B：執(zhí)行語(yǔ)句Picturel.Picture=LoadPicture(〃”)

C：選擇圖片框，然后按Del鍵

1)：選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按I可車鍵

參考答案：B

14、在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，名稱分別為Commandl和Textl,然后編寫如

下程序：

PrivateSubCommand1_C1ick()

a=InputBox(”請(qǐng)輸入日期(1?31)”)

t="旅游景點(diǎn)：〃.

&Ilf(a>0Anda<=10,〃長(zhǎng)城

&Ilf(a>10Anda<=20,"故宮_

&Ilf(a>20Anda<=31,"頤和園

Textl.Text=t

EndSub

程序運(yùn)行后，如果從鍵盤上輸入16,則在文本框顯示的內(nèi)容是o

A：旅游景點(diǎn)：長(zhǎng)城頤和園B；旅游景點(diǎn)：長(zhǎng)城故宮

C：旅游景點(diǎn)：頤和園D：旅游景點(diǎn)：故宮

參考答案：D

15、若變量a未事先定義而直接使用(例如：a=0),則變量a的類型是。

A：VariantB：StringC：BooleanD：Integer

參考答案：A

16、有如下程序::

PrivateSubPorm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod200AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

程序運(yùn)行后，單擊窗體，輸出結(jié)果為o

A：30B：12C：24D：18

參考答案：B

17、以下能從字符串"VisualBasic”中直接取出子字符庠"Basic〃的函數(shù)是。

A：String

B：Mid

C：Left

1）：Instr

參考答案：B

18、設(shè)窗體上有一個(gè)列表?yè)?jù)控件Listl,含有若干列表項(xiàng)。以下能表示當(dāng)前被選中的列表項(xiàng)

內(nèi)容的是______o

A：Listl.Listindex

B：Listl.List

C：Listl.Text

1)：Listl.Index

參考答案：C

19、設(shè)a=5,b=10,則執(zhí)行c=Int((b-a)*Rnd+a)+1后，c值的范圍為。

A：6~10

B：6~9

C；5~10

D：5~9

參考答案：A

20、在窗體上有1個(gè)名為Cdl的通用對(duì)話框，為了在運(yùn)行程序時(shí)打開保存文件對(duì)話框，則在

程序中應(yīng)使用的語(yǔ)句是。

A：Cdl.Action=2

B：Cdl.ShowSave=True

C：Cdl.Action=l

D：Cd1.ShowSave=0

參考答案：A

21、下面可以正確定義2個(gè)整型變量和1個(gè)字符串變量的語(yǔ)句是o

A：DimaAsInteger：b,cAsString

B：Dima%,b$,cAsString

C：Dimn,mAsInteger,sAsString

D：Dimx%?yAsInteger,zAsString

參考答案：D

22、在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Commandl和Textl,把文本框

的Text屬性設(shè)置為空白，然后編寫如下事件過(guò)程：

PrivateSubCommand1Click()

a=InputBox("Enteraninteger")

b=InputBox("Enteraninteger")

Textl.Text=b+a

EndSub

程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入8和10,則文本框中顯示的內(nèi)

容是。

A：出錯(cuò)

B：18

C：810

D：108

參考答案：D

23^在窗體1：畫一個(gè)名稱為CommonDialogl的通用對(duì)話框，一個(gè)名稱為Command1的命令按

鈕。然后編寫如下事件過(guò)程：

PrivateSubCommand1_Click()

CommonDialogl.FileName

CommonDialogl.Filter=，，Al1file*.*(*.Doc)*.DocI(*.Txt)*.Txt”

CommonDialogl.Filterlndex=2

Common!)ia1og1.DialogTitle="VBTe$t”

CommonDialogl.Action=l

EndSub

對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是______o

A：在該對(duì)話框中指定的默認(rèn)文件類型為文本文件(*.Txt)

B：在該對(duì)話框中指定為默認(rèn)文件名為空

C：該對(duì)話框的標(biāo)題為VBTest

D：該對(duì)話框被設(shè)置為"打開〃對(duì)話框

參考答案：A

24、設(shè)在窗體Forml上有一個(gè)列表框Listl,其中有若干個(gè)項(xiàng)目。要求單擊列表框中某一項(xiàng)

時(shí)，把該項(xiàng)顯示在窗體上，正確的事件過(guò)程是。

A：PrivateSubListl_Click()

PrintForml.Text

EndSub

B：PrivateSubFormlClickO

PrintListl.Text

EndSub

C：PrivateSubListl_Click()

PrintListl.Text

EndSub

I)：PrivateSubForml_C1ick()

Listl.PrintListl.Text

EndSub

參考答案：C

25、在窗體上從左到右有Text1、Text2兩個(gè)文本框(見圖)，要求運(yùn)行程序時(shí)在Text1中輸

入1個(gè)分?jǐn)?shù)后按回車鍵，則判斷分?jǐn)?shù)的合法性，若分?jǐn)?shù)為()?100中的1個(gè)數(shù)，則光標(biāo)移到

Text2+：否則光標(biāo)不動(dòng)，并彈出對(duì)話框“分?jǐn)?shù)錯(cuò)〃。下面程序中正確的是_____。

A：PrivateSubTextl.KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then'回車符的ASCII碼是13

a=Val(Textl)

Ifa<0Anda>100Then

Text2.SetFocus

Else

Textl.SetFocus:MsgBox("分?jǐn)?shù)錯(cuò)”)

EndIf

EndIf

EndSub

B：PrivateSubTextlKeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then'回車符的ASCII碼是13

a=Val(Textl)

Ifa>=0Oi-a<=100Then

Text2.SetFocus

Else

Textl.SetFocus:MsgBox("分?jǐn)?shù)錯(cuò)”)

EndIf

EndIf

EndSub

C：PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then'回車符的ASCII碼是13

a=Val(Textl)

Ifa>=0Anda<=100Then

Text2.SetFocus

Else

Textl.SetFocus:MsgBox("分?jǐn)?shù)錯(cuò)”)

EndIf

EndIf

EndSub

D：PrivateSubTextlKeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then'回車符的ASCII碼是13

a=Val(Textl)

Ifa>=0Anda<=100Then

Textl.SetFocus

Else

Text2.SetFocus:MsgBox("分?jǐn)?shù)錯(cuò)”)

EndIf

EndIf

EndSub

參考答案：C

26、假定通用對(duì)話框的名稱為CommonDialogl,命令按鈕的名稱為Command1,則單擊命令

按鈕后，能使打開的對(duì)話框的標(biāo)題為“NewTitle”的事件過(guò)程是。

A：PrivateSubCommandl_Click()

CommonDialogl.DialogTitle="NewTitle”

Common!)ia1og1.ShowPrinter

EndSub

B：PrivateSubCommand1Click()

CommonDialogl.DialogTitle="NewTitle”

CommonDialogl.ShowColor

EndSub

C：PrivateSubCommand1_C1ick()

CommonDialogl.DialogTitle="NewTitle”

CommonDialogl.ShowOpen

EndSub

D：PrivateSubCommand1_C1ick()

CommonDialogl.DialogTitle="NowTitle”

CommonDialogl.ShowFont

EndSub

參考答案：C

27、在窗體上畫一個(gè)通用對(duì)話框，程序運(yùn)行后，通過(guò)ShowOpen方法顯示"打開〃對(duì)話框，要

求在該對(duì)話框的“文件類型”欄中只顯示擴(kuò)展名為DOC的文件，則對(duì)通用對(duì)話框的Filter屬

性的正確設(shè)置是：______，

A：”(丸DOC)*.DOC"B："(*.DOC)|(.DOC)"C："(*.DOC)|*.DOC"D：

”(*.DOC)||*.DOC”

參考答案：C

28、以下說(shuō)法中正確的是______。

A：只有當(dāng)某個(gè)窗體為當(dāng)前活動(dòng)窗體時(shí)，才能打開菜單編輯器

B：任何時(shí)候都可以通過(guò)執(zhí)行〃工具〃菜單中的〃菜單編輯器〃命令打開菜單編輯器

C：任何時(shí)候都可以通過(guò)單擊標(biāo)準(zhǔn)工具欄上的〃菜單編輯器〃按鈕打開菜單編輯器

D：只有當(dāng)代碼窗口為當(dāng)前活動(dòng)窗口時(shí)，才能打開菜單編輯器

參考答案：A

29、為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把計(jì)時(shí)器的某

個(gè)屬性設(shè)置為False,這個(gè)屬性是。

A：TimerB：VisbleC：EnabledD：Interval

參考答案：C

30、某人在窗體上畫了一個(gè)名稱為Timerl的計(jì)時(shí)器和一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，計(jì)時(shí)器的

屬性設(shè)置為Enabled二True,Interval9,并編程如下。希望在程序運(yùn)行時(shí),可以每2秒在

標(biāo)簽上顯示一次系統(tǒng)當(dāng)前時(shí)間。

PrivateSubTimerl_Timer()

Label1.Caption=Time$

EndSub

在程序執(zhí)行時(shí)發(fā)現(xiàn)未能實(shí)現(xiàn)上述目的，那么，他應(yīng)做的修改是o

A：通過(guò)屬性窗口把計(jì)時(shí)器的Enabled屬性設(shè)置為False

B：把事件過(guò)程中的l.abel1.Caplion=丁山峻語(yǔ)句改為L(zhǎng)abel1.Caption=Timerl.Time

C：通過(guò)屬性窗口把計(jì)時(shí)器的Interval屬性設(shè)置為2000

I)：把事件過(guò)程中的Label1.Caplion:一》好$語(yǔ)句改為Timer1.Interval=Time$

參考答案：C

31、若設(shè)置了文本框的屬性PasswordChar="$〃，則運(yùn)行程序時(shí)向文本框中輸入8個(gè)任意字

符后，文本框中顯示的是o

A：無(wú)任何內(nèi)容B：1個(gè)〃$〃C：8個(gè)〃*〃I)：8個(gè)飛〃

參考答案：D

32、在窗體上有如下圖所示的控件，各控件的名稱與其標(biāo)題相同，并有如下程序：

PrivateSubFormLoad()

Command2.Enabled=False

Check1.Value=1

EndSub

剛運(yùn)行程序時(shí)，看到的窗體外觀是_____O

A：

B：

C：

D：

參考答案：D

33、要使兩個(gè)單選按鈕屬于同一個(gè)框架，正確的操作是o

A：先畫一個(gè)框架，再在框架外畫兩個(gè)單選按鈕，然后把單選按鈕拖到框架中

B：其他選項(xiàng)方法都正確

C：先畫一個(gè)框架，再在框架中畫兩個(gè)單選按鈕

D：先畫兩個(gè)單選按鈕，再畫框架將單選按鈕框起來(lái)

參考答案：C

34、在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為L(zhǎng)istl和Command1,然后編寫

如下事件過(guò)程

PrivateSubFormLoad(>

Listl.Additem"Iteml”

Listl.Additem〃Item2”

Listl.Addltom

EndSub

PrivateSubCommandlClickO

Listl.List(Listl.ListCount)="AAAA"

EnclSub

程序運(yùn)行后，單擊命令按鈕，其結(jié)果為。

A：把列表框中原有的最后一項(xiàng)改為"AAAA"

B：把字符串"AAAA"添加到列表框的最后(即的后面)

C：把字符串“AAAA〃添加到列表框中，但位置不能確定

D：把字符串“AAAA〃插入到列表框的最前面(即“Itcml”的前面)

參考答案：B

35、在窗體上畫1個(gè)命令按扭(名稱為Command1)和1個(gè)文本框(名稱為Textl),然后編

寫如下事件過(guò)程：

PrivateSubCommand1_Click()

x=Val(Textl.Text)

SelectCasex

Case1,3

y=x*x

CaseIs>=10,Is<=-10

y=x

Case-10To10

y=-x

EndSelect

EndSub

程序運(yùn)行后，在文本框中輸入3,然后單擊命令按扭，則以下敘述中正確的是o

A：先執(zhí)行y=x*x,再執(zhí)行y=-x

B：執(zhí)行y=-x

C：執(zhí)行y=x*x

D：程序出錯(cuò)

參考答案：C

36、以下不能輸出"Program”的語(yǔ)句是。

A：PrintLeft("VBProgram”,7)

B：PrintRight("VBProgram”,7)

C：PrintMid("VBProgram”,3)

D：PrintMid(*VBProgram*,3,7)

參考答案：A

37、窗體上有1個(gè)名稱為Text1的文本框和1個(gè)名稱為Commandl的命令按鈕。要求程序運(yùn)

行時(shí)，單擊命令按鈕，就可把文本框中的內(nèi)容寫到文件。ut.txt中，每次寫入的內(nèi)容附加到

文件原有內(nèi)容之后。下面能夠正確實(shí)現(xiàn)上述功能的程序是o

A：PrivateSubCommand1Click()

Open"out.Ixt"ForAppendAstil

Print#1,Textl.Text

Close#1

EndSub

B：PrivateSubCommand1Click()

Open"out.txt"ForOutputAs#1

Printttl,Textl.Text

Closettl

EndSub

C；PrivateSubCommand1_C1ick()

Open"out.txt"ForInputAs#1

Print81,Textl.Text

Close#1

EndSub

D：PrivateSubCommandl_Click()

Open"out,txt"ForRandomAs#1

PrintTextl.Text

Close#1

EndSub

參考答案：A

38、設(shè)有如圖所示窗體和以下程序：

PrivateSubCommand1_C1ick()

Textl.Text="VisualBasic”

EndSub

PrivateSubTextl_LostFocus()

IfTextl.textO'BASIC^Then

Textl.Text—"

Textl.SetFocus

EndIf

EndSub

程序運(yùn)行時(shí)，在Textl文本框中輸入"Basic”(如圖所示),然后單擊Commandl按鈕，則產(chǎn)

生的結(jié)果是______o

A：文本框中為"Basic”,焦點(diǎn)在文本框中

B：文本框中無(wú)內(nèi)容，焦點(diǎn)在文本框中

C：文本框中為"Basic",焦點(diǎn)在按鈕上

1）：文本框中為"VisualBasic",焦點(diǎn)在按鈕上

參考答案：B

39、為了使一個(gè)窗體從屏幕消失但仍在內(nèi)存中，所使用的方法或語(yǔ)句為

A：Unload

B：Load

C：Show

D：Hide

參考答案：D

40、某人創(chuàng)建了1個(gè)工程，其中的窗體名稱為Forml；之后又添加了一個(gè)名為Form2的窗體,

并希望程序執(zhí)行時(shí)先顯示Form2窗體，那么，他需要做的工作是。

A：把Form2的Tabindex屬性設(shè)置為1,把Forml的Tabindex屬性設(shè)置為2

B：在Forml的Load事件過(guò)程中加入語(yǔ)句LoadForm2

C；在Form2的Load事件過(guò)程中加入語(yǔ)句Form2.Show

D：在工程屬性對(duì)話框中把〃啟動(dòng)對(duì)象”設(shè)置為Form2

參考答案：D

41、CommonDialog控件可以顯示種對(duì)話框。

A：4種

B：5種

C：7種

D：6種

參考答案：D

42、現(xiàn)有語(yǔ)句:y=IIf（x>0,xMod3,0）

設(shè)x=10,則y的值是。

A：語(yǔ)句錯(cuò)誤B：1C：3D