2023年電大VisualBasic程序設(shè)計(jì)形成性考核冊(cè)參考答

《ＶisｕａlＢasic程序設(shè)計(jì)》形成性考核冊(cè)作業(yè)及答案

2023年《VisｕaｌBasic程序設(shè)計(jì)》形成性考核冊(cè)作業(yè)及答案作業(yè)1?一、選擇題?1、在設(shè)計(jì)應(yīng)用程序時(shí),可以查看到應(yīng)用程序工程所有組成部分的窗口是（Ｄ)。?

A、窗體設(shè)計(jì)

Ｂ、代碼

Ｃ、屬性

Ｄ、工程資源管理器窗口?２、窗體的loａd事件的觸發(fā)時(shí)機(jī)是（Ｂ）。?

A、用戶單擊窗體時(shí)

Ｂ、窗體被加載時(shí)

Ｃ、窗體顯示之后

D、窗體卸載時(shí)

3、與傳統(tǒng)的程序設(shè)計(jì)語(yǔ)言相比，VisuａlBａｓic最突出的特點(diǎn)是(Ｃ)。?

A、結(jié)構(gòu)化程序設(shè)計(jì)

B、程序開(kāi)發(fā)環(huán)境

C、事件驅(qū)動(dòng)編程機(jī)制

D、程序調(diào)試技術(shù)

4、VＢ６.0集成開(kāi)發(fā)環(huán)境的主窗口中不涉及(C）。?

A、標(biāo)題欄

B、菜單欄

C、狀態(tài)欄

D、工具欄

5、假如對(duì)象的名稱為Mytｅxt,并且對(duì)象有一個(gè)屬性Tｅxt，那么在代碼中引用該屬性的對(duì)的格式是（B)。?

Ａ、text．Mytｅxt

B、Myｔeｘt.Ｔexｔ

C、Mytｅxt.（Tｅxt)

D、Mytext＊Text?６、下列可以激活屬性窗口的操作是(Ｄ）。?

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

B、執(zhí)行“工程“菜單中的”屬性窗口“命令?

C、按Ctrｌ＋Ｆ4

Ｄ、按Ｆ4

7、假定已在窗體上畫(huà)了多個(gè)控件,并有一個(gè)控件是活動(dòng)的，為了在屬性窗口中設(shè)立窗體的屬性,預(yù)先應(yīng)執(zhí)行的操作是(A）。

Ａ、單擊窗體上沒(méi)有控件的地方

B、單擊任一個(gè)控件

C、不執(zhí)行任何操作

D、雙擊窗體的標(biāo)題欄?8、假如要在文本框鍵入字符時(shí),只顯示某個(gè)字符，假如（*），應(yīng)設(shè)立文本框的(B）屬性。

Ａ、Ｃaptiｏn

B、ＰａsswｏrｄChａr

C、Texｔ

D、Char

9、假如想要在文本框中的內(nèi)容在運(yùn)營(yíng)時(shí)不能編輯,需要文本框的(A）屬性設(shè)立為True.?ALｏckeｄ

B、MultiLｉne

C、TａbＳｔop

DＶisible

１０對(duì)于定期器(Tiner）控制,設(shè)立其定期是否啟動(dòng)的屬性是(C)?A、Indeｘ

B、Taｇ

C、Enaｂｌeｄ

Ｄ、Left

11、要在窗口體Fornl內(nèi)顯示“mｙfrｍ”使用的語(yǔ)句是（Ｃ）

A、Ｆｏrm.caption=“ｍｙfrm”B、Ｆoｒｎl.ｃapｔｉｏn＝“myfrm”

Ｃ、forml.prinｔ“myfrm”D、foｒｍ．ｐｒiｎt“myfrｍ”

12、對(duì)象的性質(zhì)和狀態(tài)特性稱為（C）?A、事件

Ｂ、方法

Ｃ、屬性

D、類

１３、下列對(duì)的的賦值語(yǔ)句是（B）

A、x+y=2０

B、y=x+２0

Ｃ、３x=y

Ｄ、s=

１4、當(dāng)使用上下文相關(guān)的幫助時(shí),選擇要幫助的內(nèi)容,然后按（D)鍵,就可出現(xiàn)ＭSＤN窗口直接顯示所需的幫助信息。?

A、Heｌp

B、F10

C、Esｅ

Ｄ、F1?15、將調(diào)試通過(guò)的工程經(jīng)“文獻(xiàn)”菜單的“生成.ｅxe文獻(xiàn)“編繹成名．eｘe后,將該可執(zhí)行文獻(xiàn)放到其它機(jī)器上不能運(yùn)營(yíng)的重要因素是(D）。?A、運(yùn)營(yíng)的機(jī)器上無(wú)VＢ系統(tǒng)

Ｂ、缺少.fｒm窗體文獻(xiàn)

Ｃ、該執(zhí)行文獻(xiàn)有病毒

Ｄ、以上因素都不對(duì)?二、填空題?1、當(dāng)進(jìn)入VB集成開(kāi)發(fā)環(huán)境后，發(fā)現(xiàn)沒(méi)有顯示“工具箱”窗口。應(yīng)選擇視圖菜單的

工具箱選項(xiàng),使“工具箱”窗口顯示。?2、在VＢ中，事件過(guò)程名由對(duì)象名和

事件名

構(gòu)成。?3、工程文獻(xiàn)的擴(kuò)展名是

vｂp,窗體文獻(xiàn)擴(kuò)展名是

ｆrm

。

4、對(duì)象時(shí)代碼和數(shù)據(jù)的集合,例如,VisualBasic中的

窗體、

按鈕、

文本框

等都是對(duì)象。

5、對(duì)象的方法用于

實(shí)行某種操作功能

。當(dāng)方法不需要任何參數(shù)并且也沒(méi)有返回值，調(diào)用對(duì)象的方法的格式為

對(duì)象名.方法名

。例如對(duì)窗體Ｆoｒml使用Show方法，應(yīng)寫(xiě)成

ｆorm1.show

。?６、要使文本框顯示滾動(dòng)條，需要將其ScｒollBａrｓ

屬性設(shè)立為

3

。

7、欲設(shè)立定期的時(shí)間間隔為4秒,則屬性Ｉｎｔeｒval的值為

4００0。?8、要使標(biāo)簽框的大小隨Caｐtion屬性做自動(dòng)調(diào)整，應(yīng)將AutoSize

屬性設(shè)立為

Tｒuｅ

。

9、通過(guò)

窗體布局窗口

可以在設(shè)計(jì)時(shí)直觀地調(diào)整窗體在屏幕的位置。

10、要想在代碼中給名為txtsｈow的文框賦予文本:GＯODWOＲK!時(shí),應(yīng)當(dāng)編寫(xiě)的語(yǔ)句是

txｔｓhｏｗ．texｔ=”GOOＤWOＲＫ!”

。?１1、若命令按鈕的名稱為Ｃmdoｐｅn,程序規(guī)定單擊以上命令按鈕,打開(kāi)一個(gè)窗口ｆrｍｌ，請(qǐng)對(duì)以下事件過(guò)程填空。?PrivateSubCmｄopeｎ

click（)

?

Ｆrｍ1.shｏw

ＥｎdSud

12、事件就是對(duì)象上所發(fā)生的事情,VisualBaｓｉｃ中的事件如單擊

、

裝入

、

鼠標(biāo)移動(dòng)等。一個(gè)對(duì)象響應(yīng)的事件可以有

多個(gè)，用戶不能建立新的事件。事件過(guò)程是指

響應(yīng)某個(gè)事件后所執(zhí)行的代碼

。假設(shè)某一事件過(guò)程如下:

PrｉvatｅSubｃmd１_Cliｃｋ（)?

Form1.Caｐtｉoｎ=”VB示例”?EndＳｕb

則響應(yīng)過(guò)程的對(duì)象名是

cmｄ1

，事件名是

Ｃｌiｃk

。

13、對(duì)象的方法用于在對(duì)象上實(shí)行某種操作功能

。當(dāng)方法不需要任何參數(shù)并且也沒(méi)有返回值，調(diào)用對(duì)象的方法格式為

對(duì)象名.方法名

,例如，對(duì)窗體Form１使用Show方法，應(yīng)寫(xiě)成

Foｒm1.Ｓhow

。

14、為了在編寫(xiě)代碼時(shí)能自動(dòng)語(yǔ)法檢查，必須執(zhí)行工具

菜單中的

選項(xiàng)

命令，打開(kāi)

選項(xiàng)

對(duì)話框，然后選擇“編輯器”選項(xiàng)卡中的自動(dòng)語(yǔ)法檢測(cè)。?15、定期器(Tiｍer)控件可辨認(rèn)的事件是Ｔimｅr,了生該事件的時(shí)間間隔定期由定期器的

Inｔｅrval屬性設(shè)立，其單位為毫秒。

三、問(wèn)答題?１、什么是可視化編程和事件驅(qū)動(dòng)?

?答:可視化編程是指無(wú)須編程，僅通過(guò)直觀的操作方式即可完畢界面的設(shè)計(jì)工作的這種編程方式。?當(dāng)ＶB的應(yīng)用程序運(yùn)營(yíng)后，系統(tǒng)處在等待狀態(tài)，當(dāng)某個(gè)事件發(fā)生后,程序就去執(zhí)行此事件的事件過(guò)程,當(dāng)這個(gè)事件過(guò)程執(zhí)行完后,系統(tǒng)又處在等待另一個(gè)事件發(fā)生的狀態(tài),這就是事件驅(qū)動(dòng)程序方式。

２、對(duì)象、屬性、事件和文獻(xiàn)之間的關(guān)系如何？?答:對(duì)象是代碼和數(shù)據(jù)的封裝體。對(duì)象的操作通過(guò)與該對(duì)象有關(guān)的屬性、事件、方法來(lái)描述。?屬性是一個(gè)對(duì)象的基本特性，每個(gè)對(duì)象都有它自己的屬性。

方法是對(duì)象要執(zhí)行的動(dòng)作。?事件是在對(duì)象上所發(fā)生的事情。?3、簡(jiǎn)述事件驅(qū)動(dòng)機(jī)制與傳統(tǒng)編程方式的不同。?答:傳統(tǒng)的面向過(guò)程的應(yīng)用程序中,應(yīng)用程序自身控制了執(zhí)行那一部分代碼按何種順序執(zhí)行代碼，程序從第一行代碼開(kāi)始執(zhí)行并按應(yīng)用程序中預(yù)定的途徑執(zhí)行,用戶無(wú)法改變程序的執(zhí)行流程。而事件驅(qū)動(dòng)機(jī)制則由用戶來(lái)決定執(zhí)行的路線。這就是兩者的不同。?4、簡(jiǎn)述事件驅(qū)動(dòng)的工作過(guò)程。?答：事件驅(qū)動(dòng)的工作過(guò)程如下：（1)啟動(dòng)應(yīng)用程序，裝載和顯示窗體。(２)窗體或窗體上的控件等待事件的發(fā)生。（3）當(dāng)某個(gè)事件發(fā)生后,執(zhí)行其相應(yīng)的事件過(guò)程代碼。(4）反復(fù)執(zhí)行（2）和(３），直到碰到END語(yǔ)句或單擊“結(jié)束”按鈕停止程序的運(yùn)營(yíng)。?四、程序設(shè)計(jì)題

1、在窗體上添加一個(gè)文本框和兩個(gè)命令按鈕,并把兩個(gè)命令按鈕的標(biāo)題分別設(shè)立為“隱藏文本框”和“顯示文本框”。當(dāng)單擊第一個(gè)命令按鈕時(shí)，文本框消失;而當(dāng)單擊第二個(gè)命令按鈕時(shí),文本框重新出現(xiàn),并在文本框中顯示“VB程序設(shè)計(jì)”（字體大小為1６）。程序運(yùn)營(yíng)界面如圖所示。

圖１?解:“隱藏文本框”按鈕中的代碼為:Text1.Visｉｂｌｅ=False?“顯示文本框”按鈕中的代碼為:Teｘｔ1.Viｓｉbｌｅ＝Truｅ?

Teｘｔ1.Text=”ＶB程序設(shè)計(jì)”?

Text1.FoｎtSｉze=”16”?２、設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖2所示,由四個(gè)文本框：文本框1（text1）、文本框2(tｅxt2)、文本框3（text3)、文本框4(tｅxt4)，和三個(gè)按鈕:命令按鈕1（commanｄ1)、命令按鈕2(commaｎｄ2）、命令按鈕3（commaｎｄ３）組成。程序運(yùn)營(yíng)后，用戶按清除按鈕，則清除文本框中顯示的內(nèi)容，按計(jì)算按鈕,則計(jì)算三科平均成績(jī)。單擊退出按鈕則退出。?解：commaｎｄ1中的代碼為:text1＝””:teｘt2=””:ｔext3=””：ｔeｘt4=””?command２中的代碼為:text4＝(ｖaｌ(Tｅxt1）＋ｖaｌ(Text2)+val(Text3)）／３

ｃommaｎd2中的代碼為:End?３、編寫(xiě)一收款計(jì)算程序。規(guī)定用戶輸入商品的“單價(jià)”、“數(shù)量”和“折扣”后,單擊“計(jì)算”按鈕顯示“應(yīng)付款”，單擊“清除”按鈕，清除文本框中所有的數(shù)據(jù)。程序運(yùn)營(yíng)界面如圖3所示。

答:“計(jì)算”按鈕的代碼:text４=vａl(Text1)＊vaｌ(Teｘｔ2）*ｖal（Ｔeｘt3)/10０

“清除”按鈕的代碼：tｅxt1=””:tｅxt2=””:text３＝””:ｔext4=””?作業(yè)2

一、選擇題

1．按照變量的作用域可將變量劃分為(Ｂ

）。

A、公有、私有、系統(tǒng)

B、全局變量、模塊級(jí)變量、過(guò)程變量?C、動(dòng)態(tài)、常數(shù)、靜態(tài)

D、Puｂliｃ、Ｐrｉvate、Proteｃteｄ?2.可獲得字符的AＳCII碼的函數(shù)是（C）。?A、VａlB、FｉxC、Ａsc

D、Ｃhr?3、要退出Dｏ….Lｏoｐ循環(huán)，可使用的語(yǔ)句的（D）語(yǔ)句。

A、Exit

Ｂ、Exit

For

C、ＥｎｄDｏ

D、ＥxｉtDo?４．把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是(B)。

A、Ｖaｌ

B、Sｔr

C、Ａｓｃ

D、Ｃhr

5.關(guān)于語(yǔ)句行，下列說(shuō)法對(duì)的的是（B)。?A．一行只能寫(xiě)一條語(yǔ)句Ｂ.一條語(yǔ)句可以分多行書(shū)寫(xiě)?Ｃ.每行的首字符必須大寫(xiě)Ｄ.長(zhǎng)度不能超過(guò)2５５個(gè)字符

６.表達(dá)式6＋10Mｏd4*2＋1的值是(Ａ）．?A．９B．11C.1D.3

７.以下可以作為VisualＢaｓiｃ變量名的是(B).?A.SIＮ

Ｂ.CＯ1

C．ＣＯS(X)

D．X(-1)?８.表達(dá)式Abs(-5)+Len(“AＢCDE”)的值為（Ｃ）.

Ａ.5AＢCDＥB.－5ABCＤE

C．10

D.０?9.在代碼編輯器中,假如一條語(yǔ)句太長(zhǎng),無(wú)法在一行內(nèi)寫(xiě)下(不涉及注釋）,要折行書(shū)寫(xiě),可以在行末使用續(xù)行字符(A）,表達(dá)下一行是當(dāng)前行的繼續(xù)．

A.一個(gè)空格加一個(gè)下劃字符(_)Ｂ.一個(gè)下劃字符(＿)?Ｃ.直接回車

D.一個(gè)空格加一個(gè)字符（－)?1０.Sub過(guò)程與Fｕnction過(guò)程最主線的區(qū)別是(D).

A．Ｓｕb過(guò)程可以使用Ｃａll語(yǔ)句或直接使用過(guò)程名調(diào)用,而Ｆｕｎction過(guò)程不可以.

B．Fuｎcｔion過(guò)程可以有參數(shù)，Sｕｂ過(guò)程不可以.

C.兩種過(guò)程參數(shù)的傳遞方式不同．

Ｄ.Ｓub過(guò)程的過(guò)程名不能返回值，而Functiｏn過(guò)程可以通過(guò)過(guò)程名返回值.?11.＂Ｘ是小于８０的非負(fù)數(shù)",用VＢ表達(dá)式表達(dá)對(duì)的的是(C）.

A..0≤Ｘ<80

B.0<＝X<8０

C.0<=xａndｘ<８0

D．０<=xOrx<80?12.在設(shè)計(jì)菜單時(shí),假如要在菜單中加入一個(gè)菜單分隔條,則菜單分隔條的標(biāo)題必須設(shè)立為(B）?A．加號(hào)（+)

B．減號(hào)(-）

C.星號(hào)(*）

D．感慨號(hào)（！）?13．假如要在程序中顯示一個(gè)彈出式菜單,那么要調(diào)用VisuaｌBａsｉc中提供的方法是（D）.?

A.Ｐrint

B．Ｍovｅ

C.Refresｈ

D.ＰopupＭenｕ

１4.下列可以用來(lái)存儲(chǔ)圖像供其他對(duì)象使用的控件是(Ｃ).

Ａ.ToolBar

B.StaｔｕrsBaｒ

Ｃ.ImageLｉst

D.ＴreeVｉew

15.當(dāng)單擊工具攔上的按扭時(shí),會(huì)觸發(fā)的事件是(A).

A.ＢuttoｎＣlick

Ｂ.Chaｎge

C.Ｌoad

D.ＫeyＰresｓ

16.要運(yùn)用公用對(duì)話框控件來(lái)顯示”打開(kāi)文獻(xiàn)”對(duì)話框,需要調(diào)用控件的(B）方法.?

A.ShowＰrinteｒ

B．ＳｈoｗOpen

C．ＳhｏwＳave

Ｄ．ShｏｗColor?17.對(duì)于窗體級(jí)變量，下列說(shuō)法中錯(cuò)誤的是(Ｃ）．

A.所在窗體的各子程序都可以訪問(wèn)

Ｂ.其他窗體的子程序不能訪問(wèn)?Ｃ.所在窗體發(fā)子程序不能訪問(wèn)用Ｐｒiｖate定義的窗體級(jí)變量?D.一定要在所在窗體的通用區(qū)內(nèi)定義?1８.從一個(gè)字符串中的第3個(gè)字符開(kāi)始,獲取5個(gè)字符,應(yīng)使用（B)

A．Len函數(shù)

B.Miｄ函數(shù)

C.Ｌeｆt函數(shù)

D．Ｒiｇｈt函數(shù)?1９.用下面的語(yǔ)句所定義的數(shù)組的元素的個(gè)數(shù)是（Ｄ).?

DimA（－3To５)As

Intｅgｅr

A.6

B.7

Ｃ.8

D.9

２0.有如下程序段:

DiｍstrlAｓStrｉnｇ*5?Sｔｒl=”VisualＢasic”?當(dāng)該段程序被執(zhí)行完時(shí),變量ｓtrl的值為（B）.?

A．”Ｖiｓual”

Ｂ.”Visｕa”

C．”Ｖ”

D.”Ｖisual

Baｓiｃ”

二、填空題?1．菜單一般有_下拉式_和_彈出式_＿兩種基本類型。

2．通用對(duì)話框控件可顯示的常用對(duì)話框有__打開(kāi)_、＿保存_、＿＿顏色_、_＿字體_、__打印_。?３．組合框具有__文本框_和__列表框_兩種控件的基本功能。?4.要使數(shù)組的默認(rèn)下標(biāo)從“1開(kāi)始，則應(yīng)在窗體或標(biāo)準(zhǔn)模塊代碼的聲明部分使用語(yǔ)句_＿OptionBａｓe1_。

5．調(diào)用Sub過(guò)程時(shí)，使用＿_(dá)call_＿語(yǔ)句,語(yǔ)句用于把程序控制傳送到一個(gè)ＶｉsuａlBasic的Sｕb過(guò)程。?６．若已建立了Foｒm1和Form2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體為Ｆorm1。通過(guò)_工程_菜單＿_(dá)屬性_命令的_通用_選項(xiàng)卡,可將啟動(dòng)窗體設(shè)立為Form２。在程序中若要顯示Foｒm1窗體，則執(zhí)行_Form1.shｏw_語(yǔ)句。

7．列表框中項(xiàng)目的序號(hào)是從_0_開(kāi)始的。

8．Sub過(guò)程與Fｕｎctioｎ過(guò)程最主線的區(qū)別是_Sub過(guò)程名無(wú)返回值，F(xiàn)uncｔion過(guò)程名有返回值。

9.VＢ的代碼存儲(chǔ)在模塊中。在VＢ中提供了三種類型的模塊:_類模塊_、_窗體模塊_＿和_標(biāo)準(zhǔn)模塊＿。

1０.使用Hiｄｅ方法會(huì)隱藏被調(diào)用的窗體，但是在調(diào)用Hide方法之后不會(huì)把窗體__卸載_,被調(diào)用的窗體中的屬性等已處在_內(nèi)存中_。?11.將下列數(shù)學(xué)式子寫(xiě)成ViｓuａlBasic表達(dá)式。?

⑴

答:２*cos（ａ）*sｉn(a)/(2*a）

⑵答：sｑr(ｓ*(ｓ-a）*(s－b)*(ｓ-ｃ))

⑶siｎ45°:siｎ(4５*2*3．141５/３６0)＿

12．將下列數(shù)學(xué)式子各條件寫(xiě)成VｉｓｕalＢasｉc邏輯表達(dá)式。?

⑴１≤x＜1２:1<=xａndx<１2?

⑵A+B≥C或a-ｃ≤c:（A＋B)＞=ＣOR(a-c)<＝c?

⑶a和b都為正整數(shù)或同為負(fù)數(shù):（ａ＞＝0andb>=0)or（a＜＝0ａndb<=0）?13．設(shè)A=2,B=３，C＝4,D＝5。表達(dá)式ＮｏtA<＝ＣOｒ4*B^2AndB＜>A+C的值為_(kāi)Fａlse＿。

1４.在VｉｓualBasiｃ語(yǔ)言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以事先擬定,可使用_For…next＿_(dá)循環(huán)；若規(guī)定先判斷循環(huán)進(jìn)行的條件，可使用_Ｄowhile…lｏｏp_循環(huán)或_ｗhｉlｅ…Wend_循環(huán)。?1５.以下語(yǔ)句的輸出結(jié)果是__3_。

a％＝3.1４1５9

Pｒiｎta%

三、閱讀下列程序,寫(xiě)出程序運(yùn)營(yíng)結(jié)果。

１、PｒivateSuｂFｏrｍ_Clicｋ()?

StatｉcSｕmAsIntegｅr?

FｏrI＝1to100

Sum＝Ｓｕｍ+I?

NｅｘtI?ＰｒｉnｔＳuｍ?ＥndＳub

程序運(yùn)營(yíng)結(jié)果為：1＋2＋…….＋９9+1００=5050?2、ｐriｖateSubＦoｒm_Ｃlｉck（）

A=１0:b＝15:ｃ＝20:d=2５

ＰrintA;Ｓpc(5);b;Sｐｃ(7）；c?

PrintA；Sｐc(8）；b;Spaｃe＄(５);c?

Printｃ;Spc(3);”+”;Spｃ（3)；ｃ＋d?

EｎｄSｕb?1０(5個(gè)空格)15（７個(gè)空格)20?10(８?jìng)€(gè)空格)15(5個(gè)空格)2０

２0(三個(gè)空格）+(三個(gè)空格)45

3、PrivateＳｕbFｏrm_clicｋ()

Fori％=1to３?

Foｒj%＝1tｏi?

PｒintLTriｍ(Ｓtr(i%））+“＊”＋LTrim（Str(j%)）+“=”;i％＊j%；

Nｅxｔj%

Print

Nexti%?ＥnｄSｕｂ

1＊1＝1

2＊１=2

２*２=4?3*1=3

3＊2＝6

3*3=9?

?4、PｒivateSubCommand1_Clicｋ()?

Diｍa，bAsIntegeｒ

A＝3.４

Ｂ=３．4?Ｔｅxｔ1．Teｘt=a?Text２.Tｅxt=ｂ?EndＳｕb?Text１顯示3、4?Teｘt2顯示3?５、PｒivatｅSubＦoｒm_Click（)

FoｒＩ＝１tｏ5?

ＰrintTab(11–Ｉ）?

ForJ＝１ToI*2–1

Prinｔ“*”；?

Nｅxt?

Nexｔi?ＥnｄSｕｂ?

*?

***

*****?

＊***＊*＊?

*＊＊***＊*＊?

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

1、購(gòu)物優(yōu)惠程序。某商場(chǎng)為了加速促成商品流通，采用購(gòu)物打折的優(yōu)惠辦法,每位顧客一次購(gòu)物（１)在100元以上者，按九五折優(yōu)惠；（2）在２００元以上者,按九折優(yōu)惠；（３）3００元以上者,按八折優(yōu)惠;（4)5００元以上者按七折優(yōu)惠。在窗體上添加兩個(gè)文本框和一個(gè)命令按鈕，規(guī)定在Text１中輸入購(gòu)物商品總金額，單擊命令按鈕,在Text２中輸入優(yōu)惠后的價(jià)格。程序運(yùn)營(yíng)結(jié)果如圖解所示。?

ＩfVal(teｘt１)＞=50０tｈentｅxt2＝Val(texｔ1)*0.7?EｌsｅifＶaｌ(tｅｘt1)>=300tｈentext２=Ｖal(tｅｘｔ1)＊0.85

ElseifVal(text1)>=20０theｎtext2＝vａl(tｅxt1)*0.９?

Eｌseifval(teｘt1)＞=１0０thentｅxｔ２=val（teｘt1)*０.９５?Eｎdｉf

?2、輸出１00~200之間不能被3整除的的數(shù)，規(guī)定用Dｏ語(yǔ)句的一種形式來(lái)實(shí)現(xiàn)，程序運(yùn)營(yíng)結(jié)果如圖5所示。

窗體的裝入事件中加入如下代碼:?Dimaａsｉntｅgｅr

A=100?Ｄowhilea<＝200?Ｉｆ(amod3）＜>0theｎ

Lisｔ１.ａｄdiｔeｎｓtr(a)

Ｅｎdiｆ

A=ａ+１?looｐ

3、編寫(xiě)程序，打印如下的乘積表:

ＤｉmＩ,jasinｔeger

Priｎt”*”:ｓpace（5)：

Ｆori=3ｔo１2sｔep3?

Prｉｎtstｒ(i）;spａｃe(５）；?Ｎｅxtｉ

Prｉnt?ForI=15to18?Printstr（i)；spａce(3);?Fｏrj=３ｔo12step3?Prｉntｓtr(ｉ*j);sｐaｃe(４);?Ｎextｊ

Ｐｒint?Neｘtｊ

4、設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖７所示。規(guī)定程序運(yùn)營(yíng)后,用戶選中單擊選按鈕,則程序作10和２的相應(yīng)計(jì)算，并把計(jì)算結(jié)果在文本框中顯示出來(lái)。如用戶選中加法單選按鈕，則程序作10和2的相加,計(jì)算結(jié)果１2在文本框中顯示出來(lái)。按結(jié)束,則退出。?乘法單選按鈕的單擊事件中添加如下代碼：

Tｅxt1=10＊2

除法單選按鈕中添加如下代碼:?Tｅｘｔ1=1０／2

加法單選按鈕中添加如下代碼:?Tｅxt1=10+2

減法單選按鈕中添加如下代碼:texｔ１=１0-２

結(jié)束按鈕中代碼:eｎｄ或ｕｎloaｄme?5、編寫(xiě)輸入一個(gè)0～6數(shù)字，顯示漢字對(duì)照輸出星期的Fｕnｃtion過(guò)程。程序運(yùn)營(yíng)結(jié)果如圖８所示。?文本框的chａngｅ事件中代碼如下:?Selectcａseval(ｔｅｘｔ1)

Casｅ0?Ｌabeｌ1．caption=”星期天”+ｃhr（13)＋”(Suｎday)”

Cａsｅ1

Lａbel1.caption=”星期一”+ｃhr(13)+”(mｏndａy)”

Case２

Ｌabeｌ1.capｔioｎ=”星期二”＋chr(13)+”(Tｕｅsｄay)”?Cａｓe3?Laｂel1.ｃaptｉon=”星期三”+chｒ(13)＋”(ｗｅdneｓdａｙ)”?Cａｓe4?Lａbｅl1.cａption=”星期四”+chr(1３)＋”(thursday）”

Case5?Ｌaｂeｌ１．captｉon＝”星期五”+chr(１3）+”(ｆirｄay）”?Caｓe6?Labｅｌ１.caｐｔｉｏn=”星期六”+chr(13)＋”(satuｒdａy)”

Endseｌｅｃt

?6、編寫(xiě)一個(gè)程序,當(dāng)鼠標(biāo)移到Pictｕrel控件時(shí)，鼠標(biāo)指針改變形狀；當(dāng)在Piｃtｕrｅl控件上單擊鼠標(biāo)右鍵時(shí),通過(guò)消息框顯示“Youｐreｓsｅｄｒightbuｔtoｎ”，并再次改變鼠標(biāo)指針的形狀。

Picture１_mousｅup?Iｆbｕttｏｎ=2ｔhｅn

I=1

Msgbox”ｙoupresｓｅdrightbutton”?Endif

Endsｕb

7、列表框應(yīng)用程序。規(guī)定從文本框中輸入姓名，然后按“添加”按鈕，把姓名添加到列表框中；當(dāng)選擇列表框中某一項(xiàng)時(shí)，按“刪除”按鈕,從列表框中刪除;當(dāng)列表框中某一項(xiàng)時(shí)，按“修改”按鈕，把列表框中選取的項(xiàng)送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認(rèn)”。在文本框的內(nèi)容修改好后,按“修改確認(rèn)”按鈕，再把文本框中修改后的信息送到列表框且“修改確認(rèn)”按鈕變?yōu)椤靶薷摹?。程序運(yùn)營(yíng)結(jié)果如圖9所示。

添加按鈕代碼：liｓt1.additeｍteｘｔ1.text

Text1.tｅｘt＝””

刪除:iflist1.text<＞””ｔhｅn

Liｓt1.removeitｅm=liｓt1.liｓtinｄex?Endif?修改：?Ｉfcomｍaｎｄ3.captiｏn=“修改”thｅn

Ｔext1.ｔext=ｌist１.tｅxｔ?Commaｎd3.ｃaptiｏn=”修改確認(rèn)”

Elｓｅ

If

commaｎd３.ｃａption=”修改確認(rèn)”tｈｅn

Lisｔ1．ｌｉst=list1.liｓtindex>=ｔｅxｔ1.texｔ?Comｍand3.caption=”修改”?Ｅndif

Endiｆ?作業(yè)3

一、選擇題?１、ViｓibleBasic根據(jù)計(jì)算機(jī)訪問(wèn)文獻(xiàn)的方式將文獻(xiàn)提成三類，其中不涉及(Ｂ）

A.順序文獻(xiàn)

B.Unix文獻(xiàn)

C.二進(jìn)制文獻(xiàn)

D.隨機(jī)文獻(xiàn)

2、隨機(jī)文獻(xiàn)進(jìn)行文獻(xiàn)讀取的單位是（B)?A．字節(jié)

B。記錄

C。整個(gè)文獻(xiàn)

D。字符

3、為了使目錄途徑列表框Ｄir1的內(nèi)容符合驅(qū)動(dòng)器列表框Drive1的選擇,應(yīng)當(dāng)（B)。

A．在Diｒ1＿Clｉck事件中加入Dir1．Path=Ｄｒiｖe1.Drｉve?Ｂ．在Driｖe1_Ｃｌick事件中加入Dｉr1.Pａt(yī)ｈ=Ｄｒiｖe1．Drｉve?C.在Dir1_Click事件中加入Ｄｒive１.Ｐath=Diｒ1.Drｉvｅ

Ｄ．在Dｉr1_Click事件中加入Dｒｉve1.Path=Ｄir１.Dｒive?4、為了使ｄｒiｖe１驅(qū)動(dòng)器列表框、dir1目錄途徑列表框和ｆile１文獻(xiàn)列表框能同步協(xié)調(diào)工作，需要在(Ｂ）?A．dｒive1的Change事件過(guò)程中加入drivｅ1.Drｉve＝dir1.Ｐaｔh，在diｒ1的Chａｎｇe事件過(guò)程中加入dｉr1.Patｈ=fｉｌｅ1.Pａｔh代碼。

B．ｄrive１的Ｃhange事件過(guò)程中加入dir1．Ｐath＝drive1.Drｉvｅ,在dir1的Cｈaｎｇe事件過(guò)程中加入file1.Pａt(yī)h=ｄir1．Ｐath代碼。

C．dir1的Change事件過(guò)程中加入dｉr1.Ｐａt(yī)ｈ＝drｉve1.Drｉve，在fｉｌｅ1的Cｌiｃk事件過(guò)程中加入fｉle１.Ｐａt(yī)h＝ｆile1．fｉleNａme代碼。

D.dir１的Chanｇe事件過(guò)程中加入dir1.Path＝ｄrive１.Dｒivｅ,在file1的Clｉck事件過(guò)程中加入file1．Ｐaｔh=diｒ1.Ｐath代碼。

5、下面關(guān)于順序文獻(xiàn)的描述對(duì)的的是(A）?Ａ.每條記錄的長(zhǎng)度必須相同?B.可通過(guò)編程對(duì)文獻(xiàn)中的某條記錄方便地修改

C.數(shù)據(jù)只能以ASCII碼形式存放在文獻(xiàn)中,所以可通過(guò)文本編輯軟件顯示?D.文獻(xiàn)的組織結(jié)構(gòu)復(fù)雜?６、ＫILL語(yǔ)句在VB語(yǔ)言中的功能是(C）。

A.清內(nèi)存

B。清病毒

C。刪除磁盤(pán)上的文獻(xiàn)

Ｄ。清屏幕?7、可用來(lái)改變坐標(biāo)度量單位的是（D）

A．Drａwstyle屬性

B.DrａwＷidtｈ屬性

C．Sｃaｌe方法

D.SｃaｌeＭode屬性

8、以下的屬性和方法中,可重定義坐標(biāo)系的是（C)?A.Drawsｔyle屬性

Ｂ.DraｗWidth屬性

C．Ｓcale

D.

ScaleMｏde屬性

9、當(dāng)用Ｌｉnｅ方法畫(huà)直線后,當(dāng)前坐標(biāo)在（C）

Ａ.(０,0）

Ｂ.直線起點(diǎn)

Ｃ．直線終點(diǎn)

D．容器的中心?10、Ｌine(２00，２00）-Steｐ(50０,500）將在窗體(C）畫(huà)一直線。?Ａ.(200,2００）到（50０，５00)

Ｂ.（20０,2０0）到(30０,3０0）?C.(20０,200）到(700,７0０）

Ｄ.（300,300）到(500,500)?11、設(shè)立對(duì)象的邊框類型的屬性是（B）。?Ａ.Drａwｓｔyle

B.Borderstyｌe

C.ＤrawWｉdｔh

Ｄ.ScaｌｅＭode?12、為了清除圖片框Piｃｔuｒe１中的圖形,應(yīng)采用的對(duì)的方法是(Ｂ）?A．選擇圖片框，然后按Del鍵

B.執(zhí)行語(yǔ)句Ｐicturｅ１.pｉcturｅ=LoaｄPictuｒe(“”)?C．執(zhí)行語(yǔ)句Picｔure1.picture=“”

D.選擇圖片框，在屬性窗口中選擇Pｉctｕre屬性條，然后按回車鍵

13、繪制多種形狀的圖形，需要設(shè)立Shａpe控件的（A）屬性。?

Ａ．Shapｅ

B．Borｄeｒstｙle

C．FｉllStyle

D.Ｓtｙｌe

１4、繪制多種形狀的直線，需要設(shè)立Liｎe控件的(Ｂ）屬性。

A．Sｈaｐｅ

Ｂ.Bordersｔyｌe

C.FｉllSｔｙle

D.Sｔｙle

15、假如準(zhǔn)備讀文獻(xiàn)，打開(kāi)順序文獻(xiàn)“ｔext.daｔ”的對(duì)的語(yǔ)句是(C)

A.

open“ｔeｘt．dat”fｏｒwrｉteＡs#1

B.

open“tｅxt.daｔ”ｆｏrBinary

As#1

C.

oｐen“ｔexｔ．dat”forInｐut

As#1?D．

open“tｅｘt.dat”forＲａndom

Ａs＃１

１6、假如準(zhǔn)備向隨機(jī)文獻(xiàn)中寫(xiě)入數(shù)據(jù),對(duì)的的語(yǔ)句是(C）

A．Pｒint#1,ｒeｃ

Ｂ.Write

#1,rｅｃ

Ｃ.Ｐｕt#1,rｅｃ

D.

Get#１,rｅｃ?1７、下列“CｏmmandDiａlｏｇ１”控件程序代碼,CｏmmandDｉaloｇ1.Actioｎ=1，代表（B)?A.文獻(xiàn)另存為

B.打開(kāi)文獻(xiàn)

C.色彩

D.打印?18、FilｅＦiltｅｒ.Pattern=”＊.ｂaｔ”程序代碼執(zhí)行后,會(huì)顯示(A)。

A只包含擴(kuò)展文獻(xiàn)名為”*.ｂat”的文獻(xiàn)

B。第一個(gè)bａt(yī)文獻(xiàn)

C．包含所有的文獻(xiàn)

D。會(huì)顯示磁盤(pán)的途徑?19、下列數(shù)據(jù)對(duì)象模型中采用OLＥDB訪問(wèn)數(shù)據(jù)庫(kù)的是（C）。?Ａ．DAＯ

Ｂ．RDO

C．ADＯ

Ｄ.RDO和ADO

20．設(shè)ADOrs為Reｃｏrdｓｅt對(duì)象,從“學(xué)生基本情況表”中獲取所有記錄的語(yǔ)句是(B)

A．ＡDＯrs.Ｎｅｗ“Ｓｅlｅｃｔ＊From學(xué)生基本情況表”

Ｂ．ＡDOrs.Opeｎ“Seｌｅcｔ＊Frｏｍ學(xué)生基本情況表”?C．AＤOrs.Ｅxecuｔｅ“Ｓelect*Frｏm學(xué)生基本情況表”

Ｄ．AＤOrs.Seｌｅct“Ｓelｅcｔ*Ｆｒoｍ學(xué)生基本情況表”

21、VB中將變量xｌ聲明為Ｅｘcｅl應(yīng)用程序?qū)ο蟮姆椒ㄊ?Ａ）

A.ＤimxlAsＥxcel.Application

B.DimｘlAsExcel.Ｗo(hù)rkbook?Ｃ.

DimxlＡｓＥxcel.Ｗｏrksheet

Ｄ.DimxｌAsＥｘceｌ.Ｗｏｒkｓｈｅe(cuò)ts

二、填空題?１、假如要新建一個(gè)順序文獻(xiàn),用Open語(yǔ)句時(shí)，操作方式關(guān)鍵詞是outｐuｔ。

２．在VisualBaｓic程序中實(shí)現(xiàn)復(fù)制文獻(xiàn)“Ｃ:＼”到Ｄ:盤(pán)根目錄下的語(yǔ)句

為fileｃoｐｙ

“ｃ:\ｃommａnｄ.ｃom”，”d:\”。

３．在VｉｓｕaｌBａsic程序中實(shí)現(xiàn)刪除文獻(xiàn)”Ｄ:\tem．ｔmp”的語(yǔ)句為_(kāi)_kｉlｌ”d:\tem.tｍp”。

4．按文獻(xiàn)號(hào)為1打開(kāi)順序文獻(xiàn)SＥQNEW.DＡＴ，用于寫(xiě)入數(shù)據(jù),語(yǔ)句?為_(kāi)＿_(dá)open”SＥQＮEW.DＡT”fｏrｏｕtputaｓ

＃１。

5.按文獻(xiàn)號(hào)為2打開(kāi)順序文獻(xiàn)ＳＥQOLＤ.DAT,用于從該文獻(xiàn)讀出數(shù)據(jù)，語(yǔ)句為_(kāi)＿_(dá)oｐｅn”SEQＯLD.DAＴ”forinｐutas＃2。?6．若窗體的左上角坐標(biāo)為(－2０0,250)，右下角坐標(biāo)為（３０0,－150)，則X軸的正向向右，Ｙ軸的正向向上_。

7．Stｒetch屬性設(shè)立為_(kāi)false_時(shí),圖像框可自動(dòng)改變大小以適應(yīng)其中的圖形.

8.在圖片框Ｐｉcture1中畫(huà)一個(gè)左上角在(5００,500),邊長(zhǎng)為500的紅色實(shí)心正方形的語(yǔ)句為＿pictｕre1.ｌine(５00,5００）－steｐ（５00,５0０)，vbｒed,BF。?９.設(shè)

CurreｎtＸ=50,CuｒrentＹ=10０,執(zhí)行指令”linｅ(1００,20)-Step(30０,5０0)”后,Currｅnt=_(400，５20）_.?10.使用ADO模型時(shí),可通過(guò)_ActiｖeConnｅct＿屬性建立Recordsｅt和Connection對(duì)象的連接.?11.VＢ中將數(shù)據(jù)庫(kù)分為本地?cái)?shù)據(jù)庫(kù)、遠(yuǎn)程數(shù)據(jù)庫(kù)和_＿外部數(shù)據(jù)庫(kù)_三種類型.?1２.采用ADＯ模型時(shí)，當(dāng)使用Open方法打開(kāi)一個(gè)記錄集后,與ＡDOｒｓ.Fｉｅlds(“學(xué)號(hào)”）等效的語(yǔ)句是_ＡDOｒｓ(“符號(hào)”)_.

13．AＤO模型中一般可通過(guò)Coｎnｅcｔion對(duì)象的Ｅxecute方法執(zhí)行__增長(zhǎng)＿、__刪除_、__修改__等三類不返回結(jié)果集的ＳQＬ語(yǔ)句.

14．設(shè)SｔrSＱL、Str1為字符串變量,其中Str1的值為”001”，那么執(zhí)行賦值語(yǔ)句SｔrSQL=”Select＊ｆroｍTabｅｌ1Whｅre學(xué)號(hào)=’”＋Str1+”’”后,SｔrSQL的值等于_”ｓelect.*frｏmtabel1ｗhere學(xué)號(hào)=’001’”_.?15.在VB中,將Foxpro稱為外部數(shù)據(jù)庫(kù),Aｃcｅss稱為＿_(dá)本地?cái)?shù)據(jù)庫(kù)_,SQLSeｒｖer稱為_(kāi)＿遠(yuǎn)程數(shù)據(jù)庫(kù)__．

三、程序設(shè)計(jì)題?1、在窗體上建立一個(gè)驅(qū)動(dòng)器列表框、目錄列表框、文獻(xiàn)列表框、圖片框。規(guī)定程序運(yùn)營(yíng)后,驅(qū)動(dòng)器列表框Drive１的默認(rèn)驅(qū)動(dòng)器設(shè)立為C盤(pán)，選擇Fｉlｅ1中所列的確圖片文獻(xiàn)（＊.Ｂｍｐ和＊．ｊpg）,則相應(yīng)的圖片顯示在圖片框Ｐictｕrｅ1中。程序運(yùn)營(yíng)結(jié)果如圖10所示。

解:依據(jù)圖10設(shè)計(jì)界面，文獻(xiàn)列表框的pａt(yī)tｅrn屬性設(shè)立為：*.Ｂｍp；＊.jpg

驅(qū)動(dòng)器列表框的chaｎgｅ事件中添加如下代碼:?chｄｒivedrive1.ｄrive

ｄｉr1.pａt(yī)h=ｄｒiｖｅ1.drive

目錄列表框的ｃhange事件中添加如下代碼：?ｃhｄiｒdｉr1.path

fiｌe1．paｔh=dir1.pａt(yī)h?文獻(xiàn)列表框的clｉｃk事件中添加如下代碼：

picｔuｒe1.ｐicturｅ＝lｏaｄpｉcｔuｒｅfｉlｅ１.filename

2.余弦曲線的方程為y=cosx,畫(huà)出ｘ從－2到2的確余弦曲線，并在坐標(biāo)軸上標(biāo)出刻度,如圖11所示。?如圖窗體的單擊事件中添加如下代碼:

Form１.sｃale(-2*3．14１5９,1)－(２*3.1４159，-1)

Forｍ1.line(-2*３.14159,0)-(２*3.14159,0）

Foｒm1.ｌine(0,1)-(０,-1)

Forｍ１.curｒentx=0.2:ｆorm１.ｃurreｎtY=-０．１：prinｔ”0”?Ｆorｍ1.cｕrreｎｔx=-3.２：form１.cｕrrｅntY＝-０.1:pｒinｔ”－pi”

Fｏｒｍ１.ｃuｒreｎtx＝3.3:form1.ｃurｒentY=-0．１:print”ｐi”?Form1.ｃurrentx=-６.2：form1．ｃurrentY=-0.１：prｉnt”－2ｐi”?Form１.ｃurrenｔx=5.7:form1．ｃｕrreｎtY=－0.1:ｐrint”２pi”

Ｆorｍ1.cｕｒrentx=0.２:form1.curreｎtＹ=0.5:prinｔ”０．5”

Fｏrm１．curｒentx=０．2：ｆorm1．cｕrrenｔY=－0.5:priｎｔ”－0.５”?ForI=－6.28２tｏ6.２8２steｐ0.0８?

Form1.ｐｓet(I,coｓ(Ｉ））

NexｔI

3，使用Line控件顯示直線，并且可以顯示直線的線寬和線型.程序運(yùn)營(yíng)界面如圖12所示.

如圖添加代碼如下

復(fù)選框的單擊事件代碼：?Ifｃheｃk１．vaｌue=1ｔhen?

Lｉne１．ｂorｄｅrwｉdtｈ=4

Elｓｅ

Liｎe１.ｂorｄerwiｄth=1

Endｉf?實(shí)線、虛線、單選框要弄成一個(gè)ｏpｔioｎ1單選框控件數(shù)組。單選框單擊事件代碼：

Seｌectcａseｉndｅx

Caｓe0?Ｌine1.boｒderｓｔｙｌe=1

Cａse１?Liｎｅ１．bｏrdeｒstylｅ=２

Ｃasｅ２

Line１.bordersｔyｌe=3

Endselect

4．使用Shape控件顯示幾種圖形，并可以設(shè)立圖形的邊框和填充效果等.程序運(yùn)營(yíng)界面如圖13所示.

一方面按圖作出程序界面。形狀框架里的單選框要做成opｔｉon1控件數(shù)組，邊框類型框架里的單選框最成optioｎ2控件數(shù)組，填充風(fēng)格框架里的單選做成oｐｔｉon3控件數(shù)組。?Option１單擊事件代碼如下：

Selｅctcａｓｅｉｎdｅｘ

Case0?Sｈaｐe1．shapｅ＝0?Case1

Ｓhaｐe1.shape=1

Ｃasｅ2

Sｈape１.shape=3

Case3

Sｈape1.sｈapｅ＝4?Endselect?Ｏpｔion2單擊事件代碼如下:

Seleｃtcaseindeｘ?Caｓｅ０

Shape１．boｒdeｒstyle＝0

Case１?Shape１．bｏrderstyｌe=2

Caｓe２?Shａpe1.borderstyle=1?Ｃase3?Shaｐｅ1．ｂorｄerstyle=3?

Case4

Shａｐe1.borｄeｒsｔyｌｅ＝4?Endselｅｃt?Opｔion3單擊事件代碼如下：?

?Seleｃｔcａseindex?Ｃaｓe0

Shapｅ１.fillｓtyle=1

Case1

Sｈapｅ1.fillsｔylｅ=1

Case２?Shａpｅ1.fillstyｌｅ=3

Cａse3

Sｈape1.fiｌlstｙle=6?Eｎｄseleｃt?5．使用SQLSｅｒｖer或Access建立名稱為”學(xué)生的數(shù)據(jù)庫(kù),并在其中創(chuàng)建”studeｎｔs”的數(shù)據(jù)庫(kù)表，其結(jié)構(gòu)及初始記錄如表1所示.使用ADＯ對(duì)象和MSFlexＧｒid控件設(shè)計(jì)數(shù)據(jù)庫(kù)列表顯示程序.程序的設(shè)計(jì)界面和運(yùn)營(yíng)結(jié)果如圖１4、圖15所示。

表1?學(xué)號(hào)

姓名

專業(yè)

202３０01

張紅

軟件專業(yè)?202300３

李強(qiáng)

會(huì)計(jì)專業(yè)

20２30０2

王麗

軟件專業(yè)?聲名對(duì)象變量ADOｃn,用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接?Pｒivａt(yī)eAＤＯｃｎＡscｏnｎectioｎ?Reaｄfromtable

Prｉvatｅsubｒeａｄfｒｏmｔablｅ(）?ＤiｍstrtmｐＡssｔring

ＤimＡＤＯrｓAsnewｒｅcoｒdset

ADＯrs.activｅcｏｎｎectｉｏn=ＡDOｃn?ＡDOrｓ.oｐｅn“seleｃｔ*ｆromsｔｕｄｅｎtsorderby“學(xué)號(hào)”

MＳFlexｇrid1.cｌeaｒ

MSFlexgriｄ1.rows=0

MSFlｅxgrid1.cols＝3

Sｔrtｍp=“學(xué)號(hào)”+ｖbtａb+“姓名”+ｖbtab＋“專業(yè)”?MSFleｘgrid1.ａdditemstrtmp?DｏｗhｉlenotADOｒs.eof

Strtｍｐ=ADＯrs(“學(xué)號(hào)”）+vbtａb+ADOrs（“姓名”）+vbtａb+ADOrs(“專業(yè)”)?MSFleｘgrid1．a(chǎn)ddtｔemstrtmp?AＤOrsmoveneｘｔ?Ｌｏop?MSFｌeｘgrid1.fixedｃols=０

MSFlｅxｇrid1.fixedrｏws＝１?Endｓub

Privatｅsubfｏrm＿load(）

ＤimsｔrＤBＡｓｓtriｎg?sｔrDB=”pｒovider=SＱLOLＥDＢ；ＬSＦ;UserID＝ｓa;paｓswｏrd=;dａt(yī)abase=學(xué)生”?ｉfADＯcnisnothｉｎgthｅｎ?setＡDＯｃn＝newｃonnection

AＤOｃｎ．ｏpenstrDB

Endｉf

Reａｄfrｏｍｔabｌe?Endsub?Pｒivatｅsubｃｏmmａnｄ１_ｃｌiｃk（)

Unloadme

Endsub?作業(yè)4

一、選擇題?1、WiｎsｏｃkＳerver．LocalPｏrt=100０１語(yǔ)句的含義是（

A)。?

A、設(shè)立偵聽(tīng)端口

Ｂ、設(shè)立計(jì)算機(jī)ＩＰ地址

Ｃ、設(shè)立中斷地址

D、設(shè)立通訊協(xié)議?2、當(dāng)Winsock控件處在關(guān)閉狀態(tài)時(shí)，其Stａt(yī)e屬性的值是（

Ｂ)。?A、1

B、０

C、2

D、６?3、相對(duì)于UDP協(xié)議而言,ＴCP協(xié)議是一種（

A）。

Ａ、面向連接的協(xié)議Ｂ、無(wú)連接協(xié)議

C、計(jì)算機(jī)間不建立連接

D、合用于傳送少量數(shù)據(jù)?4、VＢ程序中通常不會(huì)產(chǎn)生錯(cuò)誤提醒的(D

)。

A、編譯錯(cuò)誤

B、實(shí)時(shí)錯(cuò)誤

C、運(yùn)營(yíng)時(shí)錯(cuò)誤

D、邏輯錯(cuò)誤?5、VＢ程序的編譯錯(cuò)誤一般可通過(guò)VB集成環(huán)境的何種設(shè)立,自動(dòng)檢測(cè)（

B）。

A、規(guī)定變量聲明

Ｂ、自動(dòng)語(yǔ)法檢測(cè)

Ｃ、自動(dòng)顯示快速信息量

D、主線無(wú)法自動(dòng)檢測(cè)

6、VB程序中設(shè)立斷點(diǎn)的按鍵是(

C

）。?Ａ、Ｆ５鍵

B、F6鍵

C、Ｆ9鍵

D、F１0鍵?7、OnEｒroｒGoToErrLB語(yǔ)句中,ErrＬB的含義是(

A

)。?A、行標(biāo)記號(hào)

B、SUB過(guò)程名

C、FUNＣTION過(guò)程名

Ｄ、錯(cuò)誤號(hào)?8、Erｒ?qū)ο笾?用來(lái)表達(dá)錯(cuò)誤描述的屬性是(B

）。?A、ErrNo

B、Descriptｉｏn

C、Numbeｒ

D、Ｓoｕrce?二、填空題。

1、使用Wiｎｓock控件時(shí),一旦有數(shù)據(jù)到達(dá),將一方面觸發(fā)該控件的DataＡrrival事件。而假如要發(fā)送數(shù)據(jù),則通常使用該控件的senｄｄata方法。

2、Wｉnｓock控件重要用來(lái)編制或基于TCP/IP經(jīng)ＵDP協(xié)議的通話程序。?3、AｃtiveXEX文獻(xiàn)的后綴是exe。

4、CＯM對(duì)象有兩種類型接口,即標(biāo)準(zhǔn)接口和用戶接口。?5、假如希望得到本地計(jì)算機(jī)的IP地址，可以使用Ｗiｎsｏck控件的localIＰ屬性。

6、Winsock控件的BｙtesRecｅived屬性返回接受到的數(shù)據(jù),通常使用getdａt(yī)a方法來(lái)獲取這些數(shù)據(jù)了。?７、Winsock1.Lisｔen語(yǔ)句的含義是使服務(wù)程序處在偵聽(tīng)狀態(tài)等待客戶訪問(wèn)。?８、常用中的VB網(wǎng)絡(luò)編程控件重要有Wｉnｓocｋ、ＩｎternetTranｓfer、ＷebBrowｓer三種。

9、VB中的程序錯(cuò)誤類型重要有編譯錯(cuò)誤、邏輯錯(cuò)誤、實(shí)時(shí)錯(cuò)誤等三種。

10、ＶB中用于關(guān)閉錯(cuò)誤捕獲機(jī)制的語(yǔ)句是onerrorgoto０。

三、問(wèn)答題。

１、簡(jiǎn)述基于Sockeｔ的通信過(guò)程。?

Socket在計(jì)算機(jī)提供了一個(gè)通信端口，可以通過(guò)這個(gè)端口與任何一個(gè)也同時(shí)具有Ｓocket接口的計(jì)算機(jī)進(jìn)行通信,應(yīng)用程序在網(wǎng)絡(luò)上傳輸、接受的信息都通過(guò)這個(gè)Ｓoｃket接口實(shí)現(xiàn),只需要對(duì)Soｃkｅt接口進(jìn)行數(shù)據(jù)的讀寫(xiě)操作就可以了。?

?2、簡(jiǎn)要設(shè)計(jì)錯(cuò)誤解決程序的3個(gè)環(huán)節(jié)。

(1）捕獲錯(cuò)誤，并強(qiáng)制程序跳轉(zhuǎn)?(2）編寫(xiě)錯(cuò)誤解決程序，對(duì)所有可預(yù)見(jiàn)的錯(cuò)誤作出反映?（3）退犯錯(cuò)誤解決程序?

?3、簡(jiǎn)述常用的程序調(diào)式技巧?（1)事先做好備份?(２）分離受懷疑的程序

(3）縮小搜索范圍

(4)使用ＭSＧBOＸ語(yǔ)句?

４、簡(jiǎn)述基于Winsｏｃk控件的開(kāi)發(fā)模式。?（1)服務(wù)器程序的開(kāi)發(fā)模式?(A）服務(wù)器程序必須設(shè)立好LOCALPOＲT，作為偵聽(tīng)端口，該值可設(shè)立成任意一個(gè)整數(shù)，只要其他應(yīng)用和諧沒(méi)有使用過(guò)的值均可，但習(xí)慣上應(yīng)大于１000?（B）使用LISTRＮ方法使用服務(wù)器進(jìn)入偵聽(tīng)狀態(tài),等待客戶機(jī)程序的連接請(qǐng)求。?(C)客戶機(jī)程序發(fā)出連接請(qǐng)求后,將觸發(fā)服務(wù)器程序的CONNECＴIONREQUEＳT事件,該事件得到一個(gè)參數(shù)REQUＥSＴＩD。?(Ｄ）服務(wù)器程序使用ＡCCＥＰT方法接受客戶機(jī)程序的ＲＥQUEＳTID請(qǐng)求,至此，服務(wù)器程序就可以使用SRNDDATA方法向客戶機(jī)發(fā)送數(shù)據(jù)了。此時(shí)應(yīng)特別注意兩點(diǎn):一是AＣＣＥＰT方法必須用到上一步的REQUESＴＩＤ作為其參數(shù);二是在執(zhí)行ACCEPT方法前，服務(wù)器仍處在偵聽(tīng)狀態(tài),此時(shí)應(yīng)一方面使用CLOＳE方法關(guān)閉服務(wù)器,然后再調(diào)用ACCEＰT方法。

（E)當(dāng)服務(wù)器程序接受到數(shù)據(jù)時(shí),會(huì)產(chǎn)生DAＴＡARRIVAL事件。在該事件中可以使用ＧEＴDＡＴＡ方法接受數(shù)據(jù)。

?(2)客戶機(jī)程序的開(kāi)發(fā)模式

（A)客戶程序一方面應(yīng)設(shè)立好RＥMOＴＥHOST屬性,用來(lái)指向運(yùn)營(yíng)器程序的主機(jī)名或ＩP地址

（B）設(shè)立RＥMOTEＰORT屬性，用來(lái)指向服務(wù)器程序和偵聽(tīng)端標(biāo)語(yǔ)。?（Ｃ）使用CONNECＴ方法向服務(wù)器提出連接請(qǐng)求。?（D）假如服務(wù)器接受上述連接請(qǐng)求，客戶機(jī)程序會(huì)產(chǎn)生COＮNＥCT事件?？梢愿鶕?jù)需要，在此事件中編寫(xiě)程序，比如使用MSGBOX函數(shù)向用戶提醒“連接已成功”之類的信息。?(E)連接成功之后,就可以根據(jù)需要使用SENDDATA方法向服務(wù)器發(fā)送數(shù)據(jù)了。

（F)當(dāng)客戶機(jī)程序接受到數(shù)據(jù)時(shí),會(huì)產(chǎn)生DATAARRIVAL事件,可以用GEＴDＡTＡ方法接受數(shù)據(jù)。

四、程序設(shè)計(jì)題。?1、運(yùn)用冒泡排序算法開(kāi)發(fā)以下程序,請(qǐng)指出程序中存在的錯(cuò)誤并改正。

PrivaｔeSuｂCommaｎd1_Cｌiｃk()

DimA（1Tｏ２0)AsIｎteger?Dimc，j,TAsInｔｅgｅr

＇此處有錯(cuò),應(yīng)為Dimｃ,j,Taｓintｅger

?‘隨機(jī)生成一組數(shù)據(jù)

Ｆorc=1Tｏ20?

Ａ(c)＝Inｔ（Ｒnｄ＊１00）

Neｘｔc?‘排序?Ｆorc=1Ｔo２0

Forj=c+１To20?

IＦＡ(c)＞Ａ(j)Ｔｈen

T＝A(j)?

A(j)＝A(c）?

A（j)＝T

'此處有錯(cuò)，應(yīng)為A（C)＝Ｔ,實(shí)現(xiàn)

EnｄIf＇A（C)和A(Ｊ）的互換?

Nexｔ

Next

‘在窗體上輸出結(jié)果?Cｌs

Fｏrc=1To２0

PrintA(i）'此處有錯(cuò),應(yīng)為A（Ｃ).下標(biāo)越界．?Nｅxｔc?EndSuｂ

2、運(yùn)用Ｗinｓock控件開(kāi)發(fā)一個(gè)點(diǎn)對(duì)點(diǎn)聊天系統(tǒng)，該系統(tǒng)由一個(gè)服務(wù)器應(yīng)用程序和一個(gè)客戶端應(yīng)用程序組成，可以實(shí)現(xiàn)網(wǎng)絡(luò)中兩臺(tái)計(jì)算機(jī)間的通話任務(wù)。

解：如下界面的設(shè)計(jì)中,若不說(shuō)明，各對(duì)象均采用默認(rèn)的名稱。

服務(wù)器程序的界面設(shè)計(jì)?1、創(chuàng)建一個(gè)“標(biāo)準(zhǔn)EＸE”工程。選中“工程”菜單的“部件”選項(xiàng)，在控件中找到MiｃroｓoftＷinsocｋCoｎｔrｏl并將其選中。假如沒(méi)有找到，通常是由于VB安裝不安全的緣故，可以找到安裝盤(pán)并安裝其中的Mswinsck.cad壓縮包。?2、將forｍ1的名稱改為frmＳvr，并在其中添加一個(gè)命令按鈕控件，將其Caption屬性修改為“退出”。?3、在窗體上添加三個(gè)添加TeｘtBｏｘ控件，分別將其名稱修改為txｔＳerｖerIP,txtSenｄ和txtRｅceivｅ，用來(lái)顯示服務(wù)器的IP地址和需收發(fā)的信息。

4、在窗體上添加一個(gè)Wiｎsock控件,將其名稱改為ＷiｎsｏｃkServer,將Pｒoｔｏcoｌ(協(xié)議）屬性設(shè)立為0(即sckTCＰProtocoｌ)?各控件及事件代碼如下：

PrivateSｕbCommanｄ１_Cｌicｋ(）?UｎloadMe?EndSuｂ?

PrｉvatｅSuｂFoｒm_Ｌoad()?tｘtreceiｖe.Ｔeｘｔ=""?txtsend.Tｅxt=""?Winｓｏckｓerver．LocａlPort=10001?txtseｒverｉp.Texｔ=Winsocksｅｒver．LoｃaｌIP?Wｉnsｏckserver．Listｅn

EndSub?

?PrivａｔeSubtxtseｎｄ_Chａngｅ(）?Winsocｋsｅrveｒ.SendDaｔａt(yī)xtseｎd．Text

EｎdSub?

?PrivateSｕbWinsockserver_ＣonnｅctionRｅquｅｓt（ByVａlｒequeｓtIDAsLong)?Wｉnｓoｃkserver．Close

Winsｏｃkserver.AｃceｐtrequesｔID

ＥndSub?

PrivaｔeＳｕbＷinsoｃkserｖer_Dａt(yī)ａＡrriｖａｌ(ByVaｌbyｔeｓTotａlAｓLoｎg)

DimmｙｓtrＡsStriｎg

Winsocksｅrvｅr.GｅtDatamｙsｔr

txtｒecｅｉve.Tｅxt=mystｒ?

EｎdSｕb?

?

客戶機(jī)程序的界面設(shè)計(jì)

１、與服務(wù)器程序類似,創(chuàng)建一個(gè)新的“標(biāo)準(zhǔn)EXE”工程,并添加Winｓock控件。

2、將form1的名稱改為ｆrｍＣlt,并添加兩個(gè)命令按鈕控件，分別將它們的Caｐtiｏn屬性設(shè)立為“退出”和“連接聊天服務(wù)器”。

3、在窗體添加四個(gè)文本框控件，分別將其名修改為ｔｘtClientＩＰ,txｔＳｅnerIP,txtsend和tｘtＲecｅive，用來(lái)顯示客戶機(jī)和要連接的服務(wù)器的IP地址以及需收發(fā)的信息。?4、在窗體上添加一個(gè)Ｗiｎsock控件，將其名稱改為WinsockCliｅnｔ,將(協(xié)議)屬性設(shè)立為0(即sckTＣPProtｏcｏl)?

各控件及事件代碼如下:?

ＰrivateSuｂCｏｍmand1_Cliｃk()

UnloaｄＭe?

?EｎdSub?

?ＰriｖateＳubCoｍｍanｄ2_Ｃｌicｋ()

Wｉnsｏckclient．ＲemoteHost=txtsｅrvｅｒＩP.Teｘt

Winｓockclient.Connect

EndSub

?PrivateＳubForｍ_Lｏad（）

ｔｘtreceive.Ｔｅｘt=""

txｔsend.Text=""?Ｗiｎsｏｃkcｌienｔ.RemotePorｔ＝1００0１

tｘtclientIＰ．Text＝Wｉnsoｃkclient．LocaｌＩP?

?EndSub?

?ＰrｉvaｔｅSｕbｔxtsend_Change()?Winsｏcｋcｌｉent．SｅnｄDａt(yī)aｔxtｓend.Teｘｔ?

ＥnｄSｕb

PrivａｔeSubＷinsockcｌient＿Conｎｅct()?MsｇBox"你成功地與聊天室服務(wù)器進(jìn)行了聯(lián)接",vbInformation

EndＳｕb

?PrｉvatｅSuｂＷｉnsocｋcliｅｎt_ＤataArriｖal(ByＶaｌbytesＴotａlAｓLong）?DimmysｔrAsSｔｒing

Wiｎｓocｋcliｅnt.GeｔDataｍｙstr

ｔxtｒeceｉve.Text＝mystr?

EndＳuｂVisuａlBasiｃ程序設(shè)計(jì)形成性考核冊(cè)作業(yè)作業(yè)1

一、選擇題?１、在設(shè)計(jì)應(yīng)用程序時(shí),可以查看到應(yīng)用程序工程所有組成部分的窗口是（Ｄ）。

A、窗體設(shè)計(jì)

B、代碼

C、屬性

D、工程資源管理器窗口

2、窗體的load事件的觸發(fā)時(shí)機(jī)是(B）。

A、用戶單擊窗體時(shí)

B、窗體被加載時(shí)

C、窗體顯示之后

D、窗體卸載時(shí)?３、與傳統(tǒng)的程序設(shè)計(jì)語(yǔ)言相比，VｉｓualBasiｃ最突出的特點(diǎn)是（C）。

A、結(jié)構(gòu)化程序設(shè)計(jì)

B、程序開(kāi)發(fā)環(huán)境

C、事件驅(qū)動(dòng)編程機(jī)制

D、程序調(diào)試技術(shù)

4、ＶＢ6.0集成開(kāi)發(fā)環(huán)境的主窗口中不涉及(C)。

A、標(biāo)題欄

B、菜單欄

C、狀態(tài)欄

D、工具欄

5、假如對(duì)象的名稱為Mytext,并且對(duì)象有一個(gè)屬性Ｔext，那么在代碼中引用該屬性的對(duì)的格式是(B）。?

A、ｔexｔ.Ｍytext

B、Ｍytext.Teｘt

Ｃ、Ｍyｔext.（Ｔｅｘt）

D、Mytext*Tｅｘt?6、下列可以激活屬性窗口的操作是(D）。

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

B、執(zhí)行“工程“菜單中的”屬性窗口“命令

Ｃ、按Ｃｔrl＋F4

D、按F4

7、假定已在窗體上畫(huà)了多個(gè)控件,并有一個(gè)控件是活動(dòng)的,為了在屬性窗口中設(shè)立窗體的屬性,預(yù)先應(yīng)執(zhí)行的操作是（A）。?

Ａ、單擊窗體上沒(méi)有控件的地方

B、單擊任一個(gè)控件

Ｃ、不執(zhí)行任何操作

D、雙擊窗體的標(biāo)題欄

8、假如要在文本框鍵入字符時(shí)，只顯示某個(gè)字符,假如(＊)，應(yīng)設(shè)立文本框的(Ｂ)屬性。

A、Cａptioｎ

B、PasｓwordＣｈar

C、Ｔext

D、Cｈar?９、假如想要在文本框中的內(nèi)容在運(yùn)營(yíng)時(shí)不能編輯，需要文本框的(Ａ)屬性設(shè)立為True.?ALoｃked

B、MultｉL(zhǎng)ine

Ｃ、TabStｏp

DVｉsible

10對(duì)于定期器(Tiner）控制,設(shè)立其定期是否啟動(dòng)的屬性是（C）?A、Iｎｄeｘ

B、Tag

C、Enabｌｅd

D、Leｆt

１１、要在窗口體Fｏrnl內(nèi)顯示“myfrm”使用的語(yǔ)句是（C)?A、Form.ｃａｐtioｎ=“ｍyfrｍ”B、Ｆornl.captｉｏn=“mｙfrm”

Ｃ、forml.print“ｍyfrm”D、ｆｏｒm．print“myfrm”

１2、對(duì)象的性質(zhì)和狀態(tài)特性稱為（Ｃ）?Ａ、事件

B、方法

C、屬性

Ｄ、類?１３、下列對(duì)的的賦值語(yǔ)句是（Ｂ)

Ａ、x＋y=20

B、y=x＋２0

C、3x=y

D、s＝

14、當(dāng)使用上下文相關(guān)的幫助時(shí),選擇要幫助的內(nèi)容,然后按(D)鍵,就可出現(xiàn)MSDN窗口直接顯示所需的幫助信息。?

A、Ｈelp

B、F10

Ｃ、Ese

Ｄ、F1

1５、將調(diào)試通過(guò)的工程經(jīng)“文獻(xiàn)”菜單的“生成.exe文獻(xiàn)“編繹成名．exe后，將該可執(zhí)行文獻(xiàn)放到其它機(jī)器上不能運(yùn)營(yíng)的重要因素是(D)。?Ａ、運(yùn)營(yíng)的機(jī)器上無(wú)VB系統(tǒng)

B、缺少.ｆｒm窗體文獻(xiàn)

C、該執(zhí)行文獻(xiàn)有病毒

D、以上因素都不對(duì)

二、填空題?１、當(dāng)進(jìn)入VB集成開(kāi)發(fā)環(huán)境后，發(fā)現(xiàn)沒(méi)有顯示“工具箱”窗口。應(yīng)選擇視圖菜單的工具箱選項(xiàng),使“工具箱”窗口顯示。

2、在VB中，事件過(guò)程名由對(duì)象名和事件名構(gòu)成。?3、工程文獻(xiàn)的擴(kuò)展名是

vbｐ，窗體文獻(xiàn)擴(kuò)展名是

ｆrm

。

4、對(duì)象時(shí)代碼和數(shù)據(jù)的集合，例如,ＶisuａｌBasic中的窗體、按鈕、?文本框等都是對(duì)象。?5、對(duì)象的方法用于實(shí)行某種操作功能。當(dāng)方法不需要任何參數(shù)并且也沒(méi)有返回值,調(diào)用對(duì)象的方法的格式為對(duì)象名.方法名。例如對(duì)窗體Ｆｏrｍｌ使用Shｏｗ方法，應(yīng)寫(xiě)成

ｆorm1.ｓhｏw

。

６、要使文本框顯示滾動(dòng)條，需要將其ScrolｌBarｓ屬性設(shè)立為

3。?７、欲設(shè)立定期的時(shí)間間隔為4秒，則屬性Ｉｎtｅrval的值為

4000。

８、要使標(biāo)簽框的大小隨Cａption屬性做自動(dòng)調(diào)整,應(yīng)將AutoSizｅ屬性設(shè)立為Ｔｒue。

9、通過(guò)窗體布局窗口可以在設(shè)計(jì)時(shí)直觀地調(diào)整窗體在屏幕的位置。

10、要想在代碼中給名為txtshow的文框賦予文本：GＯODWORＫ!時(shí)，應(yīng)當(dāng)編寫(xiě)的語(yǔ)句是

txｔｓhow.ｔext＝”ＧOＯDWOＲK！”。?11、若命令按鈕的名稱為Ｃmdoｐｅｎ,程序規(guī)定單擊以上命令按鈕,打開(kāi)一個(gè)窗口frml，請(qǐng)對(duì)以下事件過(guò)程填空。

PrｉvaｔeSuｂCｍdopen

click()

Frm1.show?EｎdSud

12、事件就是對(duì)象上所發(fā)生的事情，VisuａlBａｓｉc中的事件如單擊、裝入、

鼠標(biāo)移動(dòng)等。一個(gè)對(duì)象響應(yīng)的事件可以有多個(gè),用戶不能建立新的事件。事件過(guò)程是指響應(yīng)某個(gè)事件后所執(zhí)行的代碼。假設(shè)某一事件過(guò)程如下：?Privａt(yī)eSubcmd1_Cｌicｋ(）

Foｒm１.Caｐtion＝”VＢ示例”

EnｄSuｂ?則響應(yīng)過(guò)程的對(duì)象名是

cmd1，事件名是Clｉｃk

。

13、對(duì)象的方法用于在對(duì)象上實(shí)行某種操作功能。當(dāng)方法不需要任何參數(shù)并且也沒(méi)有返回值,調(diào)用對(duì)象的方法格式為對(duì)象名．方法名,例如,對(duì)窗體Form１使用Sｈow方法，應(yīng)寫(xiě)成

Forｍ1.Show

。?１４、為了在編寫(xiě)代碼時(shí)能自動(dòng)語(yǔ)法檢查,必須執(zhí)行工具菜單中的選項(xiàng)?命令,打開(kāi)選項(xiàng)對(duì)話框，然后選擇“編輯器”選項(xiàng)卡中的自動(dòng)語(yǔ)法檢測(cè)。

15、定期器（Timer)控件可辨認(rèn)的事件是Timｅr，了生該事件的時(shí)間間隔定期由定期器的

Inｔeｒvａl屬性設(shè)立,其單位為毫秒。

三、問(wèn)答題?1、什么是可視化編程和事件驅(qū)動(dòng)?

?答:可視化編程是指無(wú)須編程，僅通過(guò)直觀的操作方式即可完畢界面的設(shè)計(jì)工作的這種編程方式。

當(dāng)ＶB的應(yīng)用程序運(yùn)營(yíng)后，系統(tǒng)處在等待狀態(tài),當(dāng)某個(gè)事件發(fā)生后，程序就去執(zhí)行此事件的事件過(guò)程,當(dāng)這個(gè)事件過(guò)程執(zhí)行完后,系統(tǒng)又處在等待另一個(gè)事件發(fā)生的狀態(tài),這就是事件驅(qū)動(dòng)程序方式。?2、對(duì)象、屬性、事件和文獻(xiàn)之間的關(guān)系如何？

答：對(duì)象是代碼和數(shù)據(jù)的封裝體。對(duì)象的操作通過(guò)與該對(duì)象有關(guān)的屬性、事件、方法來(lái)描述。?屬性是一個(gè)對(duì)象的基本特性,每個(gè)對(duì)象都有它自己的屬性。?方法是對(duì)象要執(zhí)行的動(dòng)作。

事件是在對(duì)象上所發(fā)生的事情。?3、簡(jiǎn)述事件驅(qū)動(dòng)機(jī)制與傳統(tǒng)編程方式的不同。?答:傳統(tǒng)的面向過(guò)程的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行那一部分代碼按何種順序執(zhí)行代碼，程序從第一行代碼開(kāi)始執(zhí)行并按應(yīng)用程序中預(yù)定的途徑執(zhí)行,用戶無(wú)法改變程序的執(zhí)行流程。而事件驅(qū)動(dòng)機(jī)制則由用戶來(lái)決定執(zhí)行的路線。這就是兩者的不同。

4、簡(jiǎn)述事件驅(qū)動(dòng)的工作過(guò)程。

答:事件驅(qū)動(dòng)的工作過(guò)程如下：（1）啟動(dòng)應(yīng)用程序,裝載和顯示窗體。（２）窗體或窗體上的控件等待事件的發(fā)生。(３)當(dāng)某個(gè)事件發(fā)生后,執(zhí)行其相應(yīng)的事件過(guò)程代碼。(4）反復(fù)執(zhí)行（2）和（3），直到碰到END語(yǔ)句或單擊“結(jié)束”按鈕停止程序的運(yùn)營(yíng)。?四、程序設(shè)計(jì)題

1、在窗體上添加一個(gè)文本框和兩個(gè)命令按鈕,并把兩個(gè)命令按鈕的標(biāo)題分別設(shè)立為“隱藏文本框”和“顯示文本框”。當(dāng)單擊第一個(gè)命令按鈕時(shí)，文本框消失;而當(dāng)單擊第二個(gè)命令按鈕時(shí),文本框重新出現(xiàn),并在文本框中顯示“VB程序設(shè)計(jì)”（字體大小為16）。程序運(yùn)營(yíng)界面如圖所示。

?圖1

解:“隱藏文本框”按鈕中的代碼為：Tｅｘｔ1.Visible=Faｌｓe?“顯示文本框”按鈕中的代碼為:Text1．Ｖisｉble=True?

Tｅxt1.Teｘt=”VB程序設(shè)計(jì)”?

Text１.FontＳizｅ=”16”

2、設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖2所示，由四個(gè)文本框：文本框1（ｔext１）、文本框２(teｘt2)、文本框3(texｔ3）、文本框4(teｘt4),和三個(gè)按鈕:命令按鈕1(ｃommanｄ1)、命令按鈕2（ｃommand2）、命令按鈕３(ｃommand3）組成。程序運(yùn)營(yíng)后,用戶按清除按鈕,則清除文本框中顯示的內(nèi)容，按計(jì)算按鈕,則計(jì)算三科平均成績(jī)。單擊退出按鈕則退出。?解:coｍmand１中的代碼為：text1=””：text2=””:ｔext3＝””：text4=””?command2中的代碼為:teｘt４=(val(Text1)＋ｖal(Teｘt2)＋vａｌ(Text３))/3?ｃomｍａnd2中的代碼為：Ｅｎd?3、編寫(xiě)一收款計(jì)算程序。規(guī)定用戶輸入商品的“單價(jià)”、“數(shù)量”和“折扣”后，單擊“計(jì)算”按鈕顯示“應(yīng)付款”,單擊“清除”按鈕，清除文本框中所有的數(shù)據(jù)。程序運(yùn)營(yíng)界面如圖３所示。

答:“計(jì)算”按鈕的代碼：text4=val（Ｔext1）*ｖal(Text2）*val（Tｅxｔ3)/1０0

“清除”按鈕的代碼:ｔext1=””:tｅｘｔ2=””:ｔeｘt3=””：text4＝””

?作業(yè)２一、選擇題?1.按照變量的作用域可將變量劃分為（Ｂ

）。?A、公有、私有、系統(tǒng)

B、全局變量、模塊級(jí)變量、過(guò)程變量?Ｃ、動(dòng)態(tài)、常數(shù)、靜態(tài)

D、Public、Pｒivatｅ、Ｐroｔected?２.可獲得字符的ASＣII碼的函數(shù)是（C)。?Ａ、ValＢ、FiｘC、Asc

D、Cｈr?3、要退出Dｏ….Loop循環(huán),可使用的語(yǔ)句的(Ｄ）語(yǔ)句。?Ａ、Exit

B、Exit

Ｆor

C、EndDo

D、ExｉtDo

4.把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是(Ｂ）。?A、Val

B、Sｔr

C、Asc

Ｄ、Chr

５.關(guān)于語(yǔ)句行，下列說(shuō)法對(duì)的的是(B)。?A.一行只能寫(xiě)一條語(yǔ)句B.一條語(yǔ)句可以分多行書(shū)寫(xiě)

Ｃ.每行的首字符必須大寫(xiě)D．長(zhǎng)度不能超過(guò)255個(gè)字符?6．表達(dá)式６+10Mｏd4*2+1的值是(Ａ）.

Ａ.9B．11C.1D．３

7.以下可以作為VｉsuａlBａｓic變量名的是(Ｂ).

Ａ.SIN

B.ＣＯ1

C.COS(X)

D.X(-1）

８.表達(dá)式Ａbｓ（－５)+Len(“ABCDE”)的值為（C）．?Ａ.5ＡBCDEＢ.－５ＡBCDE

C.10

Ｄ．０

9.在代碼編輯器中,假如一條語(yǔ)句太長(zhǎng)，無(wú)法在一行內(nèi)寫(xiě)下（不涉及注釋）,要折行書(shū)寫(xiě),可以在行末使用續(xù)行字符（A)，表達(dá)下一行是當(dāng)前行的繼續(xù).

A.一個(gè)空格加一個(gè)下劃字符（＿)Ｂ．一個(gè)下劃字符（_）

Ｃ．直接回車

D．一個(gè)空格加一個(gè)字符（－)?１0.Sｕb過(guò)程與Functｉoｎ過(guò)程最主線的區(qū)別是（D）.?A.Sub過(guò)程可以使用Ｃalｌ語(yǔ)句或直接使用過(guò)程名調(diào)用,而Function過(guò)程不可以.?B．Ｆunction過(guò)程可以有參數(shù)，Sub過(guò)程不可以.?C.兩種過(guò)程參數(shù)的傳遞方式不同．

Ｄ.Suｂ過(guò)程的過(guò)程名不能返回值,而Function過(guò)程可以通過(guò)過(guò)程名返回值.

11."Ｘ是小于8０的非負(fù)數(shù)＂，用VＢ表達(dá)式表達(dá)對(duì)的的是（C).?

A..0≤X<８0

Ｂ．０＜=X<80

C.0<=xａndｘ<８0

D.0<=xOrx<80

12.在設(shè)計(jì)菜單時(shí)，假如要在菜單中加入一個(gè)菜單分隔條，則菜單分隔條的標(biāo)題必須設(shè)立為(Ｂ）

A．加號(hào)(＋)

B.減號(hào)(-)

C．星號(hào)(*)

D．感慨號(hào)（!)

13．假如要在程序中顯示一個(gè)彈出式菜單,那么要調(diào)用VisualＢaｓic中提供的方法是(Ｄ).?

A．Pｒint

B.Move

C.Refｒｅsh

Ｄ．PopupMｅｎu?14．下列可以用來(lái)存儲(chǔ)圖像供其他對(duì)象使用的控件是(Ｃ）.?

A.TｏolBar

B.StatursＢａr

Ｃ.ImaｇｅＬiｓt

Ｄ.TreｅVｉew?15.當(dāng)單擊工具攔上的按扭時(shí)，會(huì)觸發(fā)的事件是(A).?

A.ＢutｔonClick

B.Chanｇe

C.Load

D.ＫeyPress?1６.要運(yùn)用公用對(duì)話框控件來(lái)顯示”打開(kāi)文獻(xiàn)”對(duì)話框,需要調(diào)用控件的（B）方法．

Ａ.ShowPrinteｒ

Ｂ.SｈｏwOpen

C．ＳｈowSavｅ

D．ShoｗＣolｏr

17.對(duì)于窗體級(jí)變量,下列說(shuō)法中錯(cuò)誤的是(C）.?A.所在窗體的各子程序都可以訪問(wèn)?B．其他窗體的子程序不能訪問(wèn)?C．所在窗體發(fā)子程序不能訪問(wèn)用Prｉvａｔe定義的窗體級(jí)變量?D.一定要在所在窗體的通用區(qū)內(nèi)定義?1８.從一個(gè)字符串中的第３個(gè)字符開(kāi)始,獲取5個(gè)字符,應(yīng)使用（B)?

A．Lｅｎ函