2021年Vb程序設(shè)計(jì)期末考試題庫(附答案)

2021年Vb程序設(shè)計(jì)期末考試題庫（附答案）

目錄

習(xí)題一..........................................................................2

1、選擇題.......................................................................2

2、判斷題.......................................................................3

3、程序設(shè)計(jì)題....................................................................3

習(xí)題二..........................................................................4

1、單選題.......................................................................4

2.判斷題.......................................................................5

3.程序設(shè)計(jì)題..................................................................5

習(xí)題三..........................................................................6

1.選擇題.......................................................................6

2.程序閱讀題（寫出下列程序的運(yùn)行結(jié)果）.......................................6

3.程序填空題..................................................................8

4.程序設(shè)計(jì)題.................................................................9

習(xí)題四..........................................................................9

1.選擇題.......................................................................9

2.程序閱讀題（寫出下列程序的運(yùn)行結(jié)果）......................................10

3.程序填空題.................................................................11

4.程序設(shè)計(jì)題.................................................................12

習(xí)題五.........................................................................13

1.選擇題......................................................................13

2.程序閱讀題（寫出下列程序的運(yùn)行結(jié)果）......................................13

3.程序填空題.................................................................14

4.程序設(shè)計(jì)題..................................................................15

習(xí)題六.........................................................................15

1.選擇題......................................................................15

2.程序填空題.................................................................17

3.程序設(shè)計(jì)題.................................................................18

習(xí)題七.........................................................................20

1.選擇題......................................................................20

2.程序填空題.................................................................21

3.程序設(shè)計(jì)題..................................................................21

習(xí)題八.........................................................................22

1.判斷題......................................................................22

2.單選題......................................................................22

3.填空題......................................................................24

4.程序填空...................................................................24

五、程序設(shè)計(jì)題................................................................26

習(xí)題九.........................................................................26

1.選擇題：...................................................................26

2.填空題......................................................................27

3.程序閱讀題.................................................................28

3.編程題：...................................................................29

習(xí)題十.........................................................................29

1.選擇題......................................................................29

2.程序設(shè)計(jì)題.................................................................31

習(xí)題參考答案...................................................................33

習(xí)題一

1、選擇題

1.工程文件的擴(kuò)展名為。

A、,frxB、,basC、,vbpD、?frm

2.下列不屬于對(duì)象的基本特征是_______

A、屬性B、方法C、事件D、函數(shù)

3.在設(shè)計(jì)模式雙擊窗體將顯示的窗口是

A、工程窗口B、工具箱C、代碼窗口D、屬性窗口

4.VB中運(yùn)行程序的快捷鍵是

A、F2B、F5C、Alt+F3D、F8

5.改變控件在窗體中的上下位置應(yīng)修改該控件的____屬性。

A、TopB、LeftC、WidthD、Right

A、,exeB、,basC、,frxD、frm

7.設(shè)置窗體的字體用屬性。

A、FontNameB、FontSizeC、FontBoldD、Fontltalic

屬性。

A、FontNameB、FontSizeC、FontBoldD、Fontltalic

9.下列選項(xiàng)中不屬于事件的是。

A、DblclickB、LoadC、ShowD、KeyUp

10..VB編制的程序保存在磁盤上，至少會(huì)產(chǎn)生何種文件___o

A、?B、??C、?D、?

2、判斷題

1.VisualBasic是以結(jié)構(gòu)化的Basic語言為基礎(chǔ)、以事件驅(qū)動(dòng)作為運(yùn)行機(jī)制的

可視化程序設(shè)計(jì)語言。

2.面向?qū)ο蟮某绦蛟O(shè)計(jì)是一種以對(duì)象為基礎(chǔ)，由事件驅(qū)動(dòng)對(duì)象的編程技術(shù)。

3.事件是由VisualBasic預(yù)先定義的對(duì)象能夠識(shí)別的動(dòng)作。

4.新建工程時(shí)系統(tǒng)會(huì)自動(dòng)將窗體標(biāo)題設(shè)置為Forml。

5.控件的屬性值不可以在程序運(yùn)行時(shí)動(dòng)態(tài)地修改。

6.決定對(duì)象是否可見的屬性為Visible屬性，決定對(duì)象可用性的屬性是Enabled

屬性。

7.保存VisualBasic文件時(shí)，若一個(gè)工程包含多個(gè)窗體或模塊，則系統(tǒng)先保

存工程文件，再分別保存窗體或模塊文件。

8.單擊“啟動(dòng)”菜單項(xiàng)將窗體裝入內(nèi)存時(shí)，一定觸發(fā)窗體的Load事件。

9.“事件過程”是用來完成事件發(fā)生后所要執(zhí)行的程序代碼。

10.在打開某窗體時(shí)，初始化該窗體中的各控件，應(yīng)選用Load事件。

3、程序設(shè)計(jì)題

1.新建一個(gè)工程，單擊窗體時(shí)，在窗體上顯示“歡迎使用VisualBasic程序”。

生成可執(zhí)行文件，保存到D盤根目錄下。

2.建立一個(gè)工程，界面如圖1-28所示。它由一個(gè)窗體、兩個(gè)文本框和兩個(gè)命

令按鈕組成。單擊“拷貝”按鈕，可以將第一個(gè)文本框中顯示的內(nèi)容復(fù)制到第

二個(gè)文本框中；單擊“退出”按鈕退出應(yīng)用程序。

圖1-28題2界面圖1-29題3界面

3.在窗體上添加一個(gè)標(biāo)簽和兩個(gè)命令按鈕，并把兩個(gè)命令按鈕的標(biāo)題分別設(shè)置

為“隱藏標(biāo)簽”和“顯示標(biāo)簽”。當(dāng)單擊第一個(gè)命令按鈕時(shí)，標(biāo)簽消失；而當(dāng)單

擊第二個(gè)命令按鈕時(shí)，標(biāo)簽重新出現(xiàn)，并且標(biāo)簽中顯示“VB程序設(shè)計(jì)”。界面如

圖1-29所示。

習(xí)題二

1、單選題

以下合法的VisualBasic標(biāo)識(shí)符是。

A、ForLoopB、ConstC、9abcD、A#x

下列可作為VisualBasic變量名的是。

A、a#aB、4aC、?xyD、Consta

表達(dá)式6*7/8Mod9的值是o

A、4B、5C、6D、7

將數(shù)學(xué)表達(dá)式cos“a+b)+5e2寫成VisualBasic表達(dá)式，其正確的形式是

A、cos(a+b)"2+5*Exp(2)B、cos"2(a+b)+5*Exp(2)

C、cos(a+b)*2+5*Ln(2)D、cos'2(a+b)+5*Ln(2)

數(shù)學(xué)關(guān)系3WxV10表示成正確的VB表達(dá)式為o

A、3<=x<103<=xandx<10

C、x>3orx<10D、3<=xand<10

設(shè)x=4,y=8,z=7,表達(dá)式x〈yand(noty>z)orz〈x的值是。

A、1B、-1C、TrueD、False

已知變量a、b、c中c最小，下列判別a、b、c能否構(gòu)成三角形的邏輯表達(dá)式

為O

A、a>=bandb>=candc>0B、a+c>bandb+c>aandc>0

C、(a+b>=cora-b<=c)andc>0D、a+b>canda-b<candc>0

下面進(jìn)行算術(shù)運(yùn)算符號(hào)的是o

A、ImpB、ModC、NotD、Like

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

A、LtrimB、RtrimC、TrimD、Mid

Rnd函數(shù)不可能為下列______值。

A、0B、1C、D、

Int(*100+)/100的值是o

A、198B、C、D、200

如果x是一個(gè)正實(shí)數(shù)，對(duì)x的第3位小數(shù)四舍五入的表達(dá)式是o

A、*Int(x+)B、*Int(100*(x+))

C.、*Int(100*(x+))D.、*Int(x+)

執(zhí)行語句s=len(Mid(VisualBasic”,1,6))后，s的值為。

A、VisualB、BasicC、6D、11

描述x、y中有一個(gè)小于z的邏輯表達(dá)式是o

<zandy<z<zory<z<znoty<z<y<z

Int(Rnd*100)表示的是范圍內(nèi)的數(shù)。

A、[0,100]B、[1,99]C、[0,99]D、[1,100]

輸入對(duì)話框inputbox的返回值的類型是o

A、字符串B、整數(shù)C、浮點(diǎn)數(shù)D、長整數(shù)

在一行內(nèi)寫多個(gè)語句時(shí)，每個(gè)語句之間要用符號(hào)分隔。

A、，B、；C>：D、、

一個(gè)語句要在下一行中繼續(xù)書寫，可以用符號(hào)作為續(xù)行符。

A、+B、-C、_D、…

下列聲明語句中錯(cuò)誤的是。

A、Constvarl=123B、Dimvar2='abc'

C、dima,basstringD、dimvar3asinteger

PrintNot10>15And8<5+2的輸出結(jié)果為。

A、8B>7C、trueD、false

2.判斷題

1.用DIM定義數(shù)值變量時(shí)，該數(shù)值變量自動(dòng)賦初值為Oo

2,整型數(shù)值常量有整數(shù)，長整數(shù)兩種。

3在邏輯運(yùn)算符Not、Or、And中，運(yùn)算優(yōu)先級(jí)由高到低依次為Not、Or、And。

4關(guān)系表達(dá)式是用來比較兩個(gè)數(shù)據(jù)的大小關(guān)系的，結(jié)果為邏輯值。

5一個(gè)表達(dá)式中若有多種運(yùn)算，同一層括號(hào)內(nèi)，計(jì)算機(jī)按邏輯運(yùn)算一關(guān)系運(yùn)算一

算術(shù)運(yùn)算的順序?qū)Ρ磉_(dá)式求值。

6賦值語句的功能是計(jì)算機(jī)表達(dá)式并轉(zhuǎn)換為相同類型數(shù)據(jù)后為變量或控件屬性

賦值。

3.程序設(shè)計(jì)題

1.編寫窗體的單擊事件代碼，求一任意三角形的面積，三角形的三條邊a、b、

c通過Inputbox函數(shù)輸入，計(jì)算的結(jié)果存入S變量中，并以消息框的形式輸出。

提示：任意三角形的面積公式丁）。%）（f七）,tt（aGbGc）/2

2.編寫一段代碼，求給定的一個(gè)圓的周長和面積。要求：

（1）圓的半徑r利用Inputbox函數(shù)從鍵盤任意輸入（r>0）。

（2）圓周率定義為符號(hào)常量。

（3）利用賦值語句將求出的周長和面積賦給變量L和S。

（4）用Print方法輸出詳細(xì)結(jié)果。

習(xí)題三

1.選擇題

1.執(zhí)行以下語句后的結(jié)果為O

DimxAsInteger

IfxThenPrintxElsePrintx-1

A、1B、0C>-1D、不確定

2.下列關(guān)于SelectCase測試表達(dá)式的敘述中，錯(cuò)誤的是。

A、只能是變量名B、可以是整型C、可以是字符型D、可以是

浮點(diǎn)類型

3.下列關(guān)于SelectCase的敘述中，錯(cuò)誤的是。

A、Case10To100表示判斷Is是否介于10與100之間

B、Case"abc","ABC"表示判斷Is是否和“abc“、“ABC”兩個(gè)字符串

中的一個(gè)相同

C、Case"X"表示判斷Is是否為大寫字母X

D、Case-7,0,100表示判斷Is是否等于字符串”-7,0,100"

4.由“Fori=lTo16Step3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行次。

A、4B、5C、6D、7

5.若i的初值為8,則下列循環(huán)語句的循環(huán)次數(shù)為次。

DoWhilei<=17

i=i+2

Loop

A、3次B、4次C、5次D、6次

6.由“Fori=lTo9Step-3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行次。

A、4B、5C、6D、0

2.程序閱讀題(寫出下列程序的運(yùn)行結(jié)果)

程序L請寫出單擊窗體后，窗體上的顯示結(jié)果。

PrivateSubForm_Click()

DimxAsInteger,yAsInteger

x=5

y=-20

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

Printx-y;y-x

EndSub

程序2.請寫出單擊窗體后，窗體上的顯示結(jié)果。

PrivateSubForm_Click()

DimaAsString,bAsString

a=''abed''

b=HcdefH

e=Right(a,3)

f=Mid(b,2,3)

Ife<fThenPrinte+fElsePrintf+e

EndSub

程序3.請寫出單擊窗體后，窗體上的顯示結(jié)果。

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

DimnAsInteger

n=0

Fori=1To3

Forj=5To1Step-1

n=n+1

Nextj,i

Printn;j;i

EndSub

程序4.請寫出單擊窗體后，窗體上的顯示結(jié)果。

PrivateSubForm_Click()

DimiAsInteger

StaticSumAsInteger

Fori=lTo10

Sum=Sum+i

Nexti

PrintSum

EndSub

程序5.請寫出單擊命令按鈕后，窗體上的顯示結(jié)果。

PrivateSubCommandl_Click()

DimsAsInteger,iAsInteger

s=1

i=l

DoWhilei<=4

s=s*i

i=i+l

Loop

Prints

EndSub

程序6.請寫出單擊命令按鈕后，窗體上的顯示結(jié)果。

PrivateSubCommandl_Click()

DimiAsInteger

DoUntili>=3

PrintTab(4*i+1);

i=i+l

Loop

EndSub

3.程序填空題一句一/十…十一方

i.【程序說明】下面是一段計(jì)算數(shù)學(xué)表達(dá)式

的程序。

PrivateSubForm_Click()

DimnAsInteger,pAsInteger,sAsSigle,qAsInteger,iAsInteger

n=InputBox("請輸入N的值:“)

s=0：p=-1：q=1

Fori=1Ton

p=-p:q=Q)

s=______(2)__________

(3)

Prints

EndSub

2.【程序說明】下列程序用于計(jì)算1+(1+3)+(1+3+5)+???+(1+3+5+…+39)。

PrivateSubForm_Click()

DimtAsInteger,mAsInteger

DimsumAsInteger

t=0

m=1

sum=0

Do

t=(1)________

sum=sum+t

(2)_________

LoopWhile(3)

PrintHsum=n;sum

EndSub

3.【程序說明】下列程序在文本框Textl中輸入任一字符串，并按相反的順序顯

示在文本框Text2中。

PrivateSubCommandl_Click()

DimnAsString,cAsString,dAsString

n=

m=(1)_______

Fori=mTo1Step-1

c=Mid(n,i91)

d=______(2)

Nexti

(3)

EndSub

4.程序設(shè)計(jì)題

1.用InputBox函數(shù)輸入3個(gè)任意整數(shù)，按從大到小的順序輸出。

2.編程，輸入x值，按下式計(jì)算并輸出y值。

x—5x>5

x21<x<5

y=/(%)=〈二

7xO<x<1

Ox<0

3.計(jì)算下式的和，變量x與n的數(shù)值用輸入對(duì)話框輸入。

35

.XXX

sinx?----------1----_-二+…+(-1尸?———

13!5!7!(2〃-1)!

4.用近似公式求自然對(duì)數(shù)的底數(shù)e的值，直到前后兩項(xiàng)之差小于10“為止。

111

e?1-F--+-1---------H.

1!3!

習(xí)題四

1.選擇題

1.窗體通用部分的語句“OptionBasel”，決定本窗體中數(shù)組下標(biāo)界。

A、下界必須為1B、缺省的下界為1C、下界必須為0D、缺省的下

界為0

2.用Dimc(2to5)AsInteger語句定義的數(shù)組占用個(gè)字節(jié)的內(nèi)存空間。

A、4B、8C、6D、10

3.以下是VB合法的數(shù)組元素。

A、x9B、x[9]C、x(9)D、x{9}

4.設(shè)有數(shù)組聲明語句：Dima(2,3to4)AsInteger

以上語句所定義的數(shù)組a為維數(shù)組，共有個(gè)元素，第一維下標(biāo)從

到,第二維下標(biāo)從到。

A、0B、1C、2D、3E、4F、5G、6H、

2.程序閱讀題(寫出下列程序的運(yùn)行結(jié)果)

程序L在窗體中添加一個(gè)命令按鈕，名稱為Commands然后編寫如下程序：

PrivateSubCommandl_Click()

Dima(5)AsInteger,b(5)AsInteger

Forj=1to4

a(j)=3*j

b(j)=a(j)*3

Nextj

=b(j\2)

EndSub

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

程序2.在窗體中添加一個(gè)命令按鈕(其Name屬性為Commandl),然后編寫

如下代碼：

PrivateSubCommandl_Click()

Dima(10)AsInteger

Dimp(3)AsInteger

k=l

Fori=1To10

a(i)=i

Nexti

Fori=1To3

p(i)=a(i*2)

Nexti

Fori=1To3

k=k+p(i)*2

Nexti

Printk

EndSub

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

程序3.請寫出單擊窗體后，窗體上的顯示結(jié)果。

PrivateSubForm_Click()

Dima(5,5)AsByte,iAsByte,jAsByte

Fori=1To5:Forj=1To5

a(i,j)=i*j

Nextj,i

Fori=1To5:Printa(i,i);:Nexti

EndSub

程序4.請寫出單擊窗體后，窗體上的顯示結(jié)果。

PrivateSubForm_Click()

Dima(lTo2,1To3)AsInteger,iAsInteger,jAsInteger

Fori=1To2

Forj=1To3

a(ij)=i+j：PrintTab(j*5+2);a(i,j),

Nextj

Print

Nexti

EndSub

3.程序填空題

1.【程序說明】以下程序產(chǎn)生30個(gè)兩位隨機(jī)整數(shù)、并按從小到大的順序存入數(shù)

組a中，再將其中的奇數(shù)按從小到大的順序在窗體中用緊湊格式輸出。

PrivateSubForm_Click()

Dima(30)Asbyte,iasByte,jAsByte,mAsByte

Fori=1To30:a(i)=⑴：Nexti

Fori=1To29

Forj=⑵

Ifa(i)>a(j)Then

m=a(i):(3):a(j)=m

EndIf

Nextj,i

Fori=1To30

If⑷ThenPrinta(i);

Nexti

EndSub

2.【程序說明】以下程序產(chǎn)生20個(gè)兩位隨機(jī)整數(shù)存于數(shù)組之中，打印數(shù)組中大

于50的數(shù)，并求出這些數(shù)的和。

PrivateSubCommandl_Click()

Dimarr(lTo20)AsInteger

DimiAsInteger,sumAsInteger

Fori=1To20

arr(i)=U)

Nexti

sum=0

Fori=1To20

If⑵Then

Printarr(i);

sum=(3)

EndIf

Nexti

PrintTab(2);nsum=H;sum

EndSub

3.【程序說明】下列程序用來在窗體上輸出如圖4-2所示大小可變的正方形數(shù)據(jù)。

Dima()AsInteger

PrivateSubForm_Click()

DimnAsInteger,iAsInteger

DimjAsInteger,kAsInteger

iiiForml-1□!x|

n=Val(InputBox("請輸入數(shù)據(jù)：”))11111

22222

⑴23332

23432

Fori=1To⑵23332

Forj=iTon-i+122222

11111

Fork=iTon-i+1

_________⑶

Nextk,j,i

Fori=1Ton圖*2n為7時(shí)的輸出圖形

Forj=1Ton

PrintTabQ*3)；a(ij);

Nextj

⑷

Nexti

EndSub

4.程序設(shè)計(jì)題

1.設(shè)有a,b兩矩陣，編程完成兩個(gè)矩陣的相乘，結(jié)果存入c矩陣中。

一222

666

2.編程產(chǎn)生10個(gè)［20,40］之間的隨機(jī)整數(shù)存于一維數(shù)組a中，將a數(shù)組中的元

素依次向后移動(dòng)一個(gè)位置，最后一個(gè)元素移動(dòng)到第一個(gè)元素的位置上。

3.用二分法對(duì)已排好序(升序)的數(shù)據(jù)進(jìn)行檢索。

說明：二分查找法是對(duì)一批有序的數(shù)，取其中間元素，如果該元素是要找

的數(shù)(key),輸出該數(shù)的位置，否則，如果該元素大于key,則查找數(shù)列的范圍

縮小到該元素的前一個(gè)元素；如果該元素小于key,則查找數(shù)列的范圍縮小為該

元素的后一個(gè)元素到數(shù)列尾。重復(fù)上述方法，直到查找的數(shù)列范圍縮小到0個(gè)

元素。

習(xí)題五

1.選擇題

1.在過程調(diào)用中，參數(shù)的傳遞可以分為和兩種方式。

A、按值傳遞B、按地址傳遞C、按參數(shù)傳遞D、按位置傳遞

2.在參數(shù)傳遞過程中，使用關(guān)鍵字來修飾參數(shù)，可以使之按值傳遞。

A、ByVaiB>ByRefC>ValueD、Reference

3.在窗體模塊的通用聲明段中聲明變量時(shí)，不能使用關(guān)鍵字。

A、DimB、PublicC、PrivateD、Static

4.要想在過程調(diào)用后返回兩個(gè)結(jié)果，下面的過程定義語句合法的是0

A、Subp(Byvaln,Byvalm)B、Subp(n,byvalm)

C、Subp(n,m)D、Subp(Byvaln,m)

5.Sub過程與Function過程最根本的區(qū)別是。

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

不可以

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

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

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

2.程序閱讀題(寫出下列程序的運(yùn)行結(jié)果)

程序L請寫出三次單擊命令按鈕后，窗體上的顯示結(jié)果。

PrivateSubp()

StaticsAsInteger

DimiAsInteger

Fori=1To10Step2

s=s+i

Nexti

Prints;

EndSub

PrivateSubCommandl_Click()

Callp

EndSub

程序2.請寫出單擊命令按鈕后，窗體上的顯示結(jié)果。

PrivateSubs(xAsSingle,yAsSingle)

DimmAsSingle

m=x

x=m/y

y=tMody

EndSub

PrivateSubCommandl_Click()

DimaAsSingle,bAsSingle

a=8

b=5

Calls(a9b)

Printa,b

EndSub

3.程序填空題

1.【程序說明】如果兩個(gè)質(zhì)數(shù)的差為2,就稱這兩個(gè)質(zhì)數(shù)為質(zhì)數(shù)對(duì)。下列程序用

于輸出100以內(nèi)的質(zhì)數(shù)對(duì)。

PrivateFunctionp(mAsInteger)AsBoolean

DimiAsInteger

⑴

Fori=2ToSqr(m)

If(2)Thenp=False:ExitFor

Nexti

EndFunction

PrivateSubCommandl_Click()

DimiAsInteger

DimplAsBoolean,p2AsBoolean

pl=P(3)

Fori=5To99Step2

p2=p(i)

IfplAndp2ThenPrint(3)

pl=p2

Nexti

EndSub

2.【程序說明】下列過程用選擇法對(duì)double類型數(shù)組按值從小到大排序。

PrivateSubSort((1])

DimiAsInteger,jAsInteger,kAsInteger,tAsDouble

Fori=1To(2)

k=i

Forj=i+1Ton

If⑶Thenk=j

Nextj

t=a(i):a(i)=a(k):a(k)=t

Nexti

EndSub

3.【程序說明】下列程序用于將一維數(shù)組反序排放。

PrivateSubswap(b()AsInteger,nAsInteger)

DimmAsInteger,iAsInteger

Fori=1To⑴

m=b(i)

b(i)=⑵

b(n-i+1)=m

Nexti

EndSub

PrivateSubCommandl_Click()

Dima(lTo10)AsInteger

DimiAsInteger

Fori=1To10

a(i)=i

Printa(i);

Nexti

Print

Callswap([3])

Fori=1To10

Printa(i);

Nexti

EndSub

4.程序設(shè)計(jì)題

1.編制通用函數(shù)過程，計(jì)算Double類型一維數(shù)組所有元素的平均值。

2.編制通用Sub過程，在一個(gè)m行n列二維數(shù)組中查找絕對(duì)值最大的元素，

以及該元素的行號(hào)、列號(hào)(提示：Sub過程的形參列表如x()AsSingle,mAsbyte,

nAsByte,xmaxAsSingle,kiAsByte,kjAsByte)。

習(xí)題六

1.選擇題

1.要為按鈕設(shè)計(jì)一個(gè)訪問鍵A,應(yīng)該在Caption中加入

A.&AB.@AC.$AD.#A

2.要把按鈕設(shè)置為不可使用，應(yīng)設(shè)置屬性為False。

A.EnableB.DefaultC.CancelD.Caption

3.要使按鈕能夠顯示圖片，應(yīng)先設(shè)置_______屬性。

A.StyleB.EnableC.IndexD.Caption

4.將命令按鈕Commandl設(shè)置為窗體的缺省按鈕，可修改該控件的

屬性。

A.EnabledB.ValueC.DefaultD.Cancel

5.將焦點(diǎn)主動(dòng)設(shè)置到指定的控件或窗體上，應(yīng)采用方法。

A.SetDateB.SetFocusC.SetTextD.SelText

6.要使標(biāo)簽控件的大小能隨Caption屬性的大小自動(dòng)調(diào)整，應(yīng)該設(shè)置

屬性為Trueo

A.EnabledB.VisibleC.AutoSizeD.Alignment

7.要使文本框顯示滾動(dòng)條，需先設(shè)置_______屬性。

A.AutoSizeB.MultiLineC.AlignmentD.ScrollBars

8.下列屬性表示文本框中選定的內(nèi)容。

A.SelLengthB.TextC.CaptionD.SelText

9.下列控件沒有Caption屬性。

A.命令按鈕B.標(biāo)簽C.框架D.文本框

10.下列不能接收焦點(diǎn)的控件是-

A.命令按鈕B.文本框C.標(biāo)簽D.列表框

11.改變文本框中文字的顏色，應(yīng)該修改屬性。

A.BackColorB.ForeColorC.FontD.FontBold

12.選中單選按鈕控件時(shí)，Value屬性的值為。

A.TrueB.FalseC.0D.1

13.選中復(fù)選框控件時(shí)，Value屬性的值為。

A.TrueB.FalseC.0D.1

14.若要在同一窗體中安排兩組單選按鈕(OptionButton)可用控件

予以分隔。

A.文本框B.框架C.列表框D.組合框

15.下列對(duì)象具有編輯功能，即運(yùn)行時(shí)可以進(jìn)行輸入或修改。

A.下拉式列表框B.下拉式組合框C.復(fù)選框D.標(biāo)簽

16.不能通過來刪除列表框中的表項(xiàng)。

A.Removeitem方法B.Clear方法C.Text屬性

17.若要把“XXX”成為Listl清單中的第三項(xiàng)，則可執(zhí)行語句o

A."XXX",3B."XXX",2

C.3,"XXX"D.2,"XXX"

18.設(shè)置列表框各表項(xiàng)中的文本，用屬性。

A.SelectedB.ListC.TextD.Caption

19.下面表示列表框控件Listl的最后一個(gè)項(xiàng)目。

A.()B.()

C.()D.()

20.o

A.刪除最后一項(xiàng)B.刪除所有項(xiàng)C.出錯(cuò)D.顯示所有項(xiàng)

21.下列關(guān)于組合框的說法中，正確的是o

A.組合框有Click事件，沒有Change事件。

B.組合框有Change事件，沒有Click事件。

C.組合框既有Change事件，也有Click事件。

D.組合框沒有Change事件和Click事件。

22.滾動(dòng)條的屬性用于指定用戶單擊滾動(dòng)條的滾動(dòng)箭頭時(shí),Value屬性

值的增減量。

A.LargeChangeB.SmallChangeC.ValueD.Change

23.單擊滾動(dòng)條兩端的任意一個(gè)滾動(dòng)箭頭，都將觸發(fā)該滾動(dòng)條的事件。

A.KeyDownB.ChangeC.ScrollD.Click

24.下列事件中，能夠觸發(fā)滾動(dòng)條的Scroll事件。

A.單擊滾動(dòng)條兩端的滾動(dòng)箭頭B.單擊滾動(dòng)條上滑塊兩側(cè)的空白處

C.單擊滾動(dòng)條上的滑塊D.拖動(dòng)滾動(dòng)條上的滑塊

25.在任何情況下，控件在運(yùn)行時(shí)都不可見。

A.標(biāo)簽B.按鈕C.復(fù)選框D.定時(shí)器

26.下列控件沒有Value屬性。

A.滾動(dòng)條B.復(fù)選框C.定時(shí)器D.單選按鈕

27.下列設(shè)置中，可以使定時(shí)器Timerl停止計(jì)時(shí)的是。

A.=TrueB.=False

C.Timerl.Enabled=TrueD.Timerl.Enabled=False

28.定時(shí)器控件的屬性決定Timer事件發(fā)生的時(shí)間間隔。

A.IntervalB.TopC.VisibleD.Enabled

29.要將一個(gè)控件設(shè)置成為一個(gè)控件數(shù)組，應(yīng)該設(shè)置_______屬性。

A.IndexB.TabindexC.CaptionD.Enabled

30.下面有關(guān)控件數(shù)組的說法，錯(cuò)誤的是：o

A.控件數(shù)組由一組具有共同名稱和相同類型的控件組成。

B.控件數(shù)組中的每一個(gè)控件共享同樣的事件過程。

C.控件數(shù)組中的每個(gè)元素的下標(biāo)由控件的Index屬性指定。

D.同一控件數(shù)組中的元素只能有相同的屬性設(shè)置。

2.程序填空題

1、程序說明：密碼驗(yàn)證程序。在窗體上已建立一個(gè)標(biāo)簽Label1、文本框Textl

和命令按鈕Commandl。請將以下事件過程填完整。

PrivateSubForm_Load()

Textl.______OL_________=〃*〃

EndSub

PrivateSubCommand1_Click()

If(2)=〃ABC〃Then,密碼不區(qū)分大小寫

MsgBox”密碼正確”

Else

MsgBox〃密碼錯(cuò)誤〃

EndIf

EndSub

2、以下程序用于實(shí)現(xiàn)字符串的反轉(zhuǎn)。在Textl中輸入字符串并按回車確認(rèn)后，

在Text2中顯示反轉(zhuǎn)字符串，請將程序補(bǔ)充完整。

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

DimiAsInteger,xAsString,yAsString

If⑴Then

x=

⑵

Fori=nTo1Step-1

(3)

Nexti

⑷

EndIf

EndSub

3、以下程序可以將列表框中同時(shí)選中的多個(gè)列表項(xiàng)刪除，請將程序補(bǔ)充完整。

PrivateSubCommandl_Click()

i=0

DoWhilei<(1)

If(i)=TrueThen

⑵

Else

⑶

EndIf

Loop

EndSub

4、程序說明：在窗體上有一個(gè)標(biāo)簽Label1和一個(gè)水平滾動(dòng)條Hscrolll,其Min

的值為0,Max的值為100,程序運(yùn)行后，單擊滾動(dòng)條兩端的箭頭和拖動(dòng)滾動(dòng)

滑塊時(shí)，在標(biāo)簽中實(shí)時(shí)顯示滾動(dòng)條的值。

PrivateSubHScrolllU)()

(2)

EndSub

PrivateSubHScrolll(3)()

⑷

EndSub

3.程序設(shè)計(jì)題

i、編程實(shí)現(xiàn)文本框內(nèi)文本信息的剪切、復(fù)制和粘貼的功能。界面設(shè)計(jì)如圖1所

示，要求各命令按鈕為一個(gè)控件數(shù)組。

a)程序剛運(yùn)行時(shí)3個(gè)命令按鈕都不能響應(yīng)。

b)選擇文本后，“剪切”和“復(fù)制”按鈕能響應(yīng)。

c)單擊“剪切”或“復(fù)制”按鈕后，只有“粘貼”按鈕能響應(yīng)。

d)單擊“粘貼”按鈕后，3個(gè)命令按鈕都不能響應(yīng)。

圖6-35程序設(shè)計(jì)題1的界面設(shè)計(jì)

2、設(shè)計(jì)一個(gè)程序，要求在文本框中輸入兩個(gè)操作數(shù)后，通過單選按鈕來選擇進(jìn)

行+、-、*或/的運(yùn)算，同時(shí)，在標(biāo)簽框中顯示相應(yīng)地操作符，結(jié)果顯示在第

三個(gè)文本框中。圖2為第二個(gè)文本框中輸入0時(shí)的情況。

工程1xj

除數(shù)不能為。，語重輸或選擇其他的運(yùn)算符

:旗愛::二;|

圖6-36程序設(shè)計(jì)題2的運(yùn)行界面

3、設(shè)計(jì)一個(gè)程序，在列表框和組合框之間進(jìn)行信息的移動(dòng)，沒有選擇項(xiàng)時(shí)給出

相應(yīng)的提示。程序運(yùn)行情況如圖3所示。

圖6-37程序設(shè)計(jì)題3的運(yùn)行界面

4、利用定時(shí)器設(shè)計(jì)一個(gè)滾動(dòng)標(biāo)簽（從左到右），標(biāo)簽在程序剛開始運(yùn)行時(shí)不可

見。

習(xí)題七

1.選擇題

1.控件在窗體上的上下位置由下列屬性決定。

A.TopB.LeftC.WidthD.Height

2.(-200,-100)-(2000,1000)后，窗體Forml的ScaleWidth屬性值為

A.200B.1800C.2000D.2200

3.用Scale方法改變窗體坐標(biāo)系后，下面_______屬性值發(fā)生改變。

A.ScaleWidthB.WidthC.HeightD.DrawMode

4.在VB窗體中，默認(rèn)的坐標(biāo)單位是_______—

A.PixelB.TwipC.cmD.mm

5.設(shè)置_______屬性可以使圖片顯示在圖片框或影像框中。

A.PictureB.ImageC.IconD.DownPicture

6.程序運(yùn)行時(shí)，可用_______函數(shù)把圖形裝入窗體、圖片框或影像框。

A.AutoSizeB.StretchC.PictureD.LoadPicture

7.將圖片框的_______屬性設(shè)置為True時(shí)，可使圖片框根據(jù)圖片調(diào)整大小,

A.PictureB.AutoSizeC.StretchD.AutoRedraw

8.將影像框的_______屬性設(shè)置為False時(shí)，可使影像框根據(jù)圖片調(diào)整大小

A.PictureB.AutoSizeC.StretchD.AutoRedraw

9.在VisualBasic中，_______不能作為其他控件的容器。

A.框架B.圖片框C.影像框D.窗體

10.要使Shape控件以實(shí)心方式填充，應(yīng)設(shè)置________屬性。

A.FillColorB.FillStyleC.ForeColorD.BackStyle

11.下面_______屬性決定Shape控件的圖形。

A.ShapeB.FillColorC.FillStyleD.BorderWidth

12.下列表達(dá)式中，_______不是紅顏色的值。

A.VBRedB.RGB(255,0,0)C.QBColor(l)D.&HFF

13.VisualBasic用下列哪條指令來繪制直線________。

A.Line方法B.Pset方法C.Circle方法D.Point函數(shù)

14.下列屬性用來設(shè)置圖形的邊框類型。

A.BorderWidthB.BorderStyleC.DrawWidthD.FillStyle

15.屬性可用來設(shè)置所繪線條寬度。

A.DrawStyleB.DrawWidthC.BorderStyleD.BorderWidth

16.使用Circle方法不能繪制的圖形是。

A.圓角矩形B.橢圓C.圓弧D.圓餅圖

17.語句“LineQOOO,1000)-(3000,3000)”B”繪制的是。

A.直線B.矩形C.橢圓D.圓弧

18.語句aCircle(1000,1000),500?-Ji/3,-Ji繪制的是。

A.圓弧B.橢圓C.扇形D.同心圓

19.語句“Circle(1000,1000),500,,”2”繪制的是。

A.圓弧B.橢圓C.扇形D.同心圓

20.描述以(1000,1000)為圓心，以400為半徑畫1/4圓弧的語句，以下正確的

是O

A.Circle(1000,1000),4