VB練習(xí)題題庫(kù)資料

自測(cè)題1.......................................1

自測(cè)題2.......................................3

自測(cè)題3.......................................6

自測(cè)題4.......................................9

自測(cè)題5......................................13

自測(cè)題6......................................19

練習(xí)題7......................................22

自測(cè)題8......................................59

自測(cè)題10.....................................77

自測(cè)題11.....................................83

自測(cè)題12.....................................86

自測(cè)題1

一、選擇題

1.從功能上講，VB6.0有三種版本，下列不屬于這三種

版本的是（）

A.學(xué)習(xí)版B.標(biāo)準(zhǔn)版C.專業(yè)版D.企業(yè)版

2.在正確安裝VB6.0后，可以通過(guò)多種方式啟動(dòng)VB,以

下方式中不能啟動(dòng)VB的是（）

A.通過(guò)“開(kāi)始”菜單中的“程序”命令

B.通過(guò)“我的電腦”找到vb6.exe,雙擊該文件名

C.通過(guò)“開(kāi)始”菜單中的“運(yùn)行”命令

D.進(jìn)入DOS方式，執(zhí)行vb6.exe文件

3?為了用鍵盤打開(kāi)菜單和執(zhí)行菜單命令，第一步應(yīng)按的

鍵是（）

A.功能鍵F10或AltB.Shift+功能鍵F4

C.Alt或功能鍵F8D.Ctrl+Alt

4.VB6.0集成環(huán)境的主窗口不包括()

A.標(biāo)題欄B.菜單欄C.狀態(tài)欄D.工具欄

5.用標(biāo)準(zhǔn)工具欄中的工具按鈕不能執(zhí)行的操作是()

A.添加工程B.打印源程序C.運(yùn)行程序D.打開(kāi)工程

6.VB窗體設(shè)計(jì)器的主要功能是()

A.建立用戶界面B.編寫源程序代碼C.畫圖D.顯示文字

7.以下敘述中正確的是()

A.用屬性窗口只能設(shè)置窗體的屬性

B.用屬性窗口只能設(shè)置控件的屬性

C.用屬性窗口可以設(shè)置窗體和控件的屬性

D.用屬性窗口可以設(shè)置對(duì)象的屬性

二、填空題

1.VB6.0分為三種版本，這三種版本是___、____和

2.可以通過(guò)多種方式啟動(dòng)VB,其中的兩種方式是—

和O

3.可以通過(guò)—菜單中的命令退出VBo

4.退出VB的快捷鍵是o

5.VB6.0的菜單欄共有個(gè)主菜單項(xiàng)。

6.快捷鍵Ctrl+0的功能相當(dāng)于執(zhí)行—菜單中的—

命令；或者相當(dāng)于單擊工具欄上的—按鈕。

7.如果打開(kāi)了不需要的菜單或?qū)υ捒?，可以用—鍵關(guān)

閉。

8.工程文件的擴(kuò)展名是—,窗體文件的擴(kuò)展名是

____O

9.屬性窗口大體上可以分為4個(gè)部分，這4個(gè)部分分別

是、____、____和____O

Zo.v"的王真欄者而種形式，分別為—形式和—

形式。

答案1

一、選擇題

1.B2.D3.A4.C5.B6.A7.C

二、填空題

1.學(xué)習(xí)版專業(yè)版企業(yè)版

2.共有以下4種方式：

用“開(kāi)始”菜單中的“程序”命令

通過(guò)“我的電腦”或在資源管理器中雙擊vb6.exe

使用“開(kāi)始”菜單中的“運(yùn)行”命令

建立快捷方式（填其中的任何兩種方式）

3.文件退出

4.Alt+Q

5.13

6.文件打開(kāi)工程打開(kāi)工程

7.Esc

8..vbp.frm

9.對(duì)象框?qū)傩燥@示方式屬性列表屬性解釋

10.固定浮動(dòng)

自測(cè)題2

一、選擇題

L下列敘述中正確的是（）

A.只有窗體才是VB中的對(duì)象

B.只有控件才是VB中的對(duì)象

C.窗體和控件都是VB中的對(duì)象

D.窗體和控件不是VB中的對(duì)象

2.下列可以激活屬性窗口的操作是（）

A.用鼠標(biāo)雙擊窗體的任何部位

B.執(zhí)行“工程”菜單中的“工具箱”命令

C.按Ctrl+F4鍵

D.按F4鍵

3.下列不能打開(kāi)工具箱窗口的操作是0

3.一個(gè)控件在窗體上的位置由和屬性決定，其大小由

和屬性決定。

4.可以通過(guò)多種方式激活屬性窗口，這些方式

是、、

5.為了選擇多個(gè)控件，可以按住鍵，然后單

擊每個(gè)控件。

三、編程題

L在窗體上畫一個(gè)命令按鈕，然后通過(guò)屬性窗口設(shè)置下列屬

性：

Caption這是命令按鈕

Font宋體粗體三號(hào)

VisibleFalse

Style1-Graphical

2.在窗體的左上部畫兩個(gè)命令按鈕和兩個(gè)文本框，然后選擇

這4個(gè)控件，并把它們移到窗體的右下部。

3.在窗體的任意位置畫一個(gè)文本框，然后在屬性窗口中設(shè)置

下列屬性：

Left1600

Top2400

Height1000

Width2000

答案2

一、選擇題

1.C2.D3.B4.A5.B6.D7.B

8.A

二、填空題

1.Textl.Text=，，Hello!，/或Text="Hello!〃

2.內(nèi)部控件（或標(biāo)準(zhǔn)控件）ActiveX控件可插入對(duì)

象

3.TopLeftWidthHeight

4.用鼠標(biāo)單擊屬性窗口的任何部位

執(zhí)行“視圖”菜單中的“屬性窗口”命令

按F4鍵

單擊工具欄上的“屬性窗口”按鈕

按Ctrl+PgDn或Ctrl+PgUp

5.Shift或Ctrl

三、編程題(略)

自測(cè)題3

LVB程序中分隔語(yǔ)句的字符是()

A.'B.:C.\D._

2.VB程序中的注釋語(yǔ)句行的續(xù)行符是()

A.，B.:C.\D._

3.VB程序中的注釋所使用的字符是0

A.，B.:C.\D.

4.假定窗體的名稱(Name屬性)為Fermi,則把窗體的標(biāo)題設(shè)

置為“VBText”的語(yǔ)句為()

A.Forml="VBText"B.Caption="VBText”

C.Forml.Text="VBText"D.Forml.Name=“VBText”

5.下列不能打開(kāi)代碼窗口的操作是()

A.雙擊窗體上的某個(gè)控件B.雙擊窗體

C.按F7鍵D.單擊窗體或控件

6.下列說(shuō)法中正確的是()

為了保存一個(gè)VB應(yīng)用程序，應(yīng)當(dāng)

A.只保存窗體模塊文件(.frm)

B.只保存工程文件(.vbp)

C.分別保存工程文件和標(biāo)準(zhǔn)模塊文件(.bas)

-6-

D.分別保存工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件

7.下列說(shuō)法中正確的是()

為了裝入一個(gè)VB應(yīng)用程序，應(yīng)當(dāng)

A.只裝入窗體模塊文件(.frm)

B.只裝入工程文件(.vbp)

C.分別裝入工程文件和標(biāo)準(zhǔn)模塊文件(.bas)

D.分別裝入工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件

8.為了使窗體的大小可以改變，必須把它的BorderStyle屬

性設(shè)置為()

A.1B.2C.3D.4

二.填空題

1.在窗體上畫兩個(gè)文本框和一個(gè)命令按鈕,然后在代碼窗口

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

PriateSubCommand1Click()

Textl.Text=，，VBProgramming/z

Text2.Text=Textl.Text

Textl.Text二〃ABCD〃

EndSub

程序運(yùn)行后,單擊命令按鈕，兩個(gè)文本框顯示的內(nèi)容分別為—

和.

2.在用VB開(kāi)發(fā)應(yīng)用程序EI寸,一般需要、

和三步。

3.控件和窗體的Name屬性只能通過(guò)設(shè)置，不能在

期間設(shè)置。

4.代碼窗口分為左右兩欄，左邊一欄稱為,右邊

一欄稱為o

5.為了在輸入程序時(shí)能自動(dòng)進(jìn)行語(yǔ)法檢查，必須執(zhí)行菜單中

的命令，打開(kāi)對(duì)話框，然后選擇“編輯

器”選項(xiàng)卡中的選項(xiàng)。

6.在保存VB應(yīng)用程序時(shí)，窗體模塊和工程文件的擴(kuò)展名分

別為和O

7.為了把一個(gè)VB應(yīng)用程序裝入內(nèi)存，只要裝入文

件即可。

8.VB應(yīng)用程序通常由三類模塊組成，即、

和O

三、編程題

在窗體上畫一個(gè)文本框和兩個(gè)命令按鈕，并把兩個(gè)命令

按鈕的標(biāo)題分別設(shè)置為“隱藏文本框”和“顯示文本框”。

當(dāng)單擊第一個(gè)命令按鈕時(shí)，文本框消失；而當(dāng)單擊第二個(gè)命

令按鈕時(shí)，文本框重新出現(xiàn)，并在文本框中顯示“VB程序設(shè)

計(jì)”(字體大小為16)。運(yùn)行該程序。

答案3

一、選擇題

1.B2.D3.A4.B5.D6.D7,D

8.B

二、填空題

1.ABCDVBProgramming

2.建立可視用戶界面設(shè)置對(duì)象屬性編寫代碼

3.屬性窗口運(yùn)行

4.對(duì)象框過(guò)程框或?qū)ο罂蜻^(guò)程/事件框

5.工具選項(xiàng)選項(xiàng)自動(dòng)語(yǔ)法檢查

6..frm.vbp

7.工程

8.窗體模塊標(biāo)準(zhǔn)模塊類模塊

三、編程題

編寫代碼如下：

PrivateSubCommandlClick()

Textl.Visible=False

EndSub

PrivateSubCommand2Click()

-8-

Textl.FontSize=16

Textl.Visible=True

Textl.Text二〃VB程序設(shè)計(jì)〃

EndSub

自測(cè)題4

一、選擇題

1.下列可作為VB的變量名的是

A.3*DletaB.PrintCharC.AbsD.ABn

2.下列可作為VB的變量名的是

A.FilenameB.A(A+B)C.A%DD.Print

3.下列可作為VB中所允許的形式的數(shù)是

A.±25.74B.3.457E-100C..368D.

1.87E+50

4.下列可作為VB中所允許的形式的數(shù)是

A.10^(1.256)B.D32C.2.5ED.12E3

5.下面的數(shù)寫成普通的十進(jìn)制數(shù)是

2.65358979335278D-006

A.0.0000265358979335278653B.

0.00000265358979335278

C.0.000265358979335278653D.

0.000000265358979335278

6.下面的數(shù)寫成普通的十進(jìn)制數(shù)是

1.21576654590569D+019

A.12157665459056900B.

121576654590569000

C.1215766545905690000D.

12157665459056900000

7.下面的數(shù)寫成普通的十進(jìn)制數(shù)是

8.6787E+8

A.86787000B.867870000

C.8678700D.8678700000

8.下面的數(shù)寫成普通的十進(jìn)制數(shù)是

2.56E-12

A.0.000000000002567B.0.0000000002567

C.0.000000002567D.

0.00000000002567

9.設(shè)a=2,b=3,c=4,d=5,下列表達(dá)式的值是

a>bANDc<=dOR2*a>c

A.TrueB.FalseC.-1D.1

10.設(shè)a=2,b=3,c=4,d=5,下列表達(dá)式的值是

3〉2*bORa=cANDbOcORc>d

A.1B.TrueC.FalseD.-1

11.設(shè)a=2,b=3,c=4,d=5,下列表達(dá)式的值是

NOTa<=cOR4M=b'2ANDb<>a+c

A.-1B.1C.TrueD.False

二、填空題

1.下列VB表達(dá)式有錯(cuò)誤，其正確的形式是o

CONTT.DE+COS(28°)

2.下列VB表達(dá)式有錯(cuò)誤，其正確的形式是o

-3/8+8.INT24.8

3.下列VB表達(dá)式有錯(cuò)誤，其正確的形式是o

(8+6)-(49—2+sin(2*n)

4,下列VB表達(dá)式有錯(cuò)誤，其正確的形式是o

[(x+y)+z]X80-5(C+D)

-10-

5.下列VB表達(dá)式有錯(cuò)誤，其正確的形式是

cos2(c+d)((C+D)為弧度)

6.下列VB表達(dá)式有錯(cuò)誤，其正確的形式是

5+(a+b)2

7.與下列數(shù)學(xué)式子對(duì)應(yīng)的VB表達(dá)式是

cos(x)(sin(x)+l)(X為弧度)

8.與下列數(shù)學(xué)式子對(duì)應(yīng)的VB表達(dá)式是

e2+2

9.與下列數(shù)學(xué)式子對(duì)應(yīng)的VB表達(dá)式是

2a(7+b)

10.與下列數(shù)學(xué)式子對(duì)應(yīng)的VB表達(dá)式是

8e3.Ln2

1L執(zhí)行以下語(yǔ)句后，輸出結(jié)果是

printSgn(2)<CR>

12.執(zhí)行以下語(yǔ)句后，輸出結(jié)果是

a$=z，Good，，<CR>

b$二〃Morning"〈CR〉

printa$+b$<CR>

printa$&b$<CR>

13.執(zhí)行以下語(yǔ)句后，輸出結(jié)果是

s$二〃ABCDEFGHIJK〃〈CR>

printLeft$(s$,4)<CR>

printRight$(s$,4)<CR>

14.執(zhí)行以下語(yǔ)句后，輸出結(jié)果是

s$二〃ABCDEFGHIJK〃〈CR>

printMid$(s$,3,4)<CR>

printLen(s$)<CR>

15.執(zhí)行以下語(yǔ)句后，輸出結(jié)果是

s$二〃ABCDEFGHIJK〃

printInstr(s$,，，efg，，)<CR>

printLcase$(s$)<CR>

16.假定當(dāng)前日期為2003年10月5日，星期五，則執(zhí)行以

下語(yǔ)句后，輸出結(jié)果是5、10、2003、

5o

printday(now)<CR>

printmonth(now)<CR>

printyear(now)<CR>

printweekday(now)<CR>

17.在VB中，字符串常量要用括起來(lái)，日期/時(shí)間型

常量要用括起來(lái)。

18.在5.0/6.0版的VB中，字符采用編碼方式。在

這種編碼方案中，一個(gè)中文字符或一個(gè)西文字符均視為—

個(gè)字符，每個(gè)字符用個(gè)字節(jié)編碼。

19.下列語(yǔ)句的輸出結(jié)果是o

PrintInt(12345.6789*100+0.5)/100

答案4

一、選擇題

1.B2.A3.C4.D5.B6.D

7.B8A.9.B10.B11.D

二、填空題

l.C0NTT*DE+Cos(28*3.14159/180)

2.(-3)/8+8*Int(24.8)

3.(8+6)X4/(-2))+Sin(2*3.14159)

4.((x+y)+z)*80-5*(C+D)

5.Cos(c+d)2或Cos(c+d)*Cos(c+d)

6.5+(a+b)2或5+(a+b)*(a+b)

7.Cos(x)*(Sin(x)+l)

8.Exp(2)+2

9.2*a*(7+b)

10.8*Exp(3)*Log(2)

11.1

12.GoodMorningGoodMorning

-12-

13.ABCDHIJK

14.CDEF11

15.0abcdefghijk

16.51020036

17.雙引號(hào)#

18.Unicode12

19.12345.68

自測(cè)題5

一、選擇題

1.假定Picturel和Textl分別為圖片框和文本框的名稱,

下列不正確的語(yǔ)句是

A.Print25

B.Picturel.Print25

C.Textl.Print25D.Debug.Print25

2.以下語(yǔ)句的輸出結(jié)果是（在立即窗口中）

a=27<CR>

b=65<CR>

Printa;b<CR>

A.27A65B.A27A65C.A27A

△65D.A27AA65A

(△表示空格,下同)

3.以下語(yǔ)句的輸出結(jié)果是(在立即窗口中)

a二〃Beijing”<CR>

b二〃ShangHai〃<CR>

Printa;b<CR>

A.BeijingAShangHaiB.ABeijingA

Shanghai

C.BeijingShangHaiD.ABeijing

△ShangHaiA

4.語(yǔ)句的Print5*5\5/5的輸出結(jié)果是

A.5B.25C.0

D.1

5.設(shè)a、b、c為整型變量，其值分別為1、2、3,以下程序

段的輸出結(jié)果是

a=b:b=c:c二a

Printa;b;c

A.123B.231C.321

D.232

6.語(yǔ)句PrintSgn(-62)+Avbs(-62)+Int(-62)的輸出結(jié)果

是

A.-36B.1C.-l

D.-72

7.以下語(yǔ)句的輸出結(jié)果是

a=Sqr(3)

PrintFormat(a,〃$$####.###〃)

A.$1.732B.$$L732

C.$1732D.$$0001.732

8.以下程序段的輸出結(jié)果是

a=Sqr(3)

b=Sqr(2)

c=a>b

-14-

Printc

A.-1B.0C.False

D.True

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

PrintFormat$(32548.5〃000,000.00")

A.32548.5B.32,548.5C.032,548.50

D.32,548.50

10.執(zhí)行以下程序段后，變量c$的值為

a$二〃VisualBasicPrograming^

b$二〃Quick〃

c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,11)

A.VisualBASICProgramingB.Quick

BasicPrograming

C.QUICKBasicProgramingD.Quick

BASICprograming

11.表達(dá)式4+5\6*7/8Mod9的值是

A.4B.5C.6

D.7

12.InputBox函數(shù)的返回值的類型是

A.數(shù)值B.字符串C.變體D.數(shù)值

或字符串(視輸入的數(shù)據(jù)而定)

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

PrivateSubComandl_Click()

a=InputBox("EntertheFirstinteger")

B=InputBox(z，EntertheSecondinteger")

Printb+a

EndSub

程序運(yùn)行后，單擊命令按鈕，先后在兩個(gè)輸入對(duì)話框中分

別輸入456和123,則輸出結(jié)果是

A.579B.123C.456

D.123456

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

PrivateSubComandlClick()

Dima,bAsInteger

a二InputBox("EntertheFirstinteger")

B=InputBox(Z/EntertheSecondinteger")

Printb+a

EndSub

程序運(yùn)行后，單擊命令按鈕，先后在兩個(gè)輸入對(duì)話框中分

別輸入456和123,則輸出結(jié)果是

A.579B.123C.456

D.123456

15.執(zhí)行下面的語(yǔ)句后，所產(chǎn)生的信息框的標(biāo)題是

a=MsgBox(〃AAAA〃一〃BBBB〃，〃〃,5)

A.BBBBB.空C.AAAA

D.出錯(cuò)，不能產(chǎn)生信息框

二、填空題

L語(yǔ)句Print〃25+32=〃;25+32的輸出結(jié)果是。

2.以下語(yǔ)句的輸出結(jié)果是o

s$二〃China〃

s$=〃Beijing〃

Prints$

3.以下語(yǔ)句的輸出結(jié)果是o

a%=3.14156

Printa%

4.設(shè)a=Sqr(2)*Sqr(3),下列語(yǔ)句的輸出結(jié)果分別

7E、、、o

PrintFormat$(a,^OOO.00，z)

PrintFormat$(%〃###.#00〃)

-16-

PrintFormat$(a,〃00.00E+00”)

PrintFormat$(a,〃-#.####〃)

5.閱讀程序：

SubForm_Click()

a=10:b=15:c=20:d=25

Printa;Spc(5);b;Spc(7);c

Printa;Space$(8);b;Space$(5);c

Printc;Spc(3);〃+〃;Spc⑶;d;

PrintSpc(3);"=”;Spc(3);c+d

EndSub

運(yùn)行上面的程序，單擊窗體，輸出結(jié)果

、、、O

6.以下程序段的輸出結(jié)果是o

x=8

Printx+l;x+2;x+3

7.以下程序段的功能是o

x=8.6

y=Int(x+0.5)

Printy

三、編程題

以下程序代碼在窗體的單擊事件過(guò)程(Form_Click)中

編寫，結(jié)果輸出到窗體上。

1.從鍵盤上輸入4個(gè)數(shù)，編寫程序，計(jì)算并輸出這4個(gè)

數(shù)的和及平均值°通過(guò)InputBox函數(shù)輸入數(shù)據(jù)，在窗體上

顯示和及平均數(shù)c

2,編寫程序，求解雞兔同籠問(wèn)題。一個(gè)籠子中有雞x只,

兔y只，每只雞有兩只腳，每個(gè)兔有4只腳。今知雞和兔的

總頭數(shù)為h,總腳數(shù)為f,問(wèn)籠中雞和兔各若干？

答案5

一、選擇題

l.C2.D3.C4.B5.D6.C7.B8.D9.C10.D11.B12.B13.D

14.A15.A

二、填空題

1.25+32=57

2.Beijing

3.3

4.002.452.44924.24E-01-2.449

5.101520

101520

20+25=45

6.91011

7.對(duì)變量x四舍五入后取整

三、編程題（略）

-18-

自測(cè)題6

一、選擇題

1.決定窗體標(biāo)題條顯示內(nèi)容的屬性是

A.TextB.NameC.CaptionD.BackStyle

2.當(dāng)窗體最小化時(shí)縮小為一個(gè)圖標(biāo)，設(shè)置這個(gè)圖標(biāo)的屬性是

A.MouseiconB.IconC.Picture

D.MousePointer

3.為了取消窗體的最大化功能，需要把它的一個(gè)屬性設(shè)置為

False,這個(gè)屬性是

A.ControlBoxB.MinButtonC.Enabled

D.MaxButton

4.決定窗體有無(wú)控制菜單的屬性是

A.ControlBoxB.MinButtonC.Enabled

D.MaxButton

5.為了使文本框同時(shí)具有水平和垂直滾動(dòng)條，應(yīng)先把

MuitiLine屬性設(shè)置為True,然后再把ScrollBars屬性設(shè)

置為

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

6.使文本框獲得焦點(diǎn)的方法是

A.ChangeB.GotFocusC.SetFocus

D.LostFocus

7.為了使標(biāo)簽覆蓋背景，應(yīng)把BackStyle屬性設(shè)置為

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

8.為了使標(biāo)簽中的內(nèi)容居中顯示，應(yīng)把Alignment屬性設(shè)置

為

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

9.下列可以把當(dāng)前目錄下的圖形文件picl.jpg裝入圖片框

Picturel中的語(yǔ)句為

A.Picture二〃picl?jpg〃

B.Picture.Handle二〃picl?jpg〃

C.Picturel.Picture=LoadPicture(〃picl.jpg〃)

D.Picture=LoadPicture(〃picl?jpg〃)

10.決定標(biāo)簽內(nèi)顯示內(nèi)容的屬性是

A.TextB.NameC.AlignmentD.Caption

IL為了在按下回車鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過(guò)程，需

要把該命令按鈕的一個(gè)屬性設(shè)置為True,這個(gè)屬性是

A.ValueB.DefaultC.CancelD.Enabled

12.為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過(guò)程，需

要把該命令按鈕的一個(gè)屬性設(shè)置為True,這個(gè)屬性是

A.ValueB.DefaultC.CancelD.Enabled

13.假定在圖片框Picturel中裝入了一個(gè)圖形，為了清除該

圖形(注意，清除圖形，而不是刪除圖片框)，應(yīng)采用的正

確方法是

A.選擇圖片框，然后按Del鍵

B.執(zhí)行語(yǔ)句Picturel.Picture=LoadPicture(，/z，)

C.執(zhí)行語(yǔ)句Picturel.Picture二〃〃

D.選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按

回車

14.設(shè)置復(fù)選框或單選按鈕標(biāo)題對(duì)齊方式的屬性是

A.AlignB.AlignmentC.SortedD.Value

15.為了使列表框中的項(xiàng)目分為多列顯示，需要設(shè)置的屬性

為

A.ColumnsB.StyleC.ListD.MultiSelect

16.要想不使用Shift或Ctrl鍵就能在列表框中同時(shí)選擇多

個(gè)項(xiàng)目，則應(yīng)把該列表框的MultiSelect屬性設(shè)置為

A.0B.1C.2D.其他

17.刪除列表框中指定的項(xiàng)目所使用的方法是

A.MoveB.RemoveC.ClearD.Removeitem

-20-

18.當(dāng)拖動(dòng)滾動(dòng)條中的滾動(dòng)塊時(shí)，將觸發(fā)的滾動(dòng)條事件是

A.MoveB.ChangeC.ScollD.SetFocus

19.用戶在組合框中輸入或選擇的數(shù)據(jù)可以通過(guò)一個(gè)屬性獲

得，這個(gè)屬性是

A.ListB.ListIndexC.TextD.ListCount

20.在窗體（Name屬性為Forml）上畫兩個(gè)文本框（Name屬性

分別為Textl和Text2）和一/『命令按鈕（Name屬性為

Command1）,然后編寫如下兩個(gè)事件過(guò)程：

PrivateSubCommand1_Click（）

a=Textl.Text+Text2.Text

Printa

EndSub

PrivateSubForm_Load（）

Textl.Text二〃〃

Text2.Text二〃〃

EndSub

程序運(yùn)行后，在第一個(gè)文本框和第二個(gè)文本框中分別輸入

123和321,然后單擊命令按鈕，則輸出結(jié)果為

A.444B.321123C.123321D.132231

二、填空題

1.為了使標(biāo)簽?zāi)茏詣?dòng)調(diào)整大小以顯示全部文本內(nèi)容，應(yīng)把標(biāo)

簽的屬性設(shè)置為True。

自測(cè)題答案6

一、選擇題

l.C2.B3.D4.A5.D6.C7.B8.C9.C

10.I）11.B12.C13.B14.B15.A16.C

17.D18.C19.C20.C

二、填空題

1.Autosize

2.ScrollBarsMultiLineTrue

3.Textl.SetFocus

4.00

5.Picturel.Picture=LoadPicture/zpic2.gif〃

6.True

7.Picture

8.Interval

9.Enabled

10.下拉式組合框簡(jiǎn)單組合框下拉式列表框Style012

11.下拉式列表框

12.ItemAItemC

13.VB程序設(shè)計(jì)VBProgramming

練習(xí)題7

一、選擇題（每題只有一個(gè)正確答案）

1VB的3種結(jié)構(gòu)化程序設(shè)計(jì)的3種基本思想是（）

A）選擇結(jié)構(gòu)、過(guò)程結(jié)構(gòu)、順序結(jié)構(gòu)B）遞歸結(jié)構(gòu)、

選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)

0過(guò)程結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)、遞歸結(jié)構(gòu)D）順序結(jié)構(gòu)、

選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)

2下面代碼可以將變量A、B交換的語(yǔ)句是：（）

A）A二B:B二AB）

A=B:B=C:C=A

0C=A:A=B:B=CD）B=A:A=C:C=B

3下面代碼可以實(shí)現(xiàn)數(shù)值型變量A、B交換的語(yǔ)句是：()

A)A=(A+B)/2:B=(A-B)/2B)A=B:B二A

C)A二B:B=C:C=AD)

A=A+B:B=A-B:A=A-B

-22-

4用InputBoxO函數(shù)設(shè)計(jì)的對(duì)話框，其功能是()。

A)只能接收月戶輸入的數(shù)據(jù)，但不會(huì)返回任何信息

B)能接收用戶輸入的數(shù)據(jù)，并能返回用戶輸入的信息

0既能用于接收用戶輸入的信息，又能用于輸出信息

D)專門用于輸出信息

5在默認(rèn)情況下，InputBoxO函數(shù)返回值的類型為()。

A)邏輯類型B)字符串型

0數(shù)值型D)變體類型

6可以實(shí)現(xiàn)從鍵盤輸入一個(gè)作為雙精度變量a的值的語(yǔ)句是

()。

A)a=InputBox()

B)a二InputBox(〃請(qǐng)輸入一個(gè)值〃)

C)a二Vai(InputBox(〃請(qǐng)輸入一個(gè)值”))

D)a=Val(InputBox())

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

PrivateSubCmdlClickO

a=InputBox("EntertheFirstInteger")

b=InputBox("EntertheSecondInteger")

Printb+a

EndSub

程序運(yùn)行后，單擊命令按鈕，先后在兩個(gè)輸入框中分別輸

入“2”和“6”，則輸出結(jié)果為()o

A)2B)62

C)8D)26

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

PrivateSubComandlClick（）

DimaAsInteger,bAsInteger

a=InputBox（"EntertheFirstInteger"）

B=InputBox（''EntertheSecondInteger"）

Printb+a

EndSub

程序運(yùn)行后，單擊命令按鈕，先后在兩個(gè)輸入對(duì)話框中分

別輸入“456”和“123”，則輸出結(jié)果是（）0

A）579B）123

C）456D）123456

9Print方法可以輸出多個(gè)表達(dá)式值，若使用標(biāo)準(zhǔn)格式輸出，

各表達(dá)式的分割符應(yīng)是（）

A）空格B）逗號(hào)

0冒號(hào)D）分號(hào)

10設(shè)有語(yǔ)句：

*二1吁a8。*（〃輸入數(shù)值〃，〃0〃，〃示例〃）

程序運(yùn)行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下

列敘述中正確的是（）o

A）變量X的值是數(shù)值10

-24-

B）在InputBox對(duì)話框標(biāo)題欄中顯示的是“示例”

00是默認(rèn)值

D）變量X的值是字符串“10”

11MsgBox函數(shù)的返回值的類型為（）o

A）整型B）變體類型

O字符串型D）日期型

12以下關(guān)于MsgBox的敘述中，錯(cuò)誤的是（）o

A）MsgBox函數(shù)返回一個(gè)整數(shù)

B）通過(guò)MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類

型

C）MsgBox語(yǔ)句沒(méi)有返回值

D）MsgBox函數(shù)的第二個(gè)參數(shù)是一個(gè)整數(shù)，該參數(shù)只能

確定對(duì)話框中顯示的按鈕數(shù)量

13執(zhí)行卜面的語(yǔ)句后，所產(chǎn)生的信息框的標(biāo)題是（）o

a二MsgBox（〃AAAA〃，，〃BBBB〃，〃〃,5）

A）BBBBB）空C）AAAAD）

出錯(cuò)，不能產(chǎn)生信息框

14使“計(jì)算機(jī)技術(shù)”在當(dāng)前窗體上輸出的語(yǔ)句是（）。

A）Print〃計(jì)算機(jī)技術(shù)〃B）Picturel.Print

〃計(jì)算機(jī)技術(shù)〃

C）Printer.Print〃計(jì)算機(jī)技術(shù)〃D）Debug.Print〃

計(jì)算機(jī)技術(shù)〃

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

x=IIf(a>5,-l,0)

后，x的值為()。

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

16運(yùn)行下列程序段后，顯示的結(jié)果為()0

a二23

b=32

Ifa<bThenPrintbElsePrinta

A)23B)32

C)55D)2332

17下列程序段執(zhí)行結(jié)果為()o

x=5

y=-6

IfNotx>0Thenx=y-3Elsey=x+3

Printx-y;y-x

A)-33B)5-9

C)3-3D)-65

18下列語(yǔ)句正確的是()o

A)IfAWBThenPrint"A不筆于B〃

B)IfAOBThenPrintf〃A不等于B〃

C)IfAOBThenPrint"A不等于B〃

D)IfANBPrint"A不等于B〃

19下列程序段的執(zhí)行結(jié)果為()o

-26-

a=95

Ifa>60Then1=1

Ifa>70Then1=2

Ifa>80Then1=3

Ifa>90Then1=4

Print〃I=〃；I

A)1=1B)1=2

C)1=3D)1=4

20下列程序段的執(zhí)行結(jié)果為（）o

a=75

Ifa>60Then1=1

Ifa>70Then1=2

Ifa>80Then1=3

Ifa<90Then1=4

Print二〃；I

A)1=1B)1=2

C)1=3D)1=4

21下列程序段的執(zhí)行結(jié)果為（）o

X=2

Y二5

IfX*Y<1ThenY=Y-1ElseY=-l

PrintY-X>0

A)TrueB)False

0-1D)1

22對(duì)話框在關(guān)閉之前，不能繼續(xù)執(zhí)行其他操作，這種對(duì)話

框?qū)儆冢ǎ﹐

A）輸入對(duì)話框B）輸出對(duì)話框

0模式（模態(tài)）對(duì)話框D）無(wú)模式對(duì)話框

23下面程序段執(zhí)行結(jié)果為（）。

x=Int（Rnd（）+4）

SelectCasex

Case5

Print“Excellent”

Case4

Print〃Good〃

Case3

Print"Pass"

CaseElse

Print”Fail

EndSelect

A)ExcellentB)Good

C)PassD)Fail

24執(zhí)行下面的程序段后，變量c的值為（）o

a=14

-28-

b=30

SelectCaseb\10

Case0

c=a*10+b

Case1To9

c=a*100+b

Case10To99

c=a*1000+b

EndSelect

Printc

A)363B)2548

C)1430D)9875

25以下Case語(yǔ)句中錯(cuò)誤的是()。

A)Case0To10B)CaseIs>10

C)CaseIs>10AndIs<50D)Case3,5,Is>10

二、填空題

1語(yǔ)正確答案是選項(xiàng)句Print〃25+32=〃；25+32的輸出結(jié)果

是O

2在一個(gè)窗體上有兩個(gè)命令按鈕，CmdMax和CmdMin。單擊

CmdMax時(shí)，窗體上顯示〃字體由小變大〃，字號(hào)每次增加2；

單擊CmdMin時(shí)，窗體上顯示“字體由大變小”，字號(hào)每次減

小2。請(qǐng)?zhí)羁铡?/p>

PrivateSubFormLoad()

Forml.Caption=〃字體變化示范〃

CmdMax.Caption=〃字體變大〃

CmdMin.Caption=〃字體變小〃

EndSub

PrivateSubCmdMaxClick()

Forml.Print〃字體由小變大〃

EndSub

PrivateSubCmdMinClick()

Forml.Print〃字體由大變小〃

EndSub

3完成下面的程序，使顯示結(jié)果如下圖所示。

PrivateSubFormClick()

FontSize=18

Sample=〃〃

x二(ScaleWidth-TextWidth(Sample))/2

y二(ScaleHeight-Textlleight(Sample))/2

CurrentX=x

CurrentY=y

-30-

________Sample

EndSub

圖程序運(yùn)行界面

4有下面一個(gè)程序段，從文本框中輸入數(shù)據(jù)，如果該數(shù)據(jù)滿

足條件，除以4余1,除以5余2,則輸出，否則，將焦點(diǎn)定位

在文本框中，并清除文本框的內(nèi)容。

PrivateSubCommandl_Click()

x=Val(Textl.Text)

IfThen

Printx

Else

Textl.Text二〃〃

EndIf

EndSub

5下面程序的作用是用InputBoxO函數(shù)輸入一個(gè)整數(shù)，然后

判斷能否同時(shí)被2,5和7整除，如果能則輸出該數(shù)及平方值。

請(qǐng)?zhí)羁铡?/p>

PrivateSubCommandlClick()

DimnumXAsInteger

numX二Vai(InputBox(〃請(qǐng)輸入一個(gè)整數(shù)〃))

IfThen

Forml.Print

EndIf

EndSub

6在有下面一個(gè)程序段從文本框中輸入數(shù)據(jù)，如果該數(shù)據(jù)滿

足條件，除以6余2,除以5余3,則輸出，否則，將焦點(diǎn)定位

在文本框中，并清除文本框的內(nèi)容。

PrivateSubCommandl_Click()

num=Val(Textl.Text)

IfThen

Printnum

Else

Textl.Text二〃〃

EndIf

EndSub

-32-

7下面的程序是計(jì)算給定函數(shù)的值，自變量x,y的值用

InputBoxO函數(shù)輸入,函數(shù)如下：

x2+y2x>0,y>0

f(x,y)=k2-2y2x>(),y>0

y2-2x?其它

程序不完整，請(qǐng)?zhí)羁?，將程序的補(bǔ)充完整。

OptionExplicit

DimxAsSingle

DimyAsSingle

DimzAsSingle

PrivateSubCommandlClick()

x=Val(InputBox(〃x=〃))

y=Val(InputBox(〃y=〃))

EndSub

PrivateSubCommand2_Click()

IfThen

z=x-2+y八2

ElselfThen

z=x-2-2*y-2

z=y-2-3*x-2

EndIf

Forml.Print〃當(dāng)x,y的值為：〃；x,y

Forml.Print/zf(x,y)的值為：〃；z

EndSub

8在窗體上有一個(gè)“背景色變換”按鈕和一個(gè)“結(jié)束”按鈕。

單擊“背景色變換”按鈕，背景色變?yōu)榧t色；再單擊，背景

色變?yōu)榫G色；再單擊，背景色變?yōu)樗{(lán)色；再單擊背景色變?yōu)?/p>

紅色……如此循環(huán)。單擊“結(jié)束”按鈕，程序運(yùn)行結(jié)束。

請(qǐng)?zhí)羁铡?/p>

PrivateSubCmdChange_Click()

IfMark=0Then

Mark=l

ElselfThen

Forml.BackColor=vbGreen

Mark=2

ElselfMark=2Then

Forml.BackCo1or=vbB1ue

EndIf

EndSub

PrivateSubCmdExit_Click()

End

EndSub

-34-

9下列程序的功能是：當(dāng)x<50時(shí),y=0.8Xx；當(dāng)50WxW100

時(shí)，y=0.7Xx；當(dāng)x〉100時(shí)，沒(méi)有意義，請(qǐng)?zhí)羁铡?/p>

PrivateSubCommandlClick()

DimxAsSingle

*二1四a30又(”請(qǐng)輸入*的值！")

CaseIs<50

y=0.8*x

Case50To100

y=0.7*x

Print〃輸入的數(shù)據(jù)出界！〃

EndSelect

Printx,y

EndSub

10下面的程序用于根據(jù)文本框Text中輸入的內(nèi)容進(jìn)行以下

處理：

若Text為1,則打印“您的成績(jī)?yōu)閮?yōu)秀！若Text為2,則

打印“您的成績(jī)?yōu)榱己?！”若Text為3,則打印“您的成績(jī)?yōu)?/p>

一般”；否則打印“您的成績(jī)一般以下！、請(qǐng)?zhí)羁铡?/p>

PrivateSubCommandlClickO

SelectCaseVai(Textl.Text)

Case____________

Print〃您的成績(jī)?yōu)閮?yōu)秀！〃

Case____________

Print〃您的成績(jī)?yōu)榱己?！?/p>

Case____________

Print〃您的成績(jī)?yōu)橐话恪?/p>

CaseElse

Print〃您的成績(jī)一般以下！〃

EndSelect

EndSub

11新建一個(gè)工程，內(nèi)有兩個(gè)窗體，窗體Forml上有一個(gè)命令

按鈕Commandl,單擊該按鈕，F(xiàn)orml窗體消失，顯示Form2窗

體，程序如下：

PrivateSubCommandl_Click()

Form2.________

EndSub

試補(bǔ)充完整。

12本程序的功能是利用隨機(jī)數(shù)函數(shù)模擬投幣，方法是：每

次隨機(jī)產(chǎn)生一個(gè)0或1的整數(shù)，相當(dāng)于一次投幣，1代表正面,

0代表反面。在窗體上有三個(gè)文本框，名稱分別是Textl、

Text2>Text3,分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正

-36-

面的次數(shù)和出現(xiàn)反面的次數(shù)，如圖所示。程序運(yùn)行后，在文

本框Textl中輸入總次數(shù)，然后單擊“開(kāi)始”按鈕，按照輸

入的次數(shù)模擬投幣，分別統(tǒng)計(jì)出現(xiàn)正面、反面的次數(shù)，并顯

示結(jié)果。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡?/p>

圖程序運(yùn)行界面

PrivateSubCommandlClick()

Radomize

n=CInt(Textl.Text)

nl=0

n2=0

Fori=lTo____________

r=Int(Rnd*2)

Ifr=Then

nl=nl+l

Else

n2=n2+l

EndIf

Next

Text2.Text=nl

Text3.Text=n2

EndSub

三程序設(shè)計(jì)題

1已知平面坐標(biāo)系內(nèi)兩點(diǎn)的坐標(biāo)，求兩點(diǎn)間的距離。

2編寫程序，要求用戶利用InputBoxO函數(shù)輸入如下信息:

姓名、年齡、通訊地址、郵政編碼、聯(lián)系電話，然后將輸入

的數(shù)據(jù)用Print方法以適當(dāng)?shù)母袷皆诖绑w上顯示出來(lái)。

3編寫程序，設(shè)計(jì)一個(gè)退出按鈕，根據(jù)用戶做出的響應(yīng)來(lái)

確定是否結(jié)束程序（利用MsgBox來(lái)設(shè)計(jì)）。

4任給定一年，判斷該年是否為閏年，并根據(jù)給定月份來(lái)

判斷屬于哪個(gè)季節(jié)？（閏年的條件是：年號(hào)能被4整除但不

能被100整除，或者能被400整除。）

5從文本框內(nèi)輸入三角形的3條邊a、b、c,判斷它們是否

能構(gòu)成三角形，如果能，則計(jì)算出面積，如果不能，則提示

信息。

6設(shè)計(jì)一個(gè)滾動(dòng)字幕，其標(biāo)題為“VB程序設(shè)計(jì)”，使其能自

-38-

右向左反復(fù)移動(dòng)，當(dāng)把鼠標(biāo)移到該字幕上時(shí)，停止移動(dòng)，同

時(shí)字體顏色變?yōu)榧t色，移開(kāi)以后，字幕繼續(xù)移動(dòng)，字體變?yōu)?/p>

原來(lái)的顏色。

7在文本框內(nèi)輸入一年中的12個(gè)月份，如果輸入1、2、3月

份，則在標(biāo)簽上顯示春季，如果輸入4、5、6月份，則顯示

夏季，如果輸入7、8、9月份，則在標(biāo)簽上顯示秋季，如果

輸入10、11、12月份，則顯示冬季，其它情況則顯示您的輸

入有誤,請(qǐng)重新輸入,使用命令按鈕的單擊事件。

8利用單選按鈕與復(fù)選按鈕控制文本框內(nèi)字體的字體與字

形。

參考答案7

一、選擇題

1Do

2Co解析：此題考查變量交換這一知識(shí)點(diǎn)，首先要將其中

的一個(gè)變量賦值給中間變量，A是錯(cuò)誤的，B、D是交換時(shí)沒(méi)

有首先將變量賦值給中間變量，正確答案是C。

3Do解析：關(guān)于數(shù)值型變量的交換方法除了可以使用2題的

規(guī)則外，還可以使用先將兩數(shù)求和賦值給第一個(gè)變量，然后

用第一個(gè)變量減去第二個(gè)變量賦值給第二個(gè)變量，然后用

第一個(gè)變量減去第二個(gè)變量賦值給第一個(gè)變量所以只有答

案D是正確的。

4Bo解析：InputBoxO函數(shù)能接收用戶輸入的數(shù)據(jù)，并能

返回用戶輸入的信息，不能用于輸出信息。InputBoxO函數(shù)

中的Prompt參數(shù)是在對(duì)話框中顯示提示信息，這種提示信息

是由用戶確定的，不能把它當(dāng)作輸出信息的功能，正確答案

是B。

5Bo解析：在默認(rèn)的情況3InputBoxO函數(shù)的返回值是

一個(gè)字符串，而不是變體類型。如果沒(méi)有事先聲明返回值的

類型，或聲明為變體類型，則當(dāng)把函數(shù)的返回值賦給這個(gè)變

量時(shí)，VB將是把它作為字符串來(lái)處理。因此當(dāng)需要用

InputBoxO函數(shù)輸入數(shù)據(jù)，并且需要輸入的數(shù)值參加運(yùn)算

時(shí)，必須在進(jìn)行運(yùn)算前用Vai函數(shù)（或其他函數(shù)）把它轉(zhuǎn)換為

相應(yīng)類型的數(shù)值，否則有可能會(huì)得到不正確的結(jié)果。如果正

確地聲明了返回值為變體類型，則可不必進(jìn)行類型轉(zhuǎn)換。正

確答案是B。

6Co解析：InputBoxO函數(shù)的格式為：

返回值

=InputBox（Prompt,[Title],[Default],[XPos],[YPos],[H

elpFile],[Context]）AsString

其中prompt是一個(gè)字符串，用于提示用戶輸入，是在對(duì)話框

中顯示的信息，不可省略，故選項(xiàng)A和選項(xiàng)D不正確；選項(xiàng)B

沒(méi)有類型轉(zhuǎn)換符，所以不正確Vai（字符串）函數(shù)的功能是把

自變量中的第一個(gè)字符串轉(zhuǎn)換為數(shù)值，其中的數(shù)值是一個(gè)雙

精度的實(shí)數(shù)，所以，正確答案是C。

-40-

7Bo解析：在默認(rèn)的情況下，InputBoxO函數(shù)的返回值是

一個(gè)字符串類型，而不是變體類型。如果沒(méi)有事先聲明返回

值變量的類型，或聲明為變體類型，則當(dāng)把函數(shù)的返回值賦

給這個(gè)變量時(shí)，VB將是把它作為字符串來(lái)處理。因此當(dāng)需要

用InputBox。函數(shù)輸入數(shù)據(jù)，并且需要輸入的數(shù)值參加運(yùn)算

時(shí)，必須在進(jìn)行運(yùn)算前用Vai函數(shù)(或其他函數(shù))把它轉(zhuǎn)換為

相應(yīng)類型的數(shù)值，否則有可能會(huì)得到不正確的結(jié)果。如果正

確地聲明了返回值的變體類型，則可不必進(jìn)行類型轉(zhuǎn)換；由

于本題沒(méi)有事先聲明變量，所以a和b所獲得的為字符“2”

和“6”,所以輸出“62”。正確答案是B。

8Ao解析：此題與上題看起來(lái)很類似，但是要注意此題在

給變量a、b賦值之前就聲明了變量的數(shù)據(jù)類型，VB系統(tǒng)進(jìn)行

了內(nèi)部轉(zhuǎn)換，把InputBox()函數(shù)輸入的變量轉(zhuǎn)換為了整型變

量，所以，正確答案是A。

9Bo分析：使用緊湊格式輸出，各表達(dá)式的分割符應(yīng)是分

號(hào)；使用標(biāo)準(zhǔn)式輸出，各表達(dá)式的分割符應(yīng)是逗號(hào)。

10Do解析：略°

11Ao解析：MsgBoxO函數(shù)的返回值是一個(gè)整數(shù)，這個(gè)整數(shù)

與所選擇的命令按鈕有關(guān)。MsgBox()函數(shù)所顯示的對(duì)話框中

有7種命令按鈕，返回值與這7種命令按鈕相對(duì)應(yīng)的，見(jiàn)下表。

MsgBox()函數(shù)的返回值

返I操作I符號(hào)

回常量

值

1選“確定”vbOk

按鈕

2選“取消”vbCan

按鈕cel

3選“終止”vbAbo

按鈕rt

4選“重試”vbRet

按鈕ry

5選“忽略”vblgo

按鈕re

6選“是”按vbYes

鈕

7選“否”按vbNo

鈕

表4.1MsgBox的返回值表

所以，正確答案是A。

12Do解析：此題考察Msgbox()函數(shù)的基本知識(shí)。其函數(shù)的

格式為：

返回值

=MsgBox(Prompt,[Type],[Title],[IlelpFile],[Context])

-42-

AsVbMsgBoxResult

函數(shù)的第二個(gè)參數(shù)是數(shù)值表達(dá)式，不僅僅確定按鈕的數(shù)目，

還指定按鈕的類型及圖標(biāo)的樣式，所以，正確答案是D。

13Bo解析:略0

14AO解析：Print〃計(jì)算機(jī)技術(shù)〃語(yǔ)句的作用是將字符串“計(jì)

算機(jī)技術(shù)”直接輸出到當(dāng)前窗體上，所以選項(xiàng)A