visualBasic程序設(shè)計(jì)教程課后習(xí)題答案及練習(xí)

《VB程序設(shè)計(jì)》綜合復(fù)習(xí)資料

第一章VisualBasic程序設(shè)計(jì)概述

一、填空題

1、VisualBasic是一種面向的可視化程序設(shè)計(jì)語言，采取了的編程機(jī)

制。

2、在VB中工程文件的擴(kuò)展名是,窗體文件的擴(kuò)展名是，標(biāo)準(zhǔn)

模塊文件的擴(kuò)展名是o

3、執(zhí)行“工程”菜單下的命令，可選擇并添加ActiveX控件。

4、VisualBasic6.0用于開發(fā)環(huán)境下的應(yīng)用程序。

二、選擇題

1、下面不是VB工作模式的是（）

A.設(shè)計(jì)模式B.運(yùn)行模式C.匯編模式D.中斷模式

2、可視化編程的最大優(yōu)點(diǎn)是（）

A.具有標(biāo)準(zhǔn)工具箱

B.一個工程文件由若干個窗體文件組成

C.不需要編寫大量代碼來描述圖形對象

D.所見即所得

3、下列不能打開屬性窗口的操作是（）

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

B.按F4鍵C.按Qrl+T

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

4、下列可以打開立即窗口的操作是（）

A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl+G

5、Visua

三、簡答題

1、代碼窗口主要包括哪幾部分？

2、在工程資源管理器窗口中，主要列出了哪三類文件？

3、窗體布局窗口的主要用途是什么？

4、VB的基本特點(diǎn)是什么？

5、怎樣理解可視化設(shè)計(jì)？

6、怎要理解事件驅(qū)動編程？

第二章簡單的VB程序設(shè)計(jì)

一、填空題

1、設(shè)置是否可以用Tab鍵來選取命令按鈕，應(yīng)該用屬性。

2、一個控件在窗體的位置由______和屬性決定,其大小由__________和

屬性決定。

3、利用對象的屬性setfocus可獲得焦點(diǎn)，對于一個對象，只有其visible屬性和

屬性為true,才能接受焦點(diǎn)。

4、設(shè)置控件背景顏色的屬性名稱是。

5、所有控件都具有的共同屬性是屬性。

6、一般情況下，控件有兩個屬性項(xiàng)的缺省值是相同的，這兩個屬性項(xiàng)是o

7、VB中的每個對象(控件)都有一組特征，這組特征稱為,我們通過修改它

可以控制對象的外觀和操作。

8、通常情況下，VB中一個工程主要包括如下四個文件：窗體文件、工程文件、類模塊文

件和文件，后者的擴(kuò)展名為.Bas,通常由Basic語言編寫，是一個可共用的子程

序。

9、VB有三種工作模式，分別是設(shè)計(jì)(Design)模式、和中斷(Break)模式。

二、選擇題

1、以下能夠觸發(fā)文本框Change事件的操作是()

A.文本框失去焦點(diǎn)B.文本框獲得焦點(diǎn)

C.設(shè)置文本框的焦點(diǎn)D.改變文本框的內(nèi)容

2、應(yīng)用程序設(shè)計(jì)完成后，應(yīng)將程序保存，保存的過程是（）

A.只保存窗體文件即可

B.只保存工程文件即可

C.先保存工程文件，之后保存窗體文件

D.先保存窗體文件（或標(biāo)準(zhǔn)模塊文件），之后還要保存工程文件

3、VB應(yīng)用程序的運(yùn)行模式是（）

A.解釋運(yùn)行模式B.編譯運(yùn)行模式C.兩者都有D.匯編模式

4、任何控件都具有的屬性是（）

A.TEXTB.CAPTIONC.NAMED.FORECOLOR

5、決定控件上文字的字體、字形、大小及效果的屬性是（）

A.TEXTB.CAPTIONC.NAMED.FONT

6、在窗體上建立了多個控件，如TEXT、LABEL1,C0MMAND1,若要使程序一運(yùn)行焦點(diǎn)

就定位在COMMANDI控件上，應(yīng)將COMMAND1控件的（）設(shè)置為0

A.INDEXB.TABINDEXC.TABSTOPD.ENABLED

7,運(yùn)行時，當(dāng)用戶向文本框輸入新的內(nèi)容，或在程序代碼中對文本框的TEXT屬性進(jìn)行賦

值從而改變了文本框的TEXT屬性值時，將觸發(fā)文本框的（）事件

A.CLICKB.DBLCLICKC.GOTFOCUSD.CHANGE

8、在運(yùn)行時，按TAB鍵跳過了一個可以獲得焦點(diǎn)的控件（如文本框），則可能是因?yàn)椋ǎ?/p>

A.該控件的TABSTOP屬性值為TRUEB.該控件的TABINDEX屬性值為FALSE

C.該控件的ENABLED屬性值為TRUED.該控件的ENABLED屬性值為FALSE

9、為了防止用戶隨意將光標(biāo)置于控件上，應(yīng)（）

A.將控件的TABINDEX屬性設(shè)置為0

B.將控件的TABSTOP屬性設(shè)置為TRUE

C.將控件的TABSTOP屬性設(shè)置為FALSE

D.將控件的ENABLED屬性設(shè)置為FALSE

10、若要使標(biāo)簽控件顯示時，不覆蓋其背景內(nèi)容，應(yīng)設(shè)置標(biāo)簽捽件的()屬性

A.BACKCOLORB.BORDERSTYLE

C.FORECOLORD.BACKSTYLE

11、如果要在文本框中輸入字符時，只顯示某個字符，如星號(*),運(yùn)行時，在文本框中輸

入的字符仍然顯示出來，而不顯示星號，原因可能是()

A.文本框的MULTILINE屬性值為TRUE

B.文本框的LOCKED屬性值為TRUE

C.文本框的MULTILINE屬性值為FALSE

D.文本框的LOCKED屬性為FALSE

12、在運(yùn)行階段，要在文本框TEXTI獲得焦點(diǎn)時選中文本框中所有內(nèi)容，對應(yīng)的事件過程

是()

A.PrivateSubTex11_GotFocus()

Textl.SelStart=O

Text1.Sellength=Len(Text1.Text)

EndSub

B.PrivateSubTextl_LostFocus()

Textl.SelStart=O

Text1.Sellength=Len(Text1.Text)

EndSub

C.PrivateSubTextl_Change()

Textl.SelStart=O

Text1.Sellength=Len(Text1.Text)

EndSub

D.PrivateSubTextl_SetFocus()

Textl.SelStart=O

Text1.Sellength=Len(Text1.Text)

EndSub

13、VisualBasic繼承了Basic語言簡單易用的語法特點(diǎn)，同時支持面向?qū)ο蟮木幊虣C(jī)制，其

中構(gòu)成其控件(對象)的三要素是()

A.屬性、事件、事件過程B.控件、窗體、事件

C.屬性、過程、方法D.屬性、事件、方法

14、決定標(biāo)簽（Label）顯示的屬性是（）

A.TextB.NameC.C叩lionD.Alignment

15、命令按鈕的標(biāo)題文字由（）屬性來設(shè)置。

A.TextB.CaptionC.NameD.（名稱）

16、若要設(shè)置文本的顯示顏色，則可用（）屬性來實(shí)現(xiàn)。

A.BackColorB.ForecolorC.FillColorD.Backstyle

18、在運(yùn)行時，若要獲得用戶在文本框中所選擇的文本，可通過訪問（）屬性來實(shí)現(xiàn)。

A.SeiStartB.SelLenghtC.TextD.SelText

三、簡答題

1、事件驅(qū)動的含意是什么？舉例說明。

2、交互式開發(fā)方法和傳統(tǒng)的應(yīng)用程序開發(fā)過程有什么不同？

3、文本框在什么情況下使用？

4、什么是工程？

5、結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)是什么？

6、對象的三要素是什么？并分別進(jìn)行簡單的解釋。

7、為什么要生成可執(zhí)行文件和制作安裝盤？

8、使用變量前先聲明有什么好處？

9、如何使用幫助功能？

10、結(jié)構(gòu)化程序設(shè)計(jì)的特點(diǎn)是什么？

11、為了把焦點(diǎn)移到某個指定的控件，在代碼中應(yīng)使用的方法是什么？

12、啟動VisuaBasic后，只創(chuàng)建了一個窗體，若此時保存，需要保存幾個文件？各是什么

文件？先保存的是哪一個？

13、為了防止文本框中的信息運(yùn)行后被用戶修改，應(yīng)設(shè)置什么屬性？

第三章VB基本語言

一、填空題

1、--般可以使用關(guān)鍵字聲明常量.

2、類型也稱變體類型，是一種通用的、可變的數(shù)據(jù)類型，它可表示或存儲任何一種

數(shù)據(jù)類型。

3、變量的聲明分為兩種方法：和o

4、在VB中，用語句設(shè)定數(shù)組的下界，用和

語句分別返回?cái)?shù)組的上、下界。

5、在代碼模塊中加入OptionExplicit的目的是。

6、functionaa(alasdate,optionala2asboolean)assingle,寫出optional命令的作用

__________________o

7、在VB中，我們用一個簡單的語句就能實(shí)現(xiàn)退出程序。

8、生成消息框的命令是,生成輸入框的命令是。

9、通用對話框(commondialog)屬activex控件，它可以顯示多個標(biāo)準(zhǔn)對話框，包括打開/

另存為、字體、打印等對話框，若要顯示所有文件，則應(yīng)設(shè)置其屬性filter-,若

要使它顯示為打印對話框，則應(yīng)使用什么方法。

10、從字符串中任意位置截取字符的函數(shù)是。

11、語句Forj=3To20Step3使循環(huán)體執(zhí)行了次。

12、對于正在使用的動態(tài)數(shù)組Arraya。，要增加一個單元，但不能破壞數(shù)組內(nèi)的數(shù)據(jù)，則應(yīng)

使用語句。

13、在VisualBasic中聲明靜態(tài)變量的關(guān)鍵字是。

14、表達(dá)式10Mod6\4的值為。

15、表達(dá)式chr(Asc("a")+5)的值為。

16、VB中使用注釋有2種方法，即和o

17、VB中的數(shù)據(jù)以四種形式存儲：常量、、和記錄。

18、為了在VB中存儲一個4行5列的二維矩陣，需要定義一個整型的數(shù)組，請把數(shù)組定義

語句補(bǔ)充完整：DimJuzhen()asInteger。

19、控件數(shù)組由一組相同類型的控件組成，這些控件共用一個相同的控件名，但是每個控件

都有一個唯一的下標(biāo)來區(qū)分，我們使用屬性來設(shè)置下標(biāo)。

20、在過程調(diào)用中，實(shí)現(xiàn)調(diào)用過程的實(shí)參和被調(diào)用過程的形參之間的數(shù)據(jù)傳遞有兩種方式：

按值傳遞和O

21、為了保證程序中必須對變量的強(qiáng)制性定義，需要在代碼模塊的聲明部分加入

______________語句。

22、分析For.......Next循環(huán)結(jié)構(gòu)的實(shí)例：Fori=5To30Step2中，循環(huán)體一共執(zhí)行了

次。

23、表達(dá)式Mid("UniversityOfPetroleum",8,4)的值為。

24、常量分為普通常量和常量。

25、要將大寫字母轉(zhuǎn)換為小寫字母，可使用函數(shù)。

26、不管焦點(diǎn)在哪個控件上，按鍵相當(dāng)于按了取消按鈕。

27、執(zhí)行“工程”菜單下的命令，可選擇并添加ActiveX控件。

28、是程序中VB停止執(zhí)行的地方。

29、邏輯常量為True或。

30、使用了的聲明后，當(dāng)程序中使用未經(jīng)聲明的變量時，程序運(yùn)行時會

報錯。

31、要將小寫字母轉(zhuǎn)換為大寫字母，可使用函數(shù)。

32、自字符串N1位開始向右取N2個字符，要使用函數(shù)。

33、日期常量表示時，用符號將日期型數(shù)據(jù)括起來。

34、局部變量只能在__________中聲明和使用。

35、模塊級變量的聲明關(guān)鍵字是Dim或。

36、函數(shù)Abs(x)的功能是。

37、表達(dá)式3/6*5的值是。

二、選擇題

1、以下哪個是合法的變量（）

A.rightB.abc@123C_123_abcD.ab123c

2、卜列說法錯誤的是（）

A.在同一模塊不同過程中的變量可以同名

B.不同模塊中定義的全局變量不可以同名

C.引用另一模塊中的全局變量時，必須在變量名前加模塊名

D.同一模塊中不同級的變量可以同名

3、把MsgBox的返回值轉(zhuǎn)換為數(shù)值應(yīng)該使用的函數(shù)是（）

A.LogB.StrC.LenD.Vai

4、語句DIMAA（3.4.5）中定義的數(shù)組有（）個元素

A.12B.60C.120D.345

5、下面程序運(yùn)行后輸出的結(jié)果是（）

A$="CHINAn

B$=STRING$（3.A$）

PRINTB$

END

A.CHIB.CCCC.INAD.AAA

6、以下語句的輸出結(jié)果是（）

PrintFonnat$（32548.5,"000,000.00"）

A.32548.5B.325.485.00C.032.548.50D.32,548.50

7、以下敘述中錯誤的是（）

A.如果過程被定義為Static類型，則該過程中的局部變量都是Static類型

B.Sub過程中不能嵌套定義Sub過程

C.Sub過程中可以嵌套調(diào)用Sub過程

D.事件過程可以像通用過程一樣由用戶定義過程名

8、VisualBasic提供的OnErrorResumenext錯誤陷阱語句表示（）

A.當(dāng)發(fā)生錯誤時，使程序轉(zhuǎn)跳到語句標(biāo)號為0的程序塊

B.當(dāng)發(fā)生錯誤時，不使用錯誤處理程序塊

C.當(dāng)發(fā)生錯誤時，忽略錯誤行，繼續(xù)執(zhí)行下一語句

D.當(dāng)發(fā)生錯誤時;終止本過程執(zhí)行，繼續(xù)執(zhí)行下一過程

9、在VisualBasic中，若要將控制權(quán)交給操作系統(tǒng)則通過（）的語句。

A.EndB.ExitDoC.ExitSubD.DoEvents

10、在VisualBasic中語句的續(xù)行號采用（）

A.空格與下劃線B.下劃線與空格C.空格與短線D.短線與空格

11、假定有以下程序段：

Fori=lto3

Forj=5to1Step-1

Printi*j

Nextj,i

則語句Printi*j的執(zhí)行次數(shù)是（）

A.15B..16C.17D.18

12、從鍵盤上輸入兩個字符串，分別保存在變量strl、str2中。確定第二個字符串在第―個

字符串中起始位置的函數(shù)是（）

A.LeftB.MidC.StringD.Instr

13、如果將布爾常量值TRUE賦值給一個整型變量，則整型變量的值為（）

A.0B.-1C.TRUED.FALSE

14、下列敘述不正確的是（）

A.注釋語句是非執(zhí)行語句，僅對程序的內(nèi)容起注釋作用，它不被解釋和編譯

B.注釋語句可以放在代碼中的任何位置

C.注釋語句不能放在續(xù)行符的后面

D.代碼中加入注釋語句的目的是提高程序的可讀性

15、語句PRINT“INT（-13.2）"；INTQ13⑵的輸出結(jié)果為（）

A.INT(-13.2)=-13.2B.INT(-13.2)=13.2

C.INT(-13.2)=-13D.INT(-13.2)=-14

16、如果TAB函數(shù)的參數(shù)小于1,則打印位置在第()列

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

17、變量未賦值時，數(shù)值型變量的值為()

A、0B.空C.1D.無任何值

18、下列語句中正確的是()

A.txt1.text+txt2.text=txt3.textB.command1.name=cmdok

C.121abel.caption=1234D.a=inpulbox("helk>")

19、假設(shè)變量BOOLVAR是一個布爾型變量，則下面正確的賦值語句是()

A.BOOLVAR=tTRUE,B.BOOLVAR=.TRUE

C.BOOLVAR=#TRUE#D.BOOLVAR=3<4

20、以下()程序段可以實(shí)施X、Y變量值的變換()

A.Y=X：X=YB.Z=X：Y=Z：X=Y

C.Z=X：X=Y：Y=ZD.Z=X：W=Y：Y=Z：X=Y

21、語句PRINT“SGN(?26)="；SGN(-26)的輸出結(jié)果為()

A.SGN(-26)=26B.SGN(-26)=-26

C.SGN(-26)=+lD.SGN(-26)=-l

22、讀下面程序段，判斷變量Str2的取值是()

DimStrl,Str2asString

Strl=HUniversityn

Str2=STRING$(3,Strl)

A.UniB.UUU

C.ityD.yyy

23、VB支持自定義數(shù)據(jù)類型，在某程序中我們定義了如下類型：

TypeStudent

numberAsstring

nameAsString

ageAsInteger

EndType

針對卜.述定義，如下幾項(xiàng)用法正確的是()

A.S="張三"B.DimsAsStudent

="張紅”

C.DimsAsTypeStudentD.DimsAsType

="張三"二“張三“

24、一個工程中包含兩個名稱分別為Forml、Form2的窗體，一■個名稱為mdlFunc的標(biāo)準(zhǔn)模

塊。假定在Forml、Form2和mdlFunc中分別建立了自定義過程，其定義格式為：

Form1中定義的過程:

PrivateSubfrmfunctionl()

EndSub

Form2中定義的過程：

PublicSubfrmfunction2()

EndSub

mdlFunc中定義的過程：

PublicSubmdlFunction()

EndSub

在調(diào)用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是()

A.上述三個過程都可以在工程中的任何窗體或模塊中直接被調(diào)用

B.只有mdlFunction過程能夠被工程中各個窗體或模塊直接被調(diào)用

C.frmfunctionl只能在forml中調(diào)用,而frmfunction2則可以在所有模塊或窗體中被直接

調(diào)用

D.上述三個過程都只能在各自被定義的模塊中直接調(diào)用

25、VB'I'Do……Loop結(jié)構(gòu)既可以構(gòu)成當(dāng)型循環(huán)，也可以構(gòu)成直到型循環(huán)，根據(jù)下面的代

碼：

Dimi.nasInteger

n=20

i=1

Do

Printi;

i=i+2

LoopUntili>20

判斷循環(huán)結(jié)構(gòu)的類型和循環(huán)體的執(zhí)行次數(shù)，正確的選項(xiàng)是（）

A.當(dāng)型循環(huán)，20次B.直到型循環(huán)，10次

C.當(dāng)型循環(huán)，10次D.直到型循環(huán)，20次

26、在程序中，使用InpulBox函數(shù)可以接受用戶的輸入，如果要把它的返回值轉(zhuǎn)換為數(shù)值

型的數(shù)據(jù)，應(yīng)該使用的函數(shù)是（）

A.VaiB.Len

C.StrD.Log

27、動態(tài)數(shù)組因?yàn)樵诔绦蜻\(yùn)行前無法確定數(shù)組的大小，所以經(jīng)常根據(jù)程序的運(yùn)行情況，對數(shù)

組進(jìn)行重新定義，以下關(guān)于VB中動態(tài)數(shù)組的敘述中不正確的是（）

A.可以用ReDim語句重新定義動態(tài)數(shù)組，并且可以進(jìn)行多次重定義

B.首次用Dim進(jìn)行動態(tài)數(shù)組聲明的時候，必須指明它的類型和上下界

C.Preserve為ReDim語句的可選參數(shù)，用于保留動態(tài)數(shù)組原來的內(nèi)容

D.當(dāng)對動態(tài)數(shù)組使用Erase語句進(jìn)行釋放操作時，將釋放其內(nèi)存

28、VB中的控件也叫做部件或組件，主要包括三類，以下哪一項(xiàng)不屬于VB控件的分類（）

A.控件B.可插入對象

C.ADO控件D.ActiveX控件

29、表達(dá)式4+5\6*7/8Mod9的值是（）

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

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

A.LtrimB.RtrimC.TrimD.Mid

三、簡答題

1、全局變量聲明有哪些限制？

2、字符串是否可以自動轉(zhuǎn)換為數(shù)字類型？

3、用Format函數(shù)格式化后的字符格式在不同區(qū)域環(huán)境下的輸出是否相同？為什么？

4、在InputBox函數(shù)中，哪一個參數(shù)是必需的？

5、在MsgBox函數(shù)中哪一個參數(shù)是必須的？

6、在什么情況下使用過程？

7、為什么要進(jìn)行程序調(diào)試？

8、調(diào)試程序有哪些手段？

9、用語句DimA(-3To5)AsInteger定義的數(shù)組的元素個數(shù)是多少？

10、設(shè)有如下的VisualBasic表達(dá)式：5*xA2-3*x-2*Sin(a)/3,與它對應(yīng)的數(shù)學(xué)式是什么？

11、數(shù)學(xué)式(2x-a)(3y+;>)對應(yīng)的VB表達(dá)式是什么？

12、表達(dá)式2>3And4<=5Or4>4的值是什么？

13、怎樣在程序中設(shè)置斷點(diǎn)？

14、在什么情況下可以設(shè)置斷點(diǎn)？

15、程序出錯的類型有哪幾種？

16、在同一模塊、不同過程中聲明的相同變量名，兩者是否表示同一個變量？為什么？

17、什么情況下會出現(xiàn)“數(shù)組下標(biāo)越界錯誤”？

18、逐語句和逐過程有什么區(qū)別？

19、表達(dá)式2.75*2\3.45的值是什么？

20、在程序設(shè)計(jì)中為什么盡量不用GoTo語句？

四、讀程序題

1、分析以下程序，寫出運(yùn)行結(jié)果。

PrivateSubForm_Click()

score=Int(Rnd*10)+80

SelectCasescore

CaseIs<60

A$=

Case60To69

A$=HDn

Case70To79

A$=nCn

Case80To89

A$=“B”

CaseElse

A$=HA"

EndSelect

PrintA$

EndSub

2、讀下面的程序，分析其功能，寫出運(yùn)行結(jié)果。

在窗體上有一個命令按鈕，名稱為Commands然后編寫如下程序:

PrivateSubCommandl_Click()

ForI=1To4

ForJ=0ToI

PrintChr$(65+1);

NextJ

Print

NextI

EndSub

程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是什么？

3、閱讀下面的程序，分析并寫出其功能。

Subinsert(a()AsSingle,ByValxAsSingle)

Dimmasinteger,nasinteger

n=l

DoWhilen<20Andx>a(n)

n=n+l

Loop

Form=20-lTonStep-1

a(m+l)=a(m)

Nextm

a(n)=x

EndSub

4、分析以下程序，寫出運(yùn)行結(jié)果。

SubsubP(b()AsInteger)

Fori=lTo4

b(i)=2*i

Nexti

EndSub

PrivateSubCommandl_Click()

Dima(lTo4)AsInteger

a(1)=5

a(2)=6

a⑶二7

a(4)=8

subPa()

Fori=1To4

Printa(i)

Nexti

EndSub

運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果是什么？

5、分析以下程序，寫出運(yùn)行結(jié)果。

Subsele()

DimnasInteger

i=21:n=3

DoWhilei>n

i=i-n

Loop

Printi

EndSub

6、分析以下程序，寫出運(yùn)行結(jié)果。

SubselectPrint()

DimaasInteger

DimbasInteger

DimcasInteger

a=2:b=5:c=2

If(a>=b)and(a>=c)or(b>c)Then

Printa

a=a+2

Else

Printb

Endlf

Printa;b;c

EndSub

7、分析以下程序，寫出運(yùn)行結(jié)果。

Subswap()

DimxasInteger

DimyasInteger

DimLasInteger

x=l:y=2:z=0

Printx;y;z

x=x+y

x=x*z

Printx,y,z

EndSub

8、分析以下程序，寫出運(yùn)行結(jié)果。

SubselectPrint()

DimaasInteger

DimbasInteger

DimcasInteger

a=3:b=3:c=2

If(a>=b)and(a>c)ThenPrinta

Printa,b,c

EndSub

五、編程題

1、輸入?年號，判斷它是否是閏年。界面如下圖所示，包括兩個標(biāo)簽、一個文本框和一個

命令按鈕。提示：如果此年號能被400整除或者不能被400除盡，也不能被100除盡，但能被

4整除，則它是閏年；否則，不是閏年。

2、輸入兩個正整數(shù)m、n,求m和n的最大公約數(shù)。要求建立如下圖所示的窗體，其中主

要的控件包括：兩個標(biāo)簽（Lable1、Lable2）、兩個文本框（Text1、Text2）和一個按鈕（Command1）。

?求是大公懶陽回風(fēng)

輸入兩正整數(shù)：,訐到

|36

最大公約數(shù)為：18

3、輸入某學(xué)生成績（百分制），若是100》成績290輸出優(yōu)秀；若是90＞成績＞80輸出良

好；若是80＞成績270輸出中等；若是70＞成績260輸出及格；若是60＞成績20,輸出不

及格：若是其他數(shù)則輸出error信息。

4、在窗體中顯示從9號字型到16號字型。

5、在有序序列中插入一個數(shù)，使插入后的數(shù)列仍然有序（設(shè)按由小到大排列）。

6、編程實(shí)現(xiàn)二維數(shù)組轉(zhuǎn)置。

7、隨機(jī)輸入10個100以內(nèi)的整型數(shù)，計(jì)算其和及平均值。

8、找出所有的水仙花數(shù)。水仙花數(shù)是個三位數(shù)，它的各位數(shù)字的立方和等于這個三位數(shù)本

身。例如371=33+73+〃，則371是水仙花數(shù)。

9、從鍵盤輸入一個大于2的正整數(shù)，判斷該數(shù)是否是素?cái)?shù)。

10、求二維數(shù)組中的最小值及其所在行號、列號。

11、求一元二次方程ax?+bx+c=0的根（包括實(shí)根和復(fù)根）。

12、輸入一個正整數(shù)n,計(jì)算出n!并輸出。

13、Faibonacci數(shù)列為0,1,1,2,3,5,8,13…，計(jì)算并輸出第20項(xiàng)以及前20項(xiàng)的和。

第四章常用控件與窗體

一、填空題

1、向列表框控件添加新項(xiàng)目的方法是。

2^在VB中，最主要的兩種對象是和o

3、當(dāng)窗體啟動時可通過屬性控制窗體位于所有者的中心位置。

4、若要將窗體Form1隱藏起來，則可通過執(zhí)行代碼來實(shí)現(xiàn)。

5、要使裝入到列表框，I'的數(shù)據(jù)項(xiàng)能自動按字母順序排序，應(yīng)設(shè)置該控件的屬性為

6、窗體上放置了若干個文本框和命令按鈕，當(dāng)窗體裝入后，要將焦點(diǎn)自動定位到文本框Textl

上，則在設(shè)計(jì)時需要將控件的屬性設(shè)置為o

7、在標(biāo)簽控件中通過編程使文字換行用的代碼是。

8、設(shè)置計(jì)時器控件只能觸發(fā)事件。

9、設(shè)置計(jì)時器對象觸發(fā)事件的時間間隔用屬性。

10、滾動條控件主要支持兩個事件，它們是事件。

11、要使鼠標(biāo)停留在按鈕上顯示特殊的鼠標(biāo)形狀，應(yīng)設(shè)置的屬性值是。

12、設(shè)某列表框共有10項(xiàng)，按題目要求補(bǔ)齊程序，完成相應(yīng)的功能。

(1)按下命令按鈕Command1時將列表框第8項(xiàng)的內(nèi)容顯示在窗體上：

PrivateSubCommandl_Click()

List.(7)=True

PrintList1.______________

EndSub

(2)單擊列表框某一項(xiàng)時立即將該項(xiàng)打印在窗體上：

PrivateSubListl_Click()

Print_______________

EndSub

(3)按下命令按鈕Command1時在窗體上刪除第1、3、5、7、9項(xiàng)：

PrivateSubCommandl_Click()

ForI=lTo5

Listl.____________

NextI

EndSub

(4)在列表框的每一項(xiàng)之后插入一個新的項(xiàng):

PrivateSubCommandl_Click()

For1=1to10

X=InputBox(“請輸入插入的第”&I&“項(xiàng)內(nèi)容”)

List1.Additem____________

NextI

EndSub

13、設(shè)在界面上放置了一個滾動條Hscrolll和一個標(biāo)簽控件Labell,要使每次單擊滾動條兩

端箭頭時;或單擊滾動條滑塊與兩端箭頭之間的空白區(qū)域時，標(biāo)簽內(nèi)容能夠反映滾動條的值，

補(bǔ)齊以下代碼。

PrivateSubHscroll1.()

Label1.Caption=Hscroll1.

EndSub

要使拖動滾動條滑塊時標(biāo)簽內(nèi)容能夠反映滾動條的值，補(bǔ)齊以下代碼。

PrivateSubHscroll1.()

Label1.Caption=Hscrolll.

EndSub

14、列表框(ListBox)用于列出可供選擇的項(xiàng)目的列表，用戶可以選擇一個或多個項(xiàng)目。

它具有幾個非常重要的數(shù)組屬性，其中屬性存放了列表框中所有項(xiàng)目的值。

15、菜單項(xiàng)一般由標(biāo)題、訪問鍵、快捷鍵和復(fù)選標(biāo)志等構(gòu)成，通過對相應(yīng)的屬性進(jìn)行設(shè)置可

以改變這些項(xiàng)目的狀態(tài)，其中與復(fù)選標(biāo)志相對應(yīng)的屬性是o

16、keydown與keypress事件各有其參數(shù)，若需獲得用戶按下"a"還是"A"需用

____________事件。

17、控件組合了文本框和列表框的功能，是VB中一種功能非常強(qiáng)大的選擇類控件。

18、若需要將窗體Form2以模態(tài)窗口的形式顯示出來，可通過執(zhí)行代碼

來實(shí)現(xiàn)。

19、菜單中的分隔條是一種菜單捽件，不響應(yīng)__________事件，不能被選中。

二、選擇題

I,當(dāng)程序運(yùn)行時;哪個事件是窗體不會接收到

A.MouseDownB.MouseUpC.LoadD.Click

2、窗體Form1的Naine屬性是FnnI,它的單擊事件過程名是（）

A.Fomil_ClickB.Form_ClickC.Fmil_ClickD.Me_Click

3、用于設(shè)置通用對話框控件顯示文件類型的屬性是（）

A.FilterB.PathC.PartemD.FoleName

4、川「從內(nèi)存刪除窗體的命令是（）

A.MoveB.HideC.UnloadD.Delete

5、用于返回窗體可用區(qū)域?qū)挾鹊膶傩允牵ǎ?/p>

A.ScaleWidthB.ScaleLeftC.ScaleHeightD.ScalcTop

6、下列關(guān)于屬性設(shè)置的敘述錯誤的是：（）

A.一個控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的，用戶不能改變

B.一個控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的，用戶可以改變

C.一個控件的屬性即可以在屬性窗口中設(shè)置，也可以用程序代碼設(shè)置

D.一個控件的屬性在屬性窗口中設(shè)置，還可以利用程序代碼為其設(shè)置新值

7、下列說法正確的是（）

A.對象屬性只能在“屬性窗口”中設(shè)置

B.一個新的工程可以在“工程窗口”中建立

C.必須先建立一個工程，才能開始設(shè)計(jì)應(yīng)用程序

D.只能在“代碼窗口”中編寫程序代碼

8、F列關(guān)于美體上控件的基本操作錯誤的是（）

A.按下一次DEL鍵只能刪除一個控件

B.按下?次DEL鍵可以同時刪除多個控件

C.按住SHIFT鍵，然后單擊每個耍選擇的捽件，可以同時選中多個捽件

D.按住ALT鍵,然后單擊每個要選擇的控件，可以同時選中多個控件

9、下列關(guān)于設(shè)置控件屬性的敘述正確的是（）

A.用戶必須設(shè)置屬性值

B.所有的屬性值都可以由用戶隨意設(shè)定

C.屬性值不必一一重新設(shè)置

D.不同控件的屬性項(xiàng)都完全?樣

10、不可以通過下列（）操作將焦點(diǎn)賦給對象

A.運(yùn)行時使用TAB鍵B.在代碼中用CALL語句調(diào)用

C.在代碼中用SETFOCUS方法D.用訪問鍵或用鼠標(biāo)單擊選擇對象

11、要在FORM_LOAD事件過程中使用PRINT方法在窗體上輸出一定的內(nèi)容，應(yīng)（）

A.設(shè)置窗體的VISIBLE屬性B.設(shè)置窗體的CAPTION

C.調(diào)用窗體的SHOW方法D.設(shè)置窗體ENABLED屬性

12、下面（）對象無CAPTION屬性

A.FORMB.COMMANDBUTTONC.TEXTBOXD.LABEL

13、通用對話框控件和文件列表框控件中，都能根據(jù)文件的類型對要顯示的文件進(jìn)行篩選過

濾，后者使用（）屬性進(jìn)行該項(xiàng)設(shè)置。

A.PatternB.PathC.FilterD.FileName

14、對于復(fù)選框控件chkBoy,如果在程序中設(shè)置它為選中狀態(tài)，下面語句正確的是（）

A.chkBoy.Checked=trueB.chkBoy.Value=true

C.chkBoy.Selected=trueD.chkBoy.Value=1

15、計(jì)時器（Timer）控件用于每隔?段時間自動觸發(fā)?次Timer事件，可以有規(guī)律地重復(fù)

執(zhí)行一段程序，它用于設(shè)置兩次事件時間間隔的屬性是（）

A.IntervalB.SmallChange

C.LargeChangeD.Max

16、以下關(guān)于VB中窗體（Form）的說法中，不正確的描述為（）

A.執(zhí)行UnloadForm語句后，窗體Fonn消失，但仍在內(nèi)存中

B.當(dāng)窗體的Enabled屬性為False時，通過鼠標(biāo)和鍵盤對窗體的操作都被禁止

C.窗體的Height、width屬性用于設(shè)置窗體的高和寬

D.窗體的load事件在加載窗體時發(fā)生

17、關(guān)于滾動條控件，下面說法錯誤的是（）

A.點(diǎn)擊滾動條的箭頭，可以改變它的value值，從而引發(fā)Change事件

B.拖動滾動框，可以觸發(fā)Scroll事件

C.通常，水平滾動條的值從左向右遞增，垂直滾動條的值自上而下遞增

D.拖動滾動框，可以觸發(fā)Change事件，而且是連續(xù)觸發(fā)的

18、在窗體上放置一個命令按鈕，名稱為Command^單擊命令按鈕時，執(zhí)行如下事件過程:

PrivateSubCommandl_Click（）

a$="softwareandhardware"

b$=Right（a$,8）

c$=Mid（a$,l,8）

Msgboxa$,b$,c$,1

EndSub

則在彈出的信息框的標(biāo)題欄中顯示的信息是（）

A.softwareandhardwareB.software

C.hardwafeD.出現(xiàn)錯誤

19、在多重窗體程序設(shè)計(jì)中，關(guān)鍵的問題是要解決不同窗體之間的銜接和窗體的顯示、關(guān)閉

等問題，以下關(guān)于窗體的相關(guān)語句和方法的敘述中，錯誤的是（）

A.Load語句用于加載指定窗體，即在內(nèi)存中創(chuàng)建該窗體

B.Show方法兼具Load語句的功能，可以將窗體顯示出來

C.Hide方法用于將窗體隱藏起來

D.Unload語句用來釋放窗體，但窗體并沒從內(nèi)存中消

20、滾動條控件的屬性中，表示取值范圍最大值的屬性是（）

A.MaxB.LargeChange

C.MinD.Value

21、程序中如果需要檢測和控制鼠標(biāo)的位置和狀態(tài)的改變，就需要使用鼠標(biāo)事件，其中下面

哪個選項(xiàng)用于表示拖動事件（）

A.DragDropB.MouseDown

C.MouseUpD.MouseMove

22、為了使用通用對話框進(jìn)行打開文件的操作，應(yīng)將通用對話框的Action屬性設(shè)定為（）。

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

三、簡答題

1、什么是單選按鈕？什么是復(fù)選框？在使用上有什么不同？

2、滾動條的change事件和scroll事件有什么不同？

3、快捷鍵和訪問鍵有什么區(qū)別？

4、在程序運(yùn)行期間，如果拖動滾動條上的滾動塊（即滑塊），則觸發(fā)滾動條的什么事件？

5、假定有一個菜單項(xiàng)，名為Menuitem,為了在運(yùn)行時使該菜單項(xiàng)失效（變灰），應(yīng)使用什

么語句？

6、為了暫時關(guān)閉計(jì)時器（即時鐘控件），應(yīng)把該計(jì)時器的什么屬性設(shè)置為False?

7、單選按鈕和復(fù)選框（即檢查框）各用于什么情況？

8、如何為一個菜單項(xiàng)設(shè)置熱鍵和快捷鍵？

9、菜單的形式有哪兩種？

10、在KeyPress事件中，如何取消用戶剛輸入的字符？

11、框架的作用是什么？

12、如果要計(jì)時器每秒鐘發(fā)生4個Timer事件，則Interval屬性值應(yīng)設(shè)多少？

13、在一個窗體的程序代碼中能否訪問另一個窗體上控件的屬性？若不行則請說明理由；若

行則請說明如何訪問。

14、如何在框架中建立控件？

15、組合框有哪兒種類型？

四、讀程序題

1、對窗體編寫如下代碼:

OptionBase1

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

a=Array(237,126,87,48,498)

ml=a(1)

m2=1

IfKeyAscii=13Then

Fori=2To5

Ifa(i)>mlThen

ml=a(j)

m2=i

EndIf

Nexti

EndIf

Printml

Printm2

EndSub

程序運(yùn)行后，按回車鍵，輸出結(jié)果是什么？

2、閱讀下面的程序，寫出執(zhí)行結(jié)果。

PrivateSubForm_load()

Form1.show

d=0

Fora=1To2

Forb=1Toa

Forc=bTo5

d=d+1

Nextc

Nextb

Nexta

Printd

EndSub

五、編程題

1、在窗體上有一個文本框控件，名稱為TxtTime；一個計(jì)時器控件，名稱為Timerl,要求

每一秒在文本框中顯示一次當(dāng)前的時間，請編程實(shí)現(xiàn)。

2、在Textl中輸入任一英文字母，在Text2中顯示該英文字母及其ASCH碼值。要求在文

本框Text2中顯示出所有輸入的英文字母及其ASCII碼值，如下圖所示。

Forml

請輸入一個英文字母：［a----------------.Textl

英文字母ASCH碼值ICommandl

97

65

98

66

99Text2

67

3、編寫一個程序，能夠?qū)崿F(xiàn)任意個整數(shù)的排序。

4、編程實(shí)現(xiàn)以下功能：用戶首先分別在兩個文本框中輸入兩個數(shù)，然后在具有“加、減、

乘、除”等四個菜單項(xiàng)的“計(jì)算”菜單中單擊某一項(xiàng)，即可在標(biāo)簽中顯示出相應(yīng)的結(jié)果或者錯

誤提示。

5、編程實(shí)現(xiàn)任意兩個數(shù)的“加、減、乘、除”。

6、編寫一個程序，能夠求任意個正整數(shù)的最大值和最小值。

7、編程求任意兩個正整數(shù)的最大公約數(shù)。

六、程序分析填空題

1、建立一個如圖所示的簡單編輯器。用戶在文本框（textl）中輸入正文后，選中某些文本

時可進(jìn)行“剪切”、“復(fù)制”和“粘貼”操作。假設(shè)在窗體聲明部分定義了一個變量strl,用于

保存復(fù)制和剪切的內(nèi)容，請把剪切按鈕(btnCut)的Click事件補(bǔ)充完整。

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

PrivateSubbtnCut_Click()

補(bǔ)充

EndSub

2、計(jì)算1+2+3+……+100的和并輸出。請把下面用DoWhile……Loop循環(huán)結(jié)構(gòu)實(shí)現(xiàn)這

一功能的代碼補(bǔ)充完整。

PrivateSubForm_Load()

Dimsum,countasInteger

'請補(bǔ)充

Dowhilecount<=100

'請補(bǔ)充

Loop

Text1.Text=sum

EndSub

3、列表框控件(ListBox)支持多項(xiàng)選擇，這項(xiàng)功能在對用戶的興趣愛好進(jìn)行調(diào)查的時候顯

得非常好用，在下圖所示的界面中列表框L