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

《ＶiｓuaｌBasic程序設(shè)計(jì)》形成性考核冊(cè)作業(yè)及答案

2０23年《VｉsuａｌBaｓic程序設(shè)計(jì)》形成性考核冊(cè)作業(yè)及答案作業(yè)1?一、選擇題

1、在設(shè)計(jì)應(yīng)用程序時(shí),可以查看到應(yīng)用程序工程所有組成部分的窗口是(D)。

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

Ｂ、代碼

C、屬性

D、工程資源管理器窗口

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

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

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

Ｃ、窗體顯示之后

D、窗體卸載時(shí)?3、與傳統(tǒng)的程序設(shè)計(jì)語言相比,VｉｓualBａsｉc最突出的特點(diǎn)是（Ｃ）。

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

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

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

D、程序調(diào)試技術(shù)?４、VB６.０集成開發(fā)環(huán)境的主窗口中不涉及（C）。?

Ａ、標(biāo)題欄

B、菜單欄

C、狀態(tài)欄

D、工具欄

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

A、ｔext.Mytext

Ｂ、Myｔｅxｔ.Teｘｔ

Ｃ、Ｍｙtexｔ.(Text）

Ｄ、Myteｘt*Texｔ

6、下列可以激活屬性窗口的操作是(D)。?

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

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

C、按Ctｒl＋F4

D、按F4

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

A、單擊窗體上沒有控件的地方

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

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

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

A、Captｉoｎ

B、PasswｏrｄＣhａr

Ｃ、Teｘt

D、Ｃhar

9、假如想要在文本框中的內(nèi)容在運(yùn)營時(shí)不能編輯，需要文本框的（A)屬性設(shè)立為Truｅ.

ＡLocked

B、MｕltiLｉne

C、TabStop

DVisｉble

10對(duì)于定期器（Tｉner)控制,設(shè)立其定期是否啟動(dòng)的屬性是（C)

A、Indeｘ

B、Tag

C、Enaｂleｄ

D、Ｌｅft?11、要在窗口體Ｆornl內(nèi)顯示“mｙfrm”使用的語句是(C)

A、Ｆorm.caption=“myｆｒm”B、Ｆornｌ.cａptｉon=“myfrｍ”?C、ｆorml.priｎt“ｍyfrm”D、forｍ.ｐriｎｔ“mｙfrm”

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

B、方法

C、屬性

D、類

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

A、ｘ+y＝20

B、y＝ｘ+2０

C、3x=y

D、s=

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

Ａ、Help

Ｂ、F1０

C、Ese

D、F１?1５、將調(diào)試通過的工程經(jīng)“文獻(xiàn)”菜單的“生成．ｅｘe文獻(xiàn)“編繹成名.exe后,將該可執(zhí)行文獻(xiàn)放到其它機(jī)器上不能運(yùn)營的重要因素是(D）。

A、運(yùn)營的機(jī)器上無VB系統(tǒng)

B、缺少．ｆｒｍ窗體文獻(xiàn)

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

D、以上因素都不對(duì)?二、填空題

1、當(dāng)進(jìn)入VB集成開發(fā)環(huán)境后,發(fā)現(xiàn)沒有顯示“工具箱”窗口。應(yīng)選擇視圖菜單的

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

事件名

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

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

frm

。

4、對(duì)象時(shí)代碼和數(shù)據(jù)的集合，例如,ＶｉsualBａｓｉc中的

窗體、

按鈕、

文本框

等都是對(duì)象。

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

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

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

對(duì)象名.方法名

。例如對(duì)窗體Fｏrml使用Shｏw方法，應(yīng)寫成

form1.shoｗ

。

6、要使文本框顯示滾動(dòng)條,需要將其SｃrｏｌlBarｓ

屬性設(shè)立為

3

。?７、欲設(shè)立定期的時(shí)間間隔為4秒,則屬性Ｉｎtervａl的值為

4000。?８、要使標(biāo)簽框的大小隨Caｐｔｉon屬性做自動(dòng)調(diào)整，應(yīng)將AuｔoSiｚe

屬性設(shè)立為

Ｔrue

。?9、通過

窗體布局窗口

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

１0、要想在代碼中給名為ｔxtsｈow的文框賦予文本：ＧOODWＯＲK！時(shí),應(yīng)當(dāng)編寫的語句是

txｔshoｗ.ｔexｔ=”GOODWORK!”

。?11、若命令按鈕的名稱為Cmｄoｐeｎ，程序規(guī)定單擊以上命令按鈕,打開一個(gè)窗口frｍl,請(qǐng)對(duì)以下事件過程填空。

ＰｒivatｅSubＣｍｄopeｎ

cｌick（)

Frｍ1.ｓhow

ＥｎdSud

12、事件就是對(duì)象上所發(fā)生的事情，ＶiｓualBａsiｃ中的事件如單擊

、

裝入

、

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

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

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

。假設(shè)某一事件過程如下：?PｒivateSubcmｄ1_Click()

Form1．Ｃaption=”ＶB示例”

ＥnｄSub?則響應(yīng)過程的對(duì)象名是

cmd1

,事件名是

Click

。

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

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

對(duì)象名.方法名

，例如,對(duì)窗體Fｏrｍ1使用Shｏw方法，應(yīng)寫成

Fｏrｍ1.Ｓｈoｗ

。

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

菜單中的

選項(xiàng)

命令，打開

選項(xiàng)

對(duì)話框，然后選擇“編輯器”選項(xiàng)卡中的自動(dòng)語法檢測(cè)。

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

Intervａｌ屬性設(shè)立，其單位為毫秒。

三、問答題

1、什么是可視化編程和事件驅(qū)動(dòng)？

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

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

答:對(duì)象是代碼和數(shù)據(jù)的封裝體。對(duì)象的操作通過與該對(duì)象有關(guān)的屬性、事件、方法來描述。?屬性是一個(gè)對(duì)象的基本特性,每個(gè)對(duì)象都有它自己的屬性。?方法是對(duì)象要執(zhí)行的動(dòng)作。?事件是在對(duì)象上所發(fā)生的事情。?3、簡述事件驅(qū)動(dòng)機(jī)制與傳統(tǒng)編程方式的不同。?答:傳統(tǒng)的面向過程的應(yīng)用程序中,應(yīng)用程序自身控制了執(zhí)行那一部分代碼按何種順序執(zhí)行代碼，程序從第一行代碼開始執(zhí)行并按應(yīng)用程序中預(yù)定的途徑執(zhí)行,用戶無法改變程序的執(zhí)行流程。而事件驅(qū)動(dòng)機(jī)制則由用戶來決定執(zhí)行的路線。這就是兩者的不同。?4、簡述事件驅(qū)動(dòng)的工作過程。?答:事件驅(qū)動(dòng)的工作過程如下：(1)啟動(dòng)應(yīng)用程序,裝載和顯示窗體。（2）窗體或窗體上的控件等待事件的發(fā)生。（3）當(dāng)某個(gè)事件發(fā)生后，執(zhí)行其相應(yīng)的事件過程代碼。（4）反復(fù)執(zhí)行（2）和（3），直到碰到END語句或單擊“結(jié)束”按鈕停止程序的運(yùn)營。?四、程序設(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)營界面如圖所示。

圖１

解：“隱藏文本框”按鈕中的代碼為:Ｔext1.Vｉsiblｅ＝Ｆａlse

“顯示文本框”按鈕中的代碼為:Ｔｅｘt1．Viｓible=Tｒuｅ

Text1．Ｔｅxt=”ＶB程序設(shè)計(jì)”

Texｔ1.FoｎtＳizｅ＝”16”

2、設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖2所示,由四個(gè)文本框：文本框1(tｅxt1)、文本框2(text2)、文本框3（text3）、文本框4（text４)，和三個(gè)按鈕:命令按鈕1（ｃommand1）、命令按鈕2(command2)、命令按鈕3（cｏmmand3）組成。程序運(yùn)營后,用戶按清除按鈕,則清除文本框中顯示的內(nèi)容，按計(jì)算按鈕,則計(jì)算三科平均成績。單擊退出按鈕則退出。

解:comｍand1中的代碼為:text1＝””:ｔeｘt2=””:ｔeｘt3＝””:tｅxt４=””

commaｎd２中的代碼為:text4=(ｖal(Ｔext１)+vａl(Ｔexｔ2)+vaｌ（Ｔeｘt3)）/３

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

答:“計(jì)算”按鈕的代碼:texｔ4=vａl（Tｅxt1)*ｖal(Tｅｘt2）*vａl（Teｘt3)／１00

“清除”按鈕的代碼:ｔexｔ1＝””:text２=””:text3＝””:text4＝””?作業(yè)２

一、選擇題?1．按照變量的作用域可將變量劃分為(B

)。

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

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

D、Publｉc、Privaｔe、Prｏtecteｄ?２.可獲得字符的ASＣII碼的函數(shù)是(C）。

A、ValＢ、FiｘＣ、Ａｓc

D、Cｈr?3、要退出Ｄo…．Ｌoop循環(huán),可使用的語句的(D）語句。?A、Exit

B、Ｅxit

Ｆor

C、EndDo

Ｄ、ＥｘitDo

４．把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是（B）。

A、Vａl

B、Sｔｒ

C、Asc

D、Chr

5.關(guān)于語句行，下列說法對(duì)的的是（B）。?Ａ．一行只能寫一條語句Ｂ．一條語句可以分多行書寫?Ｃ.每行的首字符必須大寫D.長度不能超過2５5個(gè)字符?6.表達(dá)式６+10Mｏd４*2+1的值是（A)．?A.9B.11Ｃ.１D.3

７.以下可以作為VisualBasｉc變量名的是（B）.?A.ＳＩN

B.CO１

C.COS(X)

D.X(－1)?8.表達(dá)式Aｂs（-5)＋Len(“AＢCDE”)的值為（C）.

A．５A(chǔ)ＢCDEＢ.-５A(chǔ)BＣDＥ

C.10

D．０

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

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

Ｃ．直接回車

Ｄ．一個(gè)空格加一個(gè)字符(-）

１0.Suｂ過程與Ｆuｎｃtioｎ過程最主線的區(qū)別是(D).?A.Ｓuｂ過程可以使用Ｃalｌ語句或直接使用過程名調(diào)用，而Ｆunction過程不可以.?B．Funｃtion過程可以有參數(shù)，Sub過程不可以.

C．兩種過程參數(shù)的傳遞方式不同．?Ｄ.Ｓuｂ過程的過程名不能返回值,而Function過程可以通過過程名返回值.

11."Ｘ是小于80的非負(fù)數(shù)＂,用ＶB表達(dá)式表達(dá)對(duì)的的是(C）.?

Ａ..0≤X＜8０

B．０＜＝Ｘ<80

C.0<=xaｎdx<８0

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

Ｂ．減號(hào)(－)

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

D．感慨號(hào)(!)?1３.假如要在程序中顯示一個(gè)彈出式菜單,那么要調(diào)用ViｓualBasic中提供的方法是(D).?

A.Pｒiｎｔ

B.Mｏve

C.Reｆｒｅsｈ

D.PopｕpMenu

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

A.ToolBａr

Ｂ．Sｔａt(yī)ursBar

Ｃ.ＩｍａgｅLｉst

D.TｒeeＶieｗ

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

A.BuｔtoｎClｉck

Ｂ.Cｈange

Ｃ.Load

D.ＫeyPrｅss

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

A．SｈowPrｉｎtｅr

B.ShoｗＯpen

C.ShoｗSaｖe

D.SｈowCｏｌｏr

17.對(duì)于窗體級(jí)變量,下列說法中錯(cuò)誤的是(Ｃ）.

A.所在窗體的各子程序都可以訪問?Ｂ．其他窗體的子程序不能訪問?C．所在窗體發(fā)子程序不能訪問用Private定義的窗體級(jí)變量?D.一定要在所在窗體的通用區(qū)內(nèi)定義

18.從一個(gè)字符串中的第３個(gè)字符開始，獲?。祩€(gè)字符,應(yīng)使用(B)

A.Ｌeｎ函數(shù)

B．Mｉd函數(shù)

Ｃ．Ｌeft函數(shù)

Ｄ.Righｔ函數(shù)

１9.用下面的語句所定義的數(shù)組的元素的個(gè)數(shù)是（D)．?

DiｍA(-３Tｏ5）As

Integｅr?

Ａ.6

B.7

C.8

Ｄ.9?20．有如下程序段：?DｉmstrlAsString＊5

Sｔｒl＝”VisｕaｌBasic”

當(dāng)該段程序被執(zhí)行完時(shí)，變量sｔrｌ的值為(Ｂ）.

A.”Visual”

Ｂ.”Viｓua”

C.”V”

Ｄ.”Vｉｓual

Basｉc”?二、填空題?1.菜單一般有_下拉式_和＿彈出式＿_(dá)兩種基本類型。?２.通用對(duì)話框控件可顯示的常用對(duì)話框有__打開＿、＿保存_、_＿顏色_、__字體＿、_＿打印_。

3.組合框具有__文本框＿和__列表框＿兩種控件的基本功能。?4.要使數(shù)組的默認(rèn)下標(biāo)從“1開始,則應(yīng)在窗體或標(biāo)準(zhǔn)模塊代碼的聲明部分使用語句＿_(dá)ＯptionBaｓe1_。?５．調(diào)用Sub過程時(shí),使用__calｌ__語句,語句用于把程序控制傳送到一個(gè)ViｓuａｌBasic的Sub過程。?６.若已建立了Foｒm1和Forｍ2兩個(gè)窗體,默認(rèn)啟動(dòng)窗體為Fｏrm１。通過_工程_菜單__屬性_命令的_通用_選項(xiàng)卡，可將啟動(dòng)窗體設(shè)立為Foｒm2。在程序中若要顯示Ｆorm1窗體，則執(zhí)行＿Form1.ｓｈow_語句。

7.列表框中項(xiàng)目的序號(hào)是從_0_開始的。?8.Sub過程與Ｆｕnctiｏｎ過程最主線的區(qū)別是_Suｂ過程名無返回值,Functioｎ過程名有返回值。

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

10．使用Hide方法會(huì)隱藏被調(diào)用的窗體,但是在調(diào)用Hide方法之后不會(huì)把窗體__卸載_,被調(diào)用的窗體中的屬性等已處在_內(nèi)存中_。

11．將下列數(shù)學(xué)式子寫成VisualＢaｓic表達(dá)式。?

⑴

答:2＊ｃos(a)*sｉn(ａ)/(2*ａ)?

⑵答:ｓqr(s*(s-a）*(s-b)*(ｓ-c）)?

⑶siｎ45°：siｎ(45*2*3.１415/36０）_?１2.將下列數(shù)學(xué)式子各條件寫成ＶisｕalBasic邏輯表達(dá)式。

⑴1≤x＜12:１＜＝xａndx<12

⑵Ａ+B≥Ｃ或ａ-c≤c:(A+B)>=CＯR（a-c)<=c

⑶a和b都為正整數(shù)或同為負(fù)數(shù):(a>=0aｎdｂ>=0）or(a<=０anｄb<＝0)?13.設(shè)A=２,B=3,C＝4,D=5。表達(dá)式NotＡ<=ＣＯr4＊Ｂ＾2ＡndB<>A+C的值為_Ｆaｌse_。

１4.在VｉsualBasic語言中有三種形式的循環(huán)結(jié)構(gòu)。其中,若循環(huán)的次數(shù)可以事先擬定,可使用_Foｒ…nexｔ＿＿循環(huán)；若規(guī)定先判斷循環(huán)進(jìn)行的條件，可使用_Dｏwhile…lｏop_循環(huán)或_whiｌe…Ｗｅnｄ_循環(huán)。

1５．以下語句的輸出結(jié)果是__3_。?a%＝３.141５9?Ｐrｉntａ%

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

1、PriｖateSｕbＦorm＿Cｌick（）?

ＳtaticSｕmAsIntｅger?

FoｒI=1to1０0

Sum=Suｍ+I?

NextＩ

ＰrｉnｔＳuｍ

EｎｄSuｂ

程序運(yùn)營結(jié)果為：1+２＋…….+99+100=50５0

2、prｉvａt(yī)ｅSubＦoｒｍ＿Ｃｌiｃk()

A=1０：b=15:c＝20:d=25

ＰrｉnｔA;Ｓpc（5)；b;Spc(7);c

PriｎtA;Spc(8）;b;Ｓpace$(５);c

Pｒiｎｔc;Sｐc(３);”+”;Spc(3);ｃ＋d

EndSub

10（5個(gè)空格)１5(7個(gè)空格)20?10(８?jìng)€(gè)空格)１5(５個(gè)空格)20?20（三個(gè)空格)＋(三個(gè)空格）45?3、ＰrivateＳuｂＦorｍ_ｃlｉcｋ(）

Fori%=1to3?

Forj%＝1ｔoｉ

PrintLＴrim(Str(i%))＋“＊”＋LTｒim(Sｔr(j%))+“＝”;i％*ｊ%;?

Nextj%

Ｐrinｔ?Ｎｅxti%

EｎｄＳub

1*1＝１

2＊１=2

2*2=4?３*1=3

3*２=６

3*3=9?

?4、PｒｉｖatｅＳubCoｍmand1_Click(）?

Ｄimａ，bAsIｎtｅgｅr

Ａ=３.４?B=３.4?Tｅxt１.Texｔ=a

Teｘt2.Ｔext＝b

EnｄSuｂ?Tｅxt1顯示３、4

Texｔ2顯示3

５、ＰrivａｔeＳubFoｒm＿Clｉcｋ(）?

FｏrI=1to５

PriｎtＴａｂ(１1–Ｉ）

ＦorJ=1ToI*2–1

Ｐrinｔ“*”；

Next?

Nexti

EndSub

*?

***?

＊*＊**?

**＊****?

*********?

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

IｆＶal（tｅxt1)>=５00tｈentext2=Val(teｘｔ１)*０．7

ElsｅｉfVａl(tｅxt１）＞＝3００ｔhｅntext2=Vａl(texｔ１)*0.85?

ElseｉfＶal(text1)＞=20０tｈentext２=vaｌ(ｔext1)＊０.9?

Elseifvａl（text1)>=１０0ｔhenteｘt2=val（tｅxt1)*0.95?Enｄｉf

?

2、輸出1００~200之間不能被3整除的的數(shù)，規(guī)定用Do語句的一種形式來實(shí)現(xiàn)，程序運(yùn)營結(jié)果如圖5所示。?窗體的裝入事件中加入如下代碼:

Dｉmａasｉnteger

A=100?Ｄoｗhilｅa＜=20０?If(aｍｏｄ3)<>０then?Lisｔ1.ａｄdｉtenstr(a)?Endiｆ

A=a+1

loop?3、編寫程序,打印如下的乘積表:?DimI,jasinｔｅger?Ｐrinｔ”*”:ｓｐａce(5）:

Fori=３tｏ12step3

Priｎtｓtr(ｉ);ｓpaｃe（5);

Ｎexｔi?Ｐｒｉｎｔ

FoｒI=1５to１８?Priｎｔstｒ(i);sｐace(3);?Forj=3to12ｓｔｅp3

Ｐｒiｎtstr(i＊ｊ);space(4);?Ｎextj?Priｎt

Ｎextj

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

Text1=10＊2?除法單選按鈕中添加如下代碼：?Tｅxｔ1=１0/2?加法單選按鈕中添加如下代碼：?Ｔext１＝１0+2

減法單選按鈕中添加如下代碼：ｔext1=10-2?結(jié)束按鈕中代碼:end或ｕnloａdme?5、編寫輸入一個(gè)0~6數(shù)字,顯示漢字對(duì)照輸出星期的Fuｎｃtｉon過程。程序運(yùn)營結(jié)果如圖8所示。?文本框的cｈaｎge事件中代碼如下:?Selｅctcａsｅvａｌ(tｅｘｔ1)

Case０?Ｌaｂeｌ１．captｉon=”星期天”+chｒ（13）+”(Sunday)”?Cａse1?Labｅl1.ｃaｐｔion=”星期一”+cｈｒ(13)+”（monday)”

Caｓｅ2?Label１.ｃaptioｎ＝”星期二”＋ｃhr(13)+”(Tuesｄay)”?Case3?Labｅｌ1.caｐtｉon=”星期三”+ｃhr(13)+”（weｄｎesｄay)”?Caｓe4?Lａbｅl1.captｉoｎ=”星期四”+ｃhｒ(13）＋”(thursｄaｙ）”?Caｓe5

Lａｂｅl１.caｐtiｏｎ=”星期五”+chr(13)+”（firday）”

Case6?Ｌabel1.ｃａptiｏｎ=”星期六”＋ｃｈr（13)＋”(saｔurday)”

Endseｌect?

?6、編寫一個(gè)程序，當(dāng)鼠標(biāo)移到Ｐicturel控件時(shí),鼠標(biāo)指針改變形狀；當(dāng)在Pictｕrel控件上單擊鼠標(biāo)右鍵時(shí),通過消息框顯示“Youpreｓsｅdｒｉｇhtbutton”,并再次改變鼠標(biāo)指針的形狀。?Picｔｕre1_mｏuseup

Iｆbutton=2tｈen

Ｉ＝1?Msｇｂｏｘ”ｙoｕpressedriｇhtbutton”?Ｅndif

Endｓub?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)營結(jié)果如圖９所示。

添加按鈕代碼:ｌist１．a(chǎn)dｄiｔｅmteｘt1.ｔｅｘt?Text1.teｘｔ=””?刪除:iｆｌist１.text＜＞””ｔｈeｎ

List1．remｏveitem＝list1.ｌistindex?Endif?修改:

Ifcｏmｍaｎd３.cａｐtｉon＝“修改”thｅn

Ｔext1．text＝list1．ｔext?Ｃommａnd3.caption＝”修改確認(rèn)”?Ｅlse?If

ｃommａnd3.cａptｉｏn＝”修改確認(rèn)”then

Ｌisｔ1.lｉｓt=ｌist１．listｉnｄex>=text1．tｅxt?Command３.caｐtiｏｎ=”修改”?Eｎdif

Enｄｉf

作業(yè)３?一、選擇題

1、ＶisibleBasic根據(jù)計(jì)算機(jī)訪問文獻(xiàn)的方式將文獻(xiàn)提成三類，其中不涉及（Ｂ)?A.順序文獻(xiàn)

B．Unix文獻(xiàn)

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

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

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

Ｂ。記錄

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

D。字符

3、為了使目錄途徑列表框Ｄir1的內(nèi)容符合驅(qū)動(dòng)器列表框Driｖe1的選擇，應(yīng)當(dāng)(B)。?A．在Dｉr１_Ｃlick事件中加入Ｄir1.Path＝Drivｅ1.Dｒiｖe?Ｂ.在Dｒive1_Clｉcｋ事件中加入Ｄir1.Ｐath=Ｄｒive１.Drｉｖe?C．在Dｉｒ1_Ｃlick事件中加入Driｖe１.Paｔh＝Dir1.Drivｅ

D．在Dir１_Ｃlick事件中加入Drive1.Path=Ｄir1．Drivｅ

4、為了使dｒivｅ1驅(qū)動(dòng)器列表框、dir1目錄途徑列表框和fｉｌe１文獻(xiàn)列表框能同步協(xié)調(diào)工作,需要在（B)?Ａ.drｉve1的Ｃhａnge事件過程中加入drive１.Driｖe=ｄiｒ1.Pａt(yī)h，在dｉｒ１的Cｈanｇe事件過程中加入dir1.Path=file１.Path代碼。?Ｂ.ｄrive1的Chａngｅ事件過程中加入ｄiｒ1.Pａt(yī)h＝ｄrｉvｅ1.Ｄrive，在ｄir１的Ｃｈanｇe事件過程中加入file１．Path=dir１．Pａt(yī)h代碼。?C．dir1的Cｈaｎge事件過程中加入dir1.Path=dｒivｅ1.Dｒivｅ,在file1的Click事件過程中加入fｉlｅ1.Pａt(yī)h=fｉlｅ1.fileＮａme代碼。

D．dir1的Ｃhange事件過程中加入dｉｒ1.Pａt(yī)ｈ=drive1.Dｒiｖe,在fiｌe1的Ｃlick事件過程中加入fｉle1．Pａt(yī)h=diｒ１．Pａｔh代碼。

5、下面關(guān)于順序文獻(xiàn)的描述對(duì)的的是(Ａ)

A．每條記錄的長度必須相同

Ｂ．可通過編程對(duì)文獻(xiàn)中的某條記錄方便地修改

Ｃ．?dāng)?shù)據(jù)只能以ＡSCII碼形式存放在文獻(xiàn)中，所以可通過文本編輯軟件顯示?D．文獻(xiàn)的組織結(jié)構(gòu)復(fù)雜?6、ＫILL語句在VB語言中的功能是(Ｃ）。?A.清內(nèi)存

B。清病毒

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

D。清屏幕?７、可用來改變坐標(biāo)度量單位的是（D)

Ａ.Ｄrａｗstyle屬性

B．DrawWidth屬性

C.Ｓcａle方法

D.SｃaｌeMｏde屬性

8、以下的屬性和方法中，可重定義坐標(biāo)系的是（C）?A．Drawstylｅ屬性

B．DｒawWｉdｔh屬性

C．Scaｌe

D.

SｃａleＭode屬性?9、當(dāng)用Ｌine方法畫直線后，當(dāng)前坐標(biāo)在（C)

Ａ.（0,0)

B.直線起點(diǎn)

C.直線終點(diǎn)

D．容器的中心

10、Line（20０,200)-Ｓｔep(50０,５00)將在窗體（C）畫一直線。?A．（2００,200)到（500，50０）

B.(2０0，20０)到(３00,300）?C.(2０0,200）到(70０,700)

D.（３00,3０0)到(５０0,500)

１1、設(shè)立對(duì)象的邊框類型的屬性是（B）。

A.Dｒawstyle

B.Ｂordｅrstｙｌe

C．ＤrａwＷiｄth

Ｄ.ScaｌeMode

12、為了清除圖片框Picture1中的圖形，應(yīng)采用的對(duì)的方法是（B）?Ａ．選擇圖片框,然后按Del鍵

B．執(zhí)行語句Pｉcturｅ1.picture=ＬoaｄPｉｃｔｕｒe(“”)?C.執(zhí)行語句Pｉｃtuｒｅ1.picｔｕre＝“”

Ｄ．選擇圖片框,在屬性窗口中選擇Pictｕre屬性條，然后按回車鍵?1３、繪制多種形狀的圖形，需要設(shè)立Sｈaｐe控件的（A)屬性。

A.Ｓhape

B.Bｏrｄerstyｌｅ

C.FｉllStylｅ

D.Style

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

Ａ.Shａpｅ

B.Borderｓtｙlｅ

C.ＦｉｌlＳtyle

D.Style

15、假如準(zhǔn)備讀文獻(xiàn)，打開順序文獻(xiàn)“ｔext.ｄat”的對(duì)的語句是（C）?A.

oｐｅn“text.dat”ｆｏrｗｒiteＡs#1

B.

opｅｎ“text.dat”fｏrＢinaｒy

Ａs＃1?C.

ｏpen“ｔext.dat”forInput

As＃1?Ｄ.

opeｎ“ｔext.ｄａt(yī)”fｏrＲａnｄom

As#1

16、假如準(zhǔn)備向隨機(jī)文獻(xiàn)中寫入數(shù)據(jù)，對(duì)的的語句是（Ｃ)?A.Ｐrｉnt#1,rec

B．Wｒite

#1,rec

C.Ｐuｔ#1,rec

D.

Gｅｔ#1,reｃ

17、下列“CoｍmandDiａlｏｇ１”控件程序代碼，CｏmｍaｎdＤｉaｌoｇ１.Ａctｉｏｎ=１,代表(B）

Ａ．文獻(xiàn)另存為

B．打開文獻(xiàn)

C．色彩

D.打印

18、ＦｉleFｉlteｒ．Ｐaｔteｒn=”*.bａt(yī)”程序代碼執(zhí)行后，會(huì)顯示（A)。

A只包含擴(kuò)展文獻(xiàn)名為”*．baｔ”的文獻(xiàn)

B。第一個(gè)bat文獻(xiàn)?C．包含所有的文獻(xiàn)

D。會(huì)顯示磁盤的途徑?19、下列數(shù)據(jù)對(duì)象模型中采用OLＥDB訪問數(shù)據(jù)庫的是（C）。?A.DAO

B.ＲDO

C.ＡＤO

D.ＲDＯ和ＡDO

20.設(shè)AＤOｒs為Rｅcorｄset對(duì)象,從“學(xué)生基本情況表”中獲取所有記錄的語句是(B）?A．ＡDOrs．New“Selｅcｔ*From學(xué)生基本情況表”

B．ADOrs.Oｐen“Seleｃt*From學(xué)生基本情況表”

C.ＡDＯrs.Ｅxｅcute“Seｌect*Froｍ學(xué)生基本情況表”

D．ＡDOｒs．Ｓelｅｃt“Ｓｅleｃt*From學(xué)生基本情況表”

２1、ＶB中將變量xl聲明為Excel應(yīng)用程序?qū)ο蟮姆椒ㄊ牵ˋ）

A.DimxlＡsExceｌ.Ａpｐliｃａt(yī)ion

B.DimxlAｓExｃeｌ.Ｗo(hù)rkｂoｏk

C.

DｉmxlAsExｃel.Wｏrkshｅｅt

Ｄ.ＤimxlAｓExcel．Worksｈeets?二、填空題

1、假如要新建一個(gè)順序文獻(xiàn),用Opeｎ語句時(shí)，操作方式關(guān)鍵詞是outｐut。?２.在ViｓｕalBaｓｉc程序中實(shí)現(xiàn)復(fù)制文獻(xiàn)“C：\ｃｏmmaｎ”到D:盤根目錄下的語句

為filecopy

“c：\command．cｏm”,”d:＼”。?3.在ＶisuａlＢasic程序中實(shí)現(xiàn)刪除文獻(xiàn)”Ｄ:＼tem．tmｐ”的語句為__kill”d:\ｔｅｍ.tmp”。?4．按文獻(xiàn)號(hào)為１打開順序文獻(xiàn)SEQＮEW.DAT，用于寫入數(shù)據(jù),語句?為＿_(dá)_oｐeｎ”ＳEQＮEW．ＤAT”ｆｏroutpｕtas

#１。

5.按文獻(xiàn)號(hào)為2打開順序文獻(xiàn)ＳＥQOＬD.ＤAT,用于從該文獻(xiàn)讀出數(shù)據(jù),語句為___opｅn”ＳEQＯLD.ＤＡT”foｒinpｕtas#2。?６．若窗體的左上角坐標(biāo)為（-２00,250),右下角坐標(biāo)為(300,-１５０),則X軸的正向向右，Y軸的正向向上＿。?7.Strｅｔch屬性設(shè)立為_false＿時(shí)，圖像框可自動(dòng)改變大小以適應(yīng)其中的圖形.?8．在圖片框Piｃture1中畫一個(gè)左上角在(500,5００)，邊長為50０的紅色實(shí)心正方形的語句為_piｃture１．ｌine（500,５00)-stｅp(５０0，500)，ｖbreｄ，BF。?９.設(shè)

ＣurreｎtX＝50,CｕrrenｔY=100,執(zhí)行指令”ｌine（１00,2０）-Ｓtｅp(300,500）”后，Cｕrrent＝_（400,520)＿．

１０.使用AＤＯ模型時(shí),可通過_ActivｅConnect_屬性建立Reｃordｓｅt和Ｃｏnnｅction對(duì)象的連接.?１1.VB中將數(shù)據(jù)庫分為本地?cái)?shù)據(jù)庫、遠(yuǎn)程數(shù)據(jù)庫和＿＿外部數(shù)據(jù)庫_三種類型.?1２.采用ADO模型時(shí)，當(dāng)使用Open方法打開一個(gè)記錄集后,與ADOrｓ.Fielｄｓ(“學(xué)號(hào)”）等效的語句是_AＤOrs（“符號(hào)”)_.

13．ADO模型中一般可通過Conｎｅctioｎ對(duì)象的Execute方法執(zhí)行__增長_、__刪除_、＿_(dá)修改__等三類不返回結(jié)果集的SＱＬ語句.?14.設(shè)StrSQL、Sｔr1為字符串變量,其中Ｓｔｒ1的值為”０01”，那么執(zhí)行賦值語句StrSQL=”Ｓeｌeｃt*fromTａｂeｌ１Wheｒe學(xué)號(hào)=’”＋Stｒ1+”’”后,ＳtｒＳQL的值等于_”selｅct.*ｆromtabｅｌ１wheｒe學(xué)號(hào)=’001’”＿.?１5.在VB中,將Foxpｒo稱為外部數(shù)據(jù)庫,Acｃess稱為__本地?cái)?shù)據(jù)庫_，ＳＱLＳｅｒver稱為__遠(yuǎn)程數(shù)據(jù)庫_＿.?三、程序設(shè)計(jì)題

1、在窗體上建立一個(gè)驅(qū)動(dòng)器列表框、目錄列表框、文獻(xiàn)列表框、圖片框。規(guī)定程序運(yùn)營后，驅(qū)動(dòng)器列表框Ｄrive1的默認(rèn)驅(qū)動(dòng)器設(shè)立為C盤,選擇Ｆilｅ1中所列的確圖片文獻(xiàn)（＊．Bmｐ和*．jｐg)，則相應(yīng)的圖片顯示在圖片框Ｐicture1中。程序運(yùn)營結(jié)果如圖10所示。

解：依據(jù)圖１０設(shè)計(jì)界面，文獻(xiàn)列表框的pａt(yī)ｔerｎ屬性設(shè)立為：*.Bｍp;＊.jｐg?驅(qū)動(dòng)器列表框的cｈanｇｅ事件中添加如下代碼:

chdrivedrｉvｅ１．ｄｒive?dｉr１.patｈ=drｉｖe1.drive

目錄列表框的cｈange事件中添加如下代碼：

chｄirｄiｒ1.pａt(yī)ｈ?ｆiｌe1.pａt(yī)h=ｄｉｒ1．ｐaｔｈ?文獻(xiàn)列表框的cｌｉck事件中添加如下代碼:?

picture１.pｉｃtｕｒｅ=loadｐicturｅfiｌe１．fiｌenaｍe?2．余弦曲線的方程為ｙ=coｓx,畫出x從-2到2的確余弦曲線，并在坐標(biāo)軸上標(biāo)出刻度,如圖1１所示。?如圖窗體的單擊事件中添加如下代碼:?Form１.scale（-２*3.１４１5９,１)－(2＊3.14159,-1)?Form1.line(-2*３．1４１59,０）-(2＊3．１415９,0)?Form1．ｌine(0，１)-（0,-１)

Fｏｒｍ1.currentx＝０．2:forｍ１.ｃurrentY=-0.1:pｒinｔ”０”?Ｆoｒm１.ｃｕrｒentx=-3.2：forｍ１．ｃurｒenｔＹ＝-0.1:prｉnt”-pｉ”

Ｆorm1．currentx＝３.3：ｆorｍ1．cｕｒreｎｔY=-０.1:ｐｒiｎt”pi”

Foｒm1．cｕrｒｅntx＝-6.2:foｒm1．cｕｒｒｅｎtＹ=-0.1:prinｔ”-2pi”?Forｍ1.cuｒrentｘ＝5．７:forｍ１.curreｎｔY＝-0.1：prｉnt”2ｐi”

Foｒm1．ｃurrｅntx=0．2：ｆorm１．ｃurｒenｔY＝0.5:priｎt”0.5”

Fｏrm1.ｃuｒrｅnｔx＝0.2：ｆorm１.cｕｒｒｅｎtY=-０.5:prｉｎt”-０.5”

FｏrI=-6.28２to6.282step０．08

Ｆorm1.pset（I,coｓ(Ｉ))?

ＮｅxtI

3,使用Lｉne控件顯示直線,并且可以顯示直線的線寬和線型．程序運(yùn)營界面如圖１2所示.?如圖添加代碼如下

復(fù)選框的單擊事件代碼:?Ifcｈeｃk1.value=１tｈen

Ｌine１．ｂorｄerwidth=４

Eｌｓe

Liｎｅ1.borｄerwｉdtｈ=１?Ｅnｄif?實(shí)線、虛線、單選框要弄成一個(gè)oｐtｉon1單選框控件數(shù)組。單選框單擊事件代碼:

Seｌecｔcaseindeｘ?

Ｃase0

Ｌine1.boｒｄerｓtyｌｅ＝1?

Cａse1?Line1.borｄeｒstyle＝2

Case2?Liｎｅ1.bｏｒｄerｓｔyle=３

Endsｅｌect?４.使用Ｓhａpｅ控件顯示幾種圖形,并可以設(shè)立圖形的邊框和填充效果等.程序運(yùn)營界面如圖13所示.

一方面按圖作出程序界面。形狀框架里的單選框要做成ｏption1控件數(shù)組，邊框類型框架里的單選框最成ｏptｉon2控件數(shù)組，填充風(fēng)格框架里的單選做成ｏｐtｉon3控件數(shù)組。

Opｔion1單擊事件代碼如下:?Selectcasｅindeｘ

Ｃａｓe0?Ｓhａpe1.sｈape=０?Ｃasｅ1

Shapｅ１.ｓｈaｐe=1?Caｓe２

Shａpｅ1.ｓhape=3?Ｃase3

Shape1．ｓhａpe=4?Ｅndｓｅｌeｃt?Optiｏｎ2單擊事件代碼如下:?Seｌecｔcａｓeｉndex

Cａse0?Shapｅ1.borderstyle＝0?Ｃasｅ１?Shape1．ｂoｒderｓtyle=2

Caｓｅ2?Ｓhape1.bｏrderｓｔyｌe=1

Ｃasｅ3?Sｈapｅ1.boｒderｓtyｌe＝３

Caｓe４?Ｓhａpe1.ｂorderstylｅ=4

Ｅndsｅｌecｔ?Optiｏn3單擊事件代碼如下：?

Selecｔcasｅiｎｄｅx?Case0

Shａpｅ１.fillsｔylｅ=１

Ｃase1

Sｈape1．fｉlｌstyle＝1

Caｓe２

Shａpe1.fｉllsｔyle＝3?Case３

Shape1.ｆillstｙle=6

Enｄsｅlect?5.使用SQLSerｖer或Accesｓ建立名稱為”學(xué)生的數(shù)據(jù)庫，并在其中創(chuàng)建”ｓtudentｓ”的數(shù)據(jù)庫表,其結(jié)構(gòu)及初始記錄如表１所示.使用ＡDＯ對(duì)象和MSＦlｅｘGrｉｄ控件設(shè)計(jì)數(shù)據(jù)庫列表顯示程序．程序的設(shè)計(jì)界面和運(yùn)營結(jié)果如圖14、圖１5所示。

表1

學(xué)號(hào)

姓名

專業(yè)

2023０01

張紅

軟件專業(yè)

２0230０3

李強(qiáng)

會(huì)計(jì)專業(yè)?20230０２

王麗

軟件專業(yè)

聲名對(duì)象變量AＤOcn,用于創(chuàng)建與數(shù)據(jù)庫的連接

Ｐｒivａt(yī)ｅADＯcnAscｏnnectｉon?Readｆromtable

Ｐrivatesubrｅadｆrｏmtable()?ＤimsｔrtmpＡsstrｉng?ＤimADOrsＡsnewｒecｏｒdset?AＤOrｓ.aｃｔiｖeconnection=AＤＯcn?ＡDOrs.ｏｐen“ｓelecｔ＊fｒomstuｄenｔsｏrｄerｂy“學(xué)號(hào)”

MSFleｘgrid１.clｅaｒ?MＳＦlexgrｉd1．ｒoｗs=0

MＳFｌｅxgrｉｄ1.cols=3?Strtmp=“學(xué)號(hào)”+vbｔaｂ+“姓名”+vbtab＋“專業(yè)”?MSFleｘgrid1.additemsｔｒtｍp

ＤｏwhilenｏｔADOｒｓ.eof?Stｒtmp=AＤOｒs(“學(xué)號(hào)”）+vｂtａb+ADＯrs(“姓名”）+vｂtab＋AＤOｒs（“專業(yè)”)

MＳＦlexgｒid1.addｔｔemsｔrｔmp

ADOrsｍovenｅxｔ

Lｏop?MSＦlexgrid１.fixedｃoｌｓ=０

ＭSFlexgrid1．fixedｒｏws=1?Eｎdsub?Ｐriｖateｓubfoｒm_lｏad()?DｉmstｒDBAsstrｉng

ｓtrＤB=”ｐrovider=ＳQLOLＥDＢ;LＳF;ＵserIＤ=sa;pａssword=;dａｔabａse＝學(xué)生”?ｉfADOｃnisnｏthinｇｔhｅn

seｔAＤOｃｎ＝ｎｅwconneｃtｉｏn

ADＯcn.opｅｎstｒDB

Endif

Reaｄfrｏｍtａble?Enｄsｕb?Prｉvａｔｅｓubcommand1＿click()

Unloａdme

Endsub

作業(yè)4

一、選擇題?１、WiｎｓockSerｖｅｒ.LoｃalPort=100０１語句的含義是(

A）。

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

B、設(shè)立計(jì)算機(jī)IP地址

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

Ｄ、設(shè)立通訊協(xié)議?2、當(dāng)Wiｎｓock控件處在關(guān)閉狀態(tài)時(shí)，其Statｅ屬性的值是（

Ｂ)。?Ａ、1

Ｂ、０

Ｃ、2

D、６?3、相對(duì)于UＤP協(xié)議而言，TCP協(xié)議是一種(

Ａ)。

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

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

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

）。

A、編譯錯(cuò)誤

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

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

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

Ｂ）。?A、規(guī)定變量聲明

B、自動(dòng)語法檢測(cè)

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

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

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

C

）。

A、F５鍵

B、Ｆ6鍵

C、Ｆ9鍵

D、F１0鍵?7、OnErrorGoToErｒＬB語句中,ＥrrLB的含義是（

Ａ

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

B、SUB過程名

Ｃ、FUＮCTION過程名

D、錯(cuò)誤號(hào)

8、Eｒr對(duì)象中，用來表達(dá)錯(cuò)誤描述的屬性是（Ｂ

）。

A、EｒｒNｏ

B、Dｅｓｃriｐtion

Ｃ、Numｂer

D、Source

二、填空題。?1、使用Wｉnsoｃk控件時(shí)，一旦有數(shù)據(jù)到達(dá),將一方面觸發(fā)該控件的DataAｒｒiｖal事件。而假如要發(fā)送數(shù)據(jù)，則通常使用該控件的senｄdaｔａ方法。

2、Winｓｏｃｋ控件重要用來編制或基于TCP/IP經(jīng)UＤＰ協(xié)議的通話程序。?3、ＡｃtiｖｅＸEX文獻(xiàn)的后綴是exe。

4、CＯM對(duì)象有兩種類型接口，即標(biāo)準(zhǔn)接口和用戶接口。

5、假如希望得到本地計(jì)算機(jī)的IP地址，可以使用Winsoｃk控件的ｌocalIP屬性。?6、Wｉnｓock控件的BytesReceiｖed屬性返回接受到的數(shù)據(jù)，通常使用ｇetdatａ方法來獲取這些數(shù)據(jù)了。

7、Winsock1．Listen語句的含義是使服務(wù)程序處在偵聽狀態(tài)等待客戶訪問。

8、常用中的VB網(wǎng)絡(luò)編程控件重要有Winsｏcｋ、InｔeｒｎetTｒanｓfer、ＷebBroｗser三種。

9、ＶB中的程序錯(cuò)誤類型重要有編譯錯(cuò)誤、邏輯錯(cuò)誤、實(shí)時(shí)錯(cuò)誤等三種。?10、VB中用于關(guān)閉錯(cuò)誤捕獲機(jī)制的語句是oｎｅｒｒｏrgotｏ０。?三、問答題。

1、簡述基于Socket的通信過程。?

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

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

（1）捕獲錯(cuò)誤，并強(qiáng)制程序跳轉(zhuǎn)

(2）編寫錯(cuò)誤解決程序，對(duì)所有可預(yù)見的錯(cuò)誤作出反映

（3）退犯錯(cuò)誤解決程序?

3、簡述常用的程序調(diào)式技巧?（1）事先做好備份?（２）分離受懷疑的程序?(３)縮小搜索范圍?（4)使用MSGBＯX語句?

?4、簡述基于Ｗｉnｓｏck控件的開發(fā)模式。?(１）服務(wù)器程序的開發(fā)模式

(A)服務(wù)器程序必須設(shè)立好LOCALPＯＲＴ，作為偵聽端口，該值可設(shè)立成任意一個(gè)整數(shù),只要其他應(yīng)用和諧沒有使用過的值均可,但習(xí)慣上應(yīng)大于１０00?（B）使用LＩＳＴRN方法使用服務(wù)器進(jìn)入偵聽狀態(tài)，等待客戶機(jī)程序的連接請(qǐng)求。

(Ｃ)客戶機(jī)程序發(fā)出連接請(qǐng)求后,將觸發(fā)服務(wù)器程序的COＮNＥCTIONREＱUEＳＴ事件,該事件得到一個(gè)參數(shù)REQＵESTＩD。?（D）服務(wù)器程序使用ACCＥPT方法接受客戶機(jī)程序的ＲEQＵＥＳTID請(qǐng)求,至此,服務(wù)器程序就可以使用SRNＤＤATA方法向客戶機(jī)發(fā)送數(shù)據(jù)了。此時(shí)應(yīng)特別注意兩點(diǎn)：一是ACCEPT方法必須用到上一步的ＲEＱUESTID作為其參數(shù)；二是在執(zhí)行ＡCCEPT方法前，服務(wù)器仍處在偵聽狀態(tài)，此時(shí)應(yīng)一方面使用CＬOＳE方法關(guān)閉服務(wù)器，然后再調(diào)用ACCEPＴ方法。?（E)當(dāng)服務(wù)器程序接受到數(shù)據(jù)時(shí)，會(huì)產(chǎn)生DＡTAARRIVAL事件。在該事件中可以使用GETDＡTA方法接受數(shù)據(jù)。

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

（Ａ)客戶程序一方面應(yīng)設(shè)立好RＥＭOTEHOST屬性，用來指向運(yùn)營器程序的主機(jī)名或IＰ地址?（B)設(shè)立REＭOTEPORT屬性,用來指向服務(wù)器程序和偵聽端標(biāo)語。?(C）使用CONNECＴ方法向服務(wù)器提出連接請(qǐng)求。?(D)假如服務(wù)器接受上述連接請(qǐng)求，客戶機(jī)程序會(huì)產(chǎn)生CONNＥCT事件。可以根據(jù)需要，在此事件中編寫程序，比如使用MＳGBＯX函數(shù)向用戶提醒“連接已成功”之類的信息。

(E）連接成功之后，就可以根據(jù)需要使用SＥNＤDATA方法向服務(wù)器發(fā)送數(shù)據(jù)了。

(Ｆ）當(dāng)客戶機(jī)程序接受到數(shù)據(jù)時(shí),會(huì)產(chǎn)生ＤＡＴAARRIVAL事件，可以用GETDATA方法接受數(shù)據(jù)。

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

PrｉvateSubCoｍｍand1_Ｃliｃk（）

DiｍA(1Ｔo2０）AsIntegeｒ

Ｄimｃ,j,TAsIntｅger

'此處有錯(cuò),應(yīng)為Dimｃ,j,Tasｉｎtｅｇer

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

Ｆｏrc＝1Tｏ20?

Ａ(ｃ）=Int(Rnｄ*１00)?Neｘtc?‘排序?Fｏｒc=1To20?

Forj＝c+1Tｏ2０?

IFＡ（c)>A(j)Ｔhen

T=A(j)

A(j)=A(c)

A(j)=T

＇此處有錯(cuò)，應(yīng)為A（C)=T，實(shí)現(xiàn)

EndIf＇A(C）和Ａ(J)的互換?

Ｎext?Next

‘在窗體上輸出結(jié)果

Ｃlｓ

Forｃ=1Ｔo20

ＰｒｉnｔA（i)＇此處有錯(cuò),應(yīng)為A(C）.下標(biāo)越界.?Neｘtｃ?ＥｎdＳub

?2、運(yùn)用Wiｎsｏcｋ控件開發(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ì)中,若不說明，各對(duì)象均采用默認(rèn)的名稱。?

服務(wù)器程序的界面設(shè)計(jì)

1、創(chuàng)建一個(gè)“標(biāo)準(zhǔn)EＸＥ”工程。選中“工程”菜單的“部件”選項(xiàng)，在控件中找到MicｒosoftWinｓoｃkCｏｎtrol并將其選中。假如沒有找到,通常是由于ＶB安裝不安全的緣故，可以找到安裝盤并安裝其中的Mｓｗｉnsck.cad壓縮包。?2、將forｍ1的名稱改為frｍＳvr,并在其中添加一個(gè)命令按鈕控件,將其Cａption屬性修改為“退出”。?3、在窗體上添加三個(gè)添加TeｘtBox控件，分別將其名稱修改為tｘｔServerＩP,txtSｅｎｄ和ｔxtRｅceive,用來顯示服務(wù)器的IＰ地址和需收發(fā)的信息。?4、在窗體上添加一個(gè)Ｗｉｎsｏck控件,將其名稱改為WinsockＳeｒveｒ,將Pｒｏtocol(協(xié)議)屬性設(shè)立為0(即sckTCPProtｏcol)?各控件及事件代碼如下：?ＰｒivateSuｂCommａnd1＿Click()?ＵnｌoadMe

ＥndSｕb?

ＰrｉvaｔeSｕbForm_Loａｄ()

txｔｒｅcｅive．Text="＂

ｔｘtsｅnd．Tｅｘt="＂?Wｉnsockservｅr．LocalＰort＝10０01?ｔｘｔｓerveｒip.Texｔ=Wｉnsoｃkserver.LocaｌIP?Winsｏcｋserver.Listｅn

EndSub?

ＰriｖateＳubtxtｓend＿Change（）?Wiｎsoｃｋsｅrver.SendDａｔａt(yī)ｘtsend．Teｘt

EnｄSｕｂ?

?PｒivatｅSuｂWinsocksｅrver_CoｎnecｔiｏｎＲeqｕesｔ(BｙＶalrequesｔIＤAｓLong)

Ｗｉｎsoｃｋｓｅrver.Close?Winsoｃkserｖer.ＡcceｐｔrequestＩD?EｎｄSｕb

Priｖａt(yī)eSubＷｉnsｏcｋserｖｅr_Dａt(yī)aＡｒｒivaｌ(ByValｂｙtesTotalAsLong)?ＤimｍyｓｔｒAｓSｔrｉng

Winsoｃｋserver.ＧetDａt(yī)ａmyｓtr

ｔｘtｒecｅｉvｅ.Ｔｅｘt=myｓｔr?

?EｎdＳub

客戶機(jī)程序的界面設(shè)計(jì)?1、與服務(wù)器程序類似，創(chuàng)建一個(gè)新的“標(biāo)準(zhǔn)EXE”工程,并添加Wｉｎsock控件。

２、將ｆoｒm１的名稱改為ｆrmClｔ，并添加兩個(gè)命令按鈕控件,分別將它們的Cａｐtioｎ屬性設(shè)立為“退出”和“連接聊天服務(wù)器”。

3、在窗體添加四個(gè)文本框控件,分別將其名修改為ｔｘｔCｌieｎtＩP,tｘtSeneｒIP,ｔxtsend和ｔｘtRecｅive,用來顯示客戶機(jī)和要連接的服務(wù)器的ＩP地址以及需收發(fā)的信息。?4、在窗體上添加一個(gè)Winsoｃk控件，將其名稱改為ＷinｓockClｉent,將(協(xié)議）屬性設(shè)立為0(即sckTCＰProtocｏｌ)?

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

?ＰriｖaｔeSubComｍａnd1_Ｃliｃｋ()?UnｌoadMe?

?ＥndSub

?PrivaｔeSubＣoｍmａnd2_Cliｃｋ()?Winｓoｃkcｌienｔ.ＲemoteHｏst＝txｔserverＩP.Teｘｔ?Wiｎsocｋcliｅnt．Ｃｏnnect?EｎｄSuｂ?

?PriｖateSubＦｏｒm_Ｌｏad()?txtｒecｅivｅ．Ｔeｘt＝"＂?tｘｔseｎd.Text=＂"?Wiｎｓoｃkcliｅnt．RｅmｏtePorｔ=10001

tｘtcｌｉentＩP．Ｔext=Wiｎsoｃkclｉent.LｏcalIP

ＥｎdＳub?

?ＰriｖateＳuｂｔxtｓend＿Ｃhａnｇe（)

Wiｎsocｋclient.SendDataｔｘtseｎd.Text?

?EnｄSub

?PrivateＳｕbWinｓockclient＿Ｃonnｅcｔ()

MsｇBｏx"你成功地與聊天室服務(wù)器進(jìn)行了聯(lián)接"，ｖbＩｎformaｔｉｏn

EndSub?

PrｉｖateSubWｉnｓoｃkclｉent＿ＤaｔａArrival（ＢyValｂｙteｓＴｏｔalAｓＬoｎg）

ＤiｍｍysｔrAsStriｎg?Winsockclient.GetＤaｔａmystr

tｘtｒｅceive.Text＝mystｒ?

?EndSubＶiｓuａlBasiｃ程序設(shè)計(jì)形成性考核冊(cè)作業(yè)作業(yè)１

一、選擇題

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

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

B、代碼

C、屬性

D、工程資源管理器窗口

2、窗體的ｌｏａd事件的觸發(fā)時(shí)機(jī)是（Ｂ)。?Ａ、用戶單擊窗體時(shí)

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

C、窗體顯示之后

D、窗體卸載時(shí)

3、與傳統(tǒng)的程序設(shè)計(jì)語言相比,VisualBaｓｉc最突出的特點(diǎn)是（Ｃ）。?

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

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

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

Ｄ、程序調(diào)試技術(shù)?4、ＶB6.0集成開發(fā)環(huán)境的主窗口中不涉及（Ｃ)。?

A、標(biāo)題欄

B、菜單欄

Ｃ、狀態(tài)欄

D、工具欄

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

A、teｘt.Myｔeｘｔ

B、Ｍytext.Text

C、Mytｅxt.(Ｔｅxt）

D、Mytｅｘt＊Texｔ?6、下列可以激活屬性窗口的操作是(D)。

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

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

C、按Ctrｌ+Ｆ４

D、按F４

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

A、單擊窗體上沒有控件的地方

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

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

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

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

A、Captiｏｎ

B、PassｗorｄＣhar

C、Ｔext

Ｄ、Ｃｈａr

9、假如想要在文本框中的內(nèi)容在運(yùn)營時(shí)不能編輯,需要文本框的（A）屬性設(shè)立為Tｒue.?ALｏｃｋｅd

Ｂ、MｕltｉLine

Ｃ、ＴabＳｔop

DＶisｉble

１０對(duì)于定期器（Tｉｎer）控制,設(shè)立其定期是否啟動(dòng)的屬性是(C）?Ａ、Index

B、Tag

C、Ｅnablｅd

D、Left

11、要在窗口體Foｒｎｌ內(nèi)顯示“myfrm”使用的語句是(C）

A、Ｆoｒｍ．caption＝“mｙfｒm”Ｂ、Ｆｏrnｌ．caｐtion=“ｍyfrm”

C、fｏｒml.ｐrｉnt“ｍｙfrm”D、fｏrm.ｐriｎt“mｙfｒm”?12、對(duì)象的性質(zhì)和狀態(tài)特性稱為（C)?A、事件

Ｂ、方法

Ｃ、屬性

Ｄ、類?13、下列對(duì)的的賦值語句是(Ｂ)?A、x＋ｙ=20

B、y=ｘ+20

C、3x=ｙ

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

Ａ、Help

B、F１０

C、Ese

D、Ｆ1

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

B、缺少．ｆrm窗體文獻(xiàn)

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

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

二、填空題?1、當(dāng)進(jìn)入VB集成開發(fā)環(huán)境后,發(fā)現(xiàn)沒有顯示“工具箱”窗口。應(yīng)選擇視圖菜單的工具箱選項(xiàng)，使“工具箱”窗口顯示。?2、在VＢ中，事件過程名由對(duì)象名和事件名構(gòu)成。

3、工程文獻(xiàn)的擴(kuò)展名是

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

frm

。

4、對(duì)象時(shí)代碼和數(shù)據(jù)的集合，例如,VisuaｌＢａsic中的窗體、按鈕、?文本框等都是對(duì)象。

5、對(duì)象的方法用于實(shí)行某種操作功能。當(dāng)方法不需要任何參數(shù)并且也沒有返回值,調(diào)用對(duì)象的方法的格式為對(duì)象名．方法名。例如對(duì)窗體Foｒmｌ使用Show方法,應(yīng)寫成

form１．ｓｈow

。

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

３。?7、欲設(shè)立定期的時(shí)間間隔為4秒，則屬性Intｅrval的值為

40００。?8、要使標(biāo)簽框的大小隨Ｃaption屬性做自動(dòng)調(diào)整,應(yīng)將AutoＳize屬性設(shè)立為Ｔrue。

9、通過窗體布局窗口可以在設(shè)計(jì)時(shí)直觀地調(diào)整窗體在屏幕的位置。?1０、要想在代碼中給名為txtsｈow的文框賦予文本：ＧOODWＯRK！時(shí),應(yīng)當(dāng)編寫的語句是

ｔxtｓhow.tｅxt=”GＯODＷOＲＫ!”。

11、若命令按鈕的名稱為Ｃmdopen,程序規(guī)定單擊以上命令按鈕,打開一個(gè)窗口ｆｒmｌ，請(qǐng)對(duì)以下事件過程填空。

PｒｉvateSubCmdopen

ｃlｉck()?Frm1.sｈow

EｎdＳｕｄ?12、事件就是對(duì)象上所發(fā)生的事情，ＶｉsualBasic中的事件如單擊、裝入、

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

PriｖateSubcmd1＿Clicｋ()

Foｒm1．Caption=”VＢ示例”?EndSｕｂ

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

ｃmｄ１,事件名是Cｌick

。

１3、對(duì)象的方法用于在對(duì)象上實(shí)行某種操作功能。當(dāng)方法不需要任何參數(shù)并且也沒有返回值,調(diào)用對(duì)象的方法格式為對(duì)象名.方法名，例如，對(duì)窗體Foｒm1使用Shoｗ方法，應(yīng)寫成

Form1.Ｓhow

。

１４、為了在編寫代碼時(shí)能自動(dòng)語法檢查，必須執(zhí)行工具菜單中的選項(xiàng)

命令,打開選項(xiàng)對(duì)話框,然后選擇“編輯器”選項(xiàng)卡中的自動(dòng)語法檢測(cè)。

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

Intervａl屬性設(shè)立,其單位為毫秒。

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

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

2、對(duì)象、屬性、事件和文獻(xiàn)之間的關(guān)系如何？

答:對(duì)象是代碼和數(shù)據(jù)的封裝體。對(duì)象的操作通過與該對(duì)象有關(guān)的屬性、事件、方法來描述。

屬性是一個(gè)對(duì)象的基本特性,每個(gè)對(duì)象都有它自己的屬性。

方法是對(duì)象要執(zhí)行的動(dòng)作。

事件是在對(duì)象上所發(fā)生的事情。?3、簡述事件驅(qū)動(dòng)機(jī)制與傳統(tǒng)編程方式的不同。

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

１、在窗體上添加一個(gè)文本框和兩個(gè)命令按鈕,并把兩個(gè)命令按鈕的標(biāo)題分別設(shè)立為“隱藏文本框”和“顯示文本框”。當(dāng)單擊第一個(gè)命令按鈕時(shí),文本框消失；而當(dāng)單擊第二個(gè)命令按鈕時(shí)，文本框重新出現(xiàn),并在文本框中顯示“VＢ程序設(shè)計(jì)”(字體大小為16)。程序運(yùn)營界面如圖所示。??圖1?解：“隱藏文本框”按鈕中的代碼為：Tｅxt1.Ｖisible=Falｓｅ?“顯示文本框”按鈕中的代碼為:Ｔext1.Ｖiｓible=True

Texｔ1.Text＝”VB程序設(shè)計(jì)”?

Tｅxｔ１.FontＳizｅ=”１6”

2、設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖2所示,由四個(gè)文本框：文本框１(text1)、文本框2(text2）、文本框3（text３)、文本框4(ｔｅｘｔ4）,和三個(gè)按鈕:命令按鈕1(coｍmaｎd１)、命令按鈕2（coｍmａｎｄ2)、命令按鈕3(comｍanｄ3）組成。程序運(yùn)營后，用戶按清除按鈕，則清除文本框中顯示的內(nèi)容,按計(jì)算按鈕，則計(jì)算三科平均成績。單擊退出按鈕則退出。

解:cｏｍmand1中的代碼為：tｅxｔ1=””:ｔext2=””：texｔ3=””:text4=””

cｏmmand2中的代碼為:ｔeｘt4=（val(Teｘｔ1)+val（Text2）＋val(Tｅxt3))/3?commanｄ２中的代碼為:Ｅnd?３、編寫一收款計(jì)算程序。規(guī)定用戶輸入商品的“單價(jià)”、“數(shù)量”和“折扣”后，單擊“計(jì)算”按鈕顯示“應(yīng)付款”，單擊“清除”按鈕，清除文本框中所有的數(shù)據(jù)。程序運(yùn)營界面如圖3所示。?答：“計(jì)算”按鈕的代碼：tｅxｔ4=vａｌ(Text１)＊ｖal(Teｘt2)*val（Ｔeｘt3)／100?“清除”按鈕的代碼：text1=””：ｔext2=””：teｘt3=””:texｔ4＝””

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

）。

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

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

D、Ｐuｂlic、Privａｔe、Proｔectｅd

2．可獲得字符的ASCIＩ碼的函數(shù)是（C)。

A、ＶalB、FixC、Aｓc

Ｄ、Chｒ?3、要退出Dｏ….Lｏoｐ循環(huán),可使用的語句的（Ｄ）語句。

A、Exit

B、Exiｔ

For

Ｃ、EndＤｏ

D、ExｉｔDo?4.把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是(B）。

A、Val

B、Ｓtr

C、Asｃ

D、Chr

5.關(guān)于語句行，下列說法對(duì)的的是(Ｂ）。

Ａ.一行只能寫一條語句B．一條語句可以分多行書寫?C．每行的首字符必須大寫Ｄ．長度不能超過２55個(gè)字符?6.表達(dá)式6+10Mｏd4*2+1的值是(A）.

A.９Ｂ.11C.1D．3

7.以下可以作為ＶisuaｌBasiｃ變量名的是（B）.

Ａ．SIN

B.CO１

C.COＳ(X）

D.X(－１)

8.表達(dá)式Abs(－5）+Ｌｅn(“ＡＢCＤE”）的值為(C）.?A.5ABＣDＥＢ.－5AＢCDE

C.1０

D．0

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

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

Ｃ.直接回車

Ｄ.一個(gè)空格加一個(gè)字符（-）?10．Sｕb過程與Ｆunctiｏn過程最主線的區(qū)別是（D）．

A.Suｂ過程可以使用Ｃall語句或直接使用過程名調(diào)用，而Fuｎｃtion過程不可以．

Ｂ.Function過程可以有參數(shù),Sub過程不可以．?C．兩種過程參數(shù)的傳遞方式不同.

D．Ｓuｂ過程的過程名不能返回值,而Fｕnｃtioｎ過程可以通過過程名返回值.?11.＂X是小于80的非負(fù)數(shù)"，用ＶB表達(dá)式表達(dá)對(duì)的的是（C)．?

A..0≤X<80

B．0＜=X＜80

C.0<=xandｘ＜8０

D.0＜＝xOrx<８0?12.在設(shè)計(jì)菜單時(shí)，假如要在菜單中加入一個(gè)菜單分隔條,則菜單分隔條的標(biāo)題必須設(shè)立為(B)

Ａ．加號(hào)(+）

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

Ｃ.星號(hào)(*)

D.感慨號(hào)(!)

13.假如要在程序中顯示一個(gè)彈出式菜單,那么要調(diào)用ＶiｓuaｌBａｓｉc中提供的方法是(D).

A.Pｒiｎｔ

B．Ｍｏve

C.Ｒｅfrｅsｈ

D.PopｕｐMｅnu

14.下列可以用來存儲(chǔ)圖像供其他對(duì)象使用的控件是(C).?

Ａ．ＴｏolBar

B．SｔaｔuｒsBar

Ｃ.IｍagｅList

D.Trｅe(cuò)Ｖiew?１5.當(dāng)單擊工具攔上的按扭時(shí),會(huì)觸發(fā)的事件是(Ａ).?

Ａ.BｕtｔoｎClick

B.Cｈange

C.Lｏａd

D.KeyPrｅss?16．要運(yùn)用公用對(duì)話框控件來顯示”打開文獻(xiàn)”對(duì)話框,需要調(diào)用控件的(B）方法．?

A.ShowＰriｎｔeｒ

B.SｈowＯpen

Ｃ.ＳhowSaｖe

Ｄ.ShowCｏlor?1７.對(duì)于窗體級(jí)變量，下列說法中錯(cuò)誤的是(Ｃ).?A.所在窗體的各子程序都可以訪問

B.其他窗體的子程序不能訪問

Ｃ.所在窗體發(fā)子程序不能訪問用Ｐrｉvａt(yī)e定義的窗體級(jí)變量

D．一定要在所在窗體的通用區(qū)內(nèi)定義

18.從一個(gè)字符串中的第3個(gè)字符開始,獲取5個(gè)字符，應(yīng)使用（B）?