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

VB考試一

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

A:SelStartB:SelLengthC:SelTextD:Text

參考答案:c

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

為:。

A:Textl>Enabled=FalseB:Textl>Hide

C:Textl>ClearD:Textl>Visible=False

參考答案:D

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

A:x=l與y=l均為賦值語句

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

C:x=l為賦值語句,y=l為關(guān)系表達(dá)式

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

參考答案:D

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

A:_mnu_Open_234B:Abc901C:price_D:K

參考答案:A

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

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的值為o

A:-lB:6C:0D:5

參考答案:A

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

A:MidB:RtrimC:TrimD:Ltrim

參考答案:C

9、以下語句的輸出結(jié)果就是0

PrintFormat$("32548>5","000,000>00")

A:32,548、5B:32548、5C:032,548、50D:32,548、50

參考答案:C

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

DimXAsInteger

如果Sgn(X)的值為-1,則X的值就是o

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

參考答案:D

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

PrivateSubCommand1_Click()

Fori=1To4

x=4

Forj=1To3

x=3

Fork=1To2

x=x+6

Nextk

Nextj

Nexti

Printx

EndSub

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

參考答案：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)該就是o

[(a+b)+c]/80-5^(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=0#xMod9=0OrxMod5=0

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

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

PrivateSubForm_click()

Dimx,yAsSingle

DimzAsInteger

x=InputBox(HEnterascore'*)

Dowhilex>=0

y=y+x

z=z+1

x=InputB0x("Enterascore'1)

Loop

Ifz=0Then

z=1

EndIf

y=______

Printy

EndSub

參考答案:y/z

VB考試二

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

A:ListIndexB:ListCountCrCountD: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:PrivateSubListl_Click()

Labell>Name=Listl>Text

EndSub

D:PrivateSubListl_Click()

Labell>Caption=Listl>Listindex

EndSub

參考答案:A

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

A:ListindexB:IndexC:ListD:Tabindex

參考答案:A

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

A:ClearB:RemoveC:RemoveItemD:Cls

參考答案:A

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

的循環(huán)語句為o

A:Fori=lToListl>ListCount

NEXT

B:Fori=0ToListl>Count-1

NEXT

C:Fori=0ToListl>ListCount-1

NEXT

D:Fori=lToListl>Count

NEXT

參考答案:C

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

OptionBase0

PrivateSubForm_Click()

Dima

DimiAsInteger

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

Fori=0To3

Printa(5-i);

Next

EndSub

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

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)=Val(InputBox("請(qǐng)輸入數(shù)據(jù)”))

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

NextK

Printb(K)

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

參考答案:D

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

PrivateSubCommand1_Click()

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

D:123

246

369

參考答案:A

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

Dimarr(3To5,-2to2)

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

參考答案:c

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

A:static語句B:Dim語句C:public語句D:ReDim語句

參考答案:D

11、假定程序中有以下語句：

answer=MsgBox("Stringl"?"String2","String3",2)

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

A:String3B:String2C:String1D:1

參考答案:D

12、設(shè)有語句

x=InputBox("輸入數(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:8D:35

參考答案:D

14、設(shè)a=5,b=6,c=7,d=8,則執(zhí)行下列語句后,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:3D:2

參考答案:B

VB考試三

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

A:Combol>RemoveitemCombo1>Listcount

B:Combo1>Removeitem2

C:Combo1>Removeitem3

D:Combol>RemoveitemText

參考答案:B題分:6

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

FunctionFunc(ByValxAsInteger,yAsInteger)

y=x*y

Ify>0Then

Func=x

Else

Func=y

EndIf

EndFunction

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a二3

b=4

c=Func(a,b)

Print"a="；a

Print"b="；b

Printnc=n;c

EndSub

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

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

參考答案:D題分:6

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

PublicSubProcl(nAsInteger,ByVaimAsInteger)

n=nMod10

m=m/10

EndSub

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger

x=12:y=34

CallProcl(x,y)

Printx;y

EndSub

A:123B:23C:1234D:234

參考答案:D題分:6

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

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

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

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

D:如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型

參考答案:B題分:6

5、以下說法錯(cuò)誤的就是o

A:函數(shù)過程可以帶參數(shù)B:子過程沒有返回值

C:函數(shù)過程沒有返回值D:子過程可以帶參數(shù)

參考答案:C題分:6

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

PrivateSubCommand1_Click()

DimbAsInteger

b=b+1

EndSub

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

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

參考答案:B題分:6

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

FunctionFun(SAsString)AsString

DimsiAsString

Fori=1ToLen(S)

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

Nexti

Fun=si

EndFunction

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

PrivateSubCommand1_Click()

DimStrlAsString,Str2AsString

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

Str2=Fun(Strl)

PrintStr2

EndSub

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

窗體上的輸出結(jié)果為o

A:GFEDCBA

B:ABCEDFG

C:gfedcba

D:abcdefg

參考答案:A題分:6

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

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

B:Function過程可以有參數(shù),Sub過程不可以

C:Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以

D:Sub過程的過程名不能返回值，而Function過程能通過過程名返回值

參考答案:D題分:6

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

SubP(a,b)

、、、

EndSub

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

A:CallP

B:CallP10,20

C:P(10,20)

D:CallP(10,20)

參考答案:D題分:6

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

PrivateSubCommand1_Click()

StaticXAsInteger

StaticYAsInteger

Cis

Y=1

Y=Y+5

X=5+X

PrintX,Y

EndSub

程序運(yùn)行時(shí)，三次單擊命令按鈕Commandl后,窗體上顯示的結(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語句

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

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

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

參考答案:C題分:6

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

件過程：

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIf

EndFunction

PrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+fun(i)

Next

Prints

EndSub

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

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

參考答案:A題分:6

VB考試四

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

PrivateSubCommand1_Click()

Dima(10)AsInteger,maxAsInteger

Fork=lTo10

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

Nextk

max=0

Fork=lTo10

Ifa(k)>maxThen

max=a(k)

EndIf

Nextk

Printmax

EndSub

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

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

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

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

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

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

參考答案:D

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

A:執(zhí)行該語句后，就可以通過Print#語句向文件Test、txt中寫入信息

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

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

D:若d盤根目錄下無Test、txt文件,則該語句創(chuàng)建此文件

參考答案:C

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

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

A:PrivateSubCommand1_Click()

Form2>Load

EndSub

B:PrivateSubCommand1_Click()

Form2>Visible

EndSub

C:PrivateSubCommand1_Click()

LoadForm2

EndSub

D:PrivateSubCommand1_Click()

Form2>Show

EndSub

參考答案:D

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

OptionBase1

PrivateSubCommand1_Click()

Dima

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

j=l

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

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

A:12

B:1234

C:34

D:4321

參考答案:B

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

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

A:PrivateSubCommand1_Click()

Listl>ClearListl>Listindex

EndSub

B:PrivateSubCommand1_Click()

Listl>Clear

EndSub

C:PrivateSubCommand1_Click()

Listl>RemoveltemListl>Listindex

EndSub

D:PrivateSubCommandl_Click()

Listl>Removeitem

EndSub

參考答案:c

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

”，下面正確的語句就是。

A:Framel>Caption="框架"

B:Framel>Name="框架"

C:Framel>Text="框架"

D:Frame1>Value="框架"

參考答案:A

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

此功能的語句就是O

A:CallLoadPicture("n)

B:Picture1>Picture=LoadPicture(nn)

C:LoadPicture(nH)

D:Picture1、Picture=,,n

參考答案:B

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

下正確的屬性設(shè)置語句就是。

A:Timerl>Interval=50

B:Timerl>Interval=5

C:Timerl>Interval=0>5

D:Timer1>Interval=500

參考答案:D

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

事件過程：

PrivateSubCommandl_Click()

CommonDialogl>Filter=HAllFiles(*>*)|*、*|TextFiles"&_

”(*、txt|ExecutableFiles(*>exe)|*、exen

CommonDialogl>Filterlndex=3

CommonDialogl>ShowOpen

MsgBoxCommonDialog1、

EndSub

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

A:TextFiles(*>txt)

B:AllFiles(*>*)

C:ExecutableFiles(*、exe)

D:不確定

參考答案:C

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

PrivateSubCommand1_Click()

c二“ABCD”

Forn=1To4

Print______

Next

EndSub

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

D

CD

BCD

ABCD

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

A:Left(c,n)B:Right(c,n)C:Mid(c,n,n)D:Mid(c,n,l)

參考答案:B

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

Commandl與Command2>標(biāo)題分別為“開始“與“停止”的命令按鈕，然后畫一個(gè)名稱為Timerl

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

編寫如下程序：

PrivateSubForm_Load()

Timer1>Enabled=False

EndSub

PrivateSubCommand1_Click()

Timer1>Enabled=True

EndSub

PrivateSubCommand2_Click()

Timer1、Enabled=False

EndSub

PrivateSubTimer1_Timer()

IfLabel1、Left<WidthThen

Label1>Left=Label1>Left+20

Else

Label1>Left=O

EndIf

EndSub

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

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

A:單擊“停止”按鈕后再單擊“開始”按鈕，標(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í)行下列語句

strInput=InputBox("請(qǐng)輸入字符串"，"字符串對(duì)話框"，"字符串")

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

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

參考答案:C

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

方法就是。

A:執(zhí)行語句Picturel、Picture=""

B:執(zhí)行語句Picture1>Picture=LoadPicture("”)

C:選擇圖片框,然后按Del鍵

D:選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按回車鍵

參考答案:B

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

程序：

PrivateSubCommand1_Click()

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

t=”旅游景點(diǎn):

&IIf(a>OAnda<=10,“長(zhǎng)城“J“)_

&IIf(a>10Anda<=20J故宮"J")_

&IIf(a>20Anda<=31,"頤與園“J”)

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、有如下程序:：

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod2<>0AndiMod3=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

D:Instr

參考答案:B

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

容的就是。

A:Listl>Listindex

B:Listl>List

C:Listl>Text

D: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)使用的語句就是o

A:Cdl>Action=2

B:Cdl、ShowSave=True

C:Cdl>Actional

D:Cdl、ShowSave=0

參考答案:A

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

A:DimaAsInteger,b,cAsString

B:Dima%,b$,cAsString

C:Dimn,mAsInteger.sAsString

D:Dimx%,yAsInteger,zAsString

參考答案:D

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

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

PrivateSubCommand1_Click()

a=InputBox(*'Enteraninteger")

b=InputBox("Enteraninteger")

Textl>Text=b+a

EndSub

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

是O

A:出錯(cuò)

B:18

C:810

D:108

參考答案:D

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

鈕。然后編寫如下事件過程：

PrivateSubCommand1_Click()

CommonDialog1、

CommonDialogl>Filter=nAllfile|*>*|(*、Doc)|*>Doc|(*、Txt)|*>Txt"

CommonDialogl>Filterlndex=2

CommonDialogl>DialogTitle=nVBTestH

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)顯示在窗體上，正確的事件過程就是。

A:PrivateSubListl_Click()

PrintForml>Text

EndSub

B:PrivateSubForml_Click()

PrintListl>Text

EndSub

C:PrivateSubListl_Click()

PrintListl>Text

EndSub

D:PrivateSubForml_Click()

Listl>PrintListl>Text

EndSub

參考答案:c

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

個(gè)分?jǐn)?shù)后按回車鍵，則判斷分?jǐn)?shù)的合法性，若分?jǐn)?shù)為0~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:PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then,回車符的ASCII碼就是13

a=Val(Textl)

Ifa>=0Ora<=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:PrivateSubTextl_KeyPress(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,命令按鈕的名稱為Commandl,則單擊命令

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

A:PrivateSubCommand1_Click（）

CommonDialogl>DialogTitle="NewTitle"

CommonDialogl>ShowPrinter

EndSub

B:PrivateSubCommandl_Click（）

CommonDialogl>DialogTitle="NewTitle"

CommonDialogl>ShowColor

EndSub

C:PrivateSubCommandl_Click（）

CommonDialogl>DialogTitle="NewTitle"

CommonDialogl>ShowOpen

EndSub

D:PrivateSubCommand1_Click（）

CommonDialogl>DialogTitle="NewTitle"

CommonDialogl>ShowFont

EndSub

參考答案:c

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

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

確設(shè)置就是:o

A:"（*、DOC）*、DOC"B:"（*、DOC）|（、DOC）"C:"（*、DOC）|*、DOC"D:"（*、DOC）||*、

DOC"

參考答案:C

28、以下說法中正確的就是0

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

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

C:任何時(shí)候都可以通過單擊標(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è)屬性就是0

A:TimerB:VisbleC:EnabledD:Interval

參考答案:C

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

性設(shè)置為Enabled=True,Interval=O,并編程如下。希望在程序運(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:通過屬性窗口把計(jì)時(shí)器的Enabled屬性設(shè)置為False

B:把事件過程中的Labell、Caption=Time$語句改為L(zhǎng)abel1、Caption=Timerl>Time

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

D:把事件過程中的Labell、Caption=Time$語句改為Timer1、Interval=Time$

參考答案:C

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

后,文本框中顯示的就是。

A:無任何內(nèi)容B:1個(gè)"$"C:8個(gè)"*"D:8個(gè)

參考答案:D

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

PrivateSubForm_Load()

Command2>Enabled=False

Check1>Value=1

EndSub

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

A:

B:

C:

D:

參考答案:D

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

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

B:其她選項(xiàng)方法都正確

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

D:先畫兩個(gè)單選按鈕,再畫框架將單選按鈕框起來

參考答案:C

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

事件過程

PrivateSubForm_Load()

Listl>Additem”Item1”

Listl>Additem"Item2n

Listl>AdditemnItem3n

EndSub

PrivateSubCommand1_Click()

Listl>List(Listl>ListCount)=nAAAAM

EndSub

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

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

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

C:把字符串“AAAA”添力口至畫表框中，但位置不能確定

D:把字符串“AAAA”插入到列表框的最前面(即"Iteml”的前面)

參考答案:B

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

事件過程：

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”的語句就是。

A:PrintLeft(nVBProgram",7)

B:PrintRight(HVBProgramn,7)

C:PrintMid(nVBProgramn,3)

D:PrintMid(HVBProgram",3,7)

參考答案:A

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

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

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

A:PrivateSubCommandl_Click()

Open"out、txt"ForAppendAs#1

Print#l,Textl>Text

Close#1

EndSub

B:PrivateSubCommand1_Click()

Open”out、txt"ForOutputAs#1

Print#l,Textl>Text

Close#1

EndSub

C:PrivateSubCommand1_Click()

Open"out、txt"ForInputAs#1

Print#l,Textl>Text

Close#1

EndSub

D:PrivateSubCommand1_Click()

Open"out、txt"ForRandomAs#1

Print#l,Textl>Text

Close#1

EndSub

參考答案:A

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

PrivateSubCommand1_Click()

Textl>Text=nVisualBasic"

EndSub

PrivateSubText1_LostFocus()

IfTextl、textoHBASICnThen

Textl>Text='H,

Textl>SetFocus

EndIf

EndSub

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

果就是o

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

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

C:文本框中為“Basic”,焦點(diǎn)在按鈕上

D:文本框中為“VisualBasic”,焦點(diǎn)在按鈕上

參考答案:B

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

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事件過程中加入語句LoadForm2

C:在Form2的Load事件過程中加入語句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=nf(x>0,