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

自測題1.......................................1

自測題2.......................................3

自測題3.......................................6

自測題4.......................................9

自測題5......................................13

自測題6......................................19

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

自測題8......................................59

自測題10.....................................77

自測題11.....................................83

自測題12.....................................86

自測題1

一、選擇題

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

版本的是（）

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

2.在正確安裝VB6.0后，可以通過多種方式啟動VB,以

下方式中不能啟動VB的是（）

A.通過“開始”菜單中的“程序”命令

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

C.通過“開始”菜單中的“運行”命令

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

3?為了用鍵盤打開菜單和執(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.運行程序D.打開工程

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

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

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

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

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

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

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

二、填空題

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

2.可以通過多種方式啟動VB,其中的兩種方式是—

和O

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

4.退出VB的快捷鍵是o

5.VB6.0的菜單欄共有個主菜單項。

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

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

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

閉。

8.工程文件的擴展名是—,窗體文件的擴展名是

____O

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

是、____、____和____O

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

形式。

答案1

一、選擇題

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

二、填空題

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

2.共有以下4種方式：

用“開始”菜單中的“程序”命令

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

使用“開始”菜單中的“運行”命令

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

3.文件退出

4.Alt+Q

5.13

6.文件打開工程打開工程

7.Esc

8..vbp.frm

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

10.固定浮動

自測題2

一、選擇題

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

A.只有窗體才是VB中的對象

B.只有控件才是VB中的對象

C.窗體和控件都是VB中的對象

D.窗體和控件不是VB中的對象

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

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

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

C.按Ctrl+F4鍵

D.按F4鍵

3.下列不能打開工具箱窗口的操作是0

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

和屬性決定。

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

是、、

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

擊每個控件。

三、編程題

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

性：

Caption這是命令按鈕

Font宋體粗體三號

VisibleFalse

Style1-Graphical

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

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

3.在窗體的任意位置畫一個文本框，然后在屬性窗口中設(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控件可插入對

象

3.TopLeftWidthHeight

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

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

按F4鍵

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

按Ctrl+PgDn或Ctrl+PgUp

5.Shift或Ctrl

三、編程題(略)

自測題3

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

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

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

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

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

A.，B.:C.\D.

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

置為“VBText”的語句為()

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

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

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

A.雙擊窗體上的某個控件B.雙擊窗體

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

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

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

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

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

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

-6-

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

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

為了裝入一個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.在窗體上畫兩個文本框和一個命令按鈕,然后在代碼窗口

中編寫如下事件過程：

PriateSubCommand1Click()

Textl.Text=，，VBProgramming/z

Text2.Text=Textl.Text

Textl.Text二〃ABCD〃

EndSub

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

和.

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

和三步。

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

期間設(shè)置。

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

一欄稱為o

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

的命令，打開對話框，然后選擇“編輯

器”選項卡中的選項。

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

別為和O

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

件即可。

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

和O

三、編程題

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

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

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

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

計”(字體大小為16)。運行該程序。

答案3

一、選擇題

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

8.B

二、填空題

1.ABCDVBProgramming

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

3.屬性窗口運行

4.對象框過程框或?qū)ο罂蜻^程/事件框

5.工具選項選項自動語法檢查

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è)計〃

EndSub

自測題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á)式有錯誤，其正確的形式是o

CONTT.DE+COS(28°)

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

-3/8+8.INT24.8

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

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

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

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

-10-

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

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

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

5+(a+b)2

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

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

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

e2+2

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

2a(7+b)

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

8e3.Ln2

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

printSgn(2)<CR>

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

a$=z，Good，，<CR>

b$二〃Morning"〈CR〉

printa$+b$<CR>

printa$&b$<CR>

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

s$二〃ABCDEFGHIJK〃〈CR>

printLeft$(s$,4)<CR>

printRight$(s$,4)<CR>

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

s$二〃ABCDEFGHIJK〃〈CR>

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

printLen(s$)<CR>

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

s$二〃ABCDEFGHIJK〃

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

printLcase$(s$)<CR>

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

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

5o

printday(now)<CR>

printmonth(now)<CR>

printyear(now)<CR>

printweekday(now)<CR>

17.在VB中，字符串常量要用括起來，日期/時間型

常量要用括起來。

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

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

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

19.下列語句的輸出結(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.雙引號#

18.Unicode12

19.12345.68

自測題5

一、選擇題

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

下列不正確的語句是

A.Print25

B.Picturel.Print25

C.Textl.Print25D.Debug.Print25

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

a=27<CR>

b=65<CR>

Printa;b<CR>

A.27A65B.A27A65C.A27A

△65D.A27AA65A

(△表示空格,下同)

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

a二〃Beijing”<CR>

b二〃ShangHai〃<CR>

Printa;b<CR>

A.BeijingAShangHaiB.ABeijingA

Shanghai

C.BeijingShangHaiD.ABeijing

△ShangHaiA

4.語句的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.語句PrintSgn(-62)+Avbs(-62)+Int(-62)的輸出結(jié)果

是

A.-36B.1C.-l

D.-72

7.以下語句的輸出結(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.以下語句的輸出結(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.在窗體上畫一個命令按鈕，然后編寫如下事件過程：

PrivateSubComandl_Click()

a=InputBox("EntertheFirstinteger")

B=InputBox(z，EntertheSecondinteger")

Printb+a

EndSub

程序運行后，單擊命令按鈕，先后在兩個輸入對話框中分

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

A.579B.123C.456

D.123456

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

PrivateSubComandlClick()

Dima,bAsInteger

a二InputBox("EntertheFirstinteger")

B=InputBox(Z/EntertheSecondinteger")

Printb+a

EndSub

程序運行后，單擊命令按鈕，先后在兩個輸入對話框中分

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

A.579B.123C.456

D.123456

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

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

A.BBBBB.空C.AAAA

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

二、填空題

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

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

s$二〃China〃

s$=〃Beijing〃

Prints$

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

a%=3.14156

Printa%

4.設(shè)a=Sqr(2)*Sqr(3),下列語句的輸出結(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

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

、、、O

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

x=8

Printx+l;x+2;x+3

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

x=8.6

y=Int(x+0.5)

Printy

三、編程題

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

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

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

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

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

2,編寫程序，求解雞兔同籠問題。一個籠子中有雞x只,

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

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

答案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.對變量x四舍五入后取整

三、編程題（略）

-18-

自測題6

一、選擇題

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

A.TextB.NameC.CaptionD.BackStyle

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

A.MouseiconB.IconC.Picture

D.MousePointer

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

False,這個屬性是

A.ControlBoxB.MinButtonC.Enabled

D.MaxButton

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

A.ControlBoxB.MinButtonC.Enabled

D.MaxButton

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

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

置為

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

6.使文本框獲得焦點的方法是

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中的語句為

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為了在按下回車鍵時執(zhí)行某個命令按鈕的事件過程，需

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

A.ValueB.DefaultC.CancelD.Enabled

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

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

A.ValueB.DefaultC.CancelD.Enabled

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

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

確方法是

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

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

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

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

回車

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

A.AlignB.AlignmentC.SortedD.Value

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

為

A.ColumnsB.StyleC.ListD.MultiSelect

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

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

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

17.刪除列表框中指定的項目所使用的方法是

A.MoveB.RemoveC.ClearD.Removeitem

-20-

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

A.MoveB.ChangeC.ScollD.SetFocus

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

得，這個屬性是

A.ListB.ListIndexC.TextD.ListCount

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

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

Command1）,然后編寫如下兩個事件過程：

PrivateSubCommand1_Click（）

a=Textl.Text+Text2.Text

Printa

EndSub

PrivateSubForm_Load（）

Textl.Text二〃〃

Text2.Text二〃〃

EndSub

程序運行后，在第一個文本框和第二個文本框中分別輸入

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

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

二、填空題

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

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

自測題答案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.下拉式組合框簡單組合框下拉式列表框Style012

11.下拉式列表框

12.ItemAItemC

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

練習(xí)題7

一、選擇題（每題只有一個正確答案）

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

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

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

0過程結(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交換的語句是：（）

A）A二B:B二AB）

A=B:B=C:C=A

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

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

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è)計的對話框，其功能是()。

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

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

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

D)專門用于輸出信息

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

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

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

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

()。

A)a=InputBox()

B)a二InputBox(〃請輸入一個值〃)

C)a二Vai(InputBox(〃請輸入一個值”))

D)a=Val(InputBox())

7在窗體上有一個命令按鈕，然后編寫如下事件過程

PrivateSubCmdlClickO

a=InputBox("EntertheFirstInteger")

b=InputBox("EntertheSecondInteger")

Printb+a

EndSub

程序運行后，單擊命令按鈕，先后在兩個輸入框中分別輸

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

A)2B)62

C)8D)26

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

PrivateSubComandlClick（）

DimaAsInteger,bAsInteger

a=InputBox（"EntertheFirstInteger"）

B=InputBox（''EntertheSecondInteger"）

Printb+a

EndSub

程序運行后，單擊命令按鈕，先后在兩個輸入對話框中分

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

A）579B）123

C）456D）123456

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

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

A）空格B）逗號

0冒號D）分號

10設(shè)有語句：

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

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

列敘述中正確的是（）o

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

-24-

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

00是默認(rèn)值

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

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

A）整型B）變體類型

O字符串型D）日期型

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

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

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

型

C）MsgBox語句沒有返回值

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

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

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

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

A）BBBBB）空C）AAAAD）

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

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

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

〃計算機技術(shù)〃

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

計算機技術(shù)〃

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

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

后，x的值為()。

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

16運行下列程序段后，顯示的結(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下列語句正確的是()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對話框在關(guān)閉之前，不能繼續(xù)執(zhí)行其他操作，這種對話

框?qū)儆冢ǎ﹐

A）輸入對話框B）輸出對話框

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

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語句中錯誤的是()。

A)Case0To10B)CaseIs>10

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

二、填空題

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

是O

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

CmdMax時，窗體上顯示〃字體由小變大〃，字號每次增加2；

單擊CmdMin時，窗體上顯示“字體由大變小”，字號每次減

小2。請?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

圖程序運行界面

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

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

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

PrivateSubCommandl_Click()

x=Val(Textl.Text)

IfThen

Printx

Else

Textl.Text二〃〃

EndIf

EndSub

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

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

請?zhí)羁铡?/p>

PrivateSubCommandlClick()

DimnumXAsInteger

numX二Vai(InputBox(〃請輸入一個整數(shù)〃))

IfThen

Forml.Print

EndIf

EndSub

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

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

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

PrivateSubCommandl_Click()

num=Val(Textl.Text)

IfThen

Printnum

Else

Textl.Text二〃〃

EndIf

EndSub

-32-

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

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

x2+y2x>0,y>0

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

y2-2x?其它

程序不完整，請?zhí)羁?，將程序的補充完整。

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在窗體上有一個“背景色變換”按鈕和一個“結(jié)束”按鈕。

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

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

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

請?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時,y=0.8Xx；當(dāng)50WxW100

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

PrivateSubCommandlClick()

DimxAsSingle

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

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,則打印“您的成績?yōu)閮?yōu)秀！若Text為2,則

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

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

PrivateSubCommandlClickO

SelectCaseVai(Textl.Text)

Case____________

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

Case____________

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

Case____________

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

CaseElse

Print〃您的成績一般以下！〃

EndSelect

EndSub

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

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

體，程序如下：

PrivateSubCommandl_Click()

Form2.________

EndSub

試補充完整。

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

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

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

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

-36-

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

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

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

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

圖程序運行界面

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è)計題

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

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

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

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

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

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

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

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

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

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

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

信息。

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

-38-

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

時字體顏色變?yōu)榧t色，移開以后，字幕繼續(xù)移動，字體變?yōu)?/p>

原來的顏色。

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

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

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

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

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

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

形。

參考答案7

一、選擇題

1Do

2Co解析：此題考查變量交換這一知識點，首先要將其中

的一個變量賦值給中間變量，A是錯誤的，B、D是交換時沒

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

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

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

用第一個變量減去第二個變量賦值給第二個變量，然后用

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

案D是正確的。

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

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

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

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

是B。

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

一個字符串，而不是變體類型。如果沒有事先聲明返回值的

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

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

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

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

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

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

確答案是B。

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

返回值

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

elpFile],[Context]）AsString

其中prompt是一個字符串，用于提示用戶輸入，是在對話框

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

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

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

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

-40-

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

一個字符串類型，而不是變體類型。如果沒有事先聲明返回

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

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

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

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

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

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

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

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

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

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

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

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

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

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

10Do解析：略°

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

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

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

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

返I操作I符號

回常量

值

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ù)的

格式為：

返回值

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

-42-

AsVbMsgBoxResult

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

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

13Bo解析:略0

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

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