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

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

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

A、窗體設(shè)計

Ｂ、代碼

Ｃ、屬性

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

A、用戶單擊窗體時

Ｂ、窗體被加載時

Ｃ、窗體顯示之后

D、窗體卸載時

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

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

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

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

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

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

A、標(biāo)題欄

B、菜單欄

C、狀態(tài)欄

D、工具欄

5、假如對象的名稱為Mytｅxt,并且對象有一個屬性Tｅxt，那么在代碼中引用該屬性的對的格式是（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、假定已在窗體上畫了多個控件,并有一個控件是活動的，為了在屬性窗口中設(shè)立窗體的屬性,預(yù)先應(yīng)執(zhí)行的操作是(A）。

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

B、單擊任一個控件

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

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

Ａ、Ｃaptiｏn

B、ＰａsswｏrｄChａr

C、Texｔ

D、Char

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

B、MultiLｉne

C、TａbＳｔop

DＶisible

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

B、Taｇ

C、Enaｂｌeｄ

Ｄ、Left

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

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

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

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

Ｂ、方法

Ｃ、屬性

D、類

１３、下列對的的賦值語句是（B）

A、x+y=2０

B、y=x+２0

Ｃ、３x=y

Ｄ、s=

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

A、Heｌp

B、F10

C、Esｅ

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

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

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

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

工具箱選項,使“工具箱”窗口顯示。?2、在VＢ中，事件過程名由對象名和

事件名

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

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

ｆrm

。

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

窗體、

按鈕、

文本框

等都是對象。

5、對象的方法用于

實行某種操作功能

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

對象名.方法名

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

ｆorm1.show

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

屬性設(shè)立為

3

。

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

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

屬性設(shè)立為

Tｒuｅ

。

9、通過

窗體布局窗口

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

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

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

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

click（)

?

Ｆrｍ1.shｏw

ＥｎdSud

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

、

裝入

、

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

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

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

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

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

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

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

cmｄ1

，事件名是

Ｃｌiｃk

。

13、對象的方法用于在對象上實行某種操作功能

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

對象名.方法名

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

Foｒm1.Ｓhow

。

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

菜單中的

選項

命令，打開

選項

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

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

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

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

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

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

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

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

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

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

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

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

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

一、選擇題

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

）。

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

B、全局變量、模塊級變量、過程變量?C、動態(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)，可使用的語句的（D）語句。

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)于語句行，下列說法對的的是（B)。?A．一行只能寫一條語句Ｂ.一條語句可以分多行書寫?Ｃ.每行的首字符必須大寫Ｄ.長度不能超過2５５個字符

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

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

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

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

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

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

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

A..0≤Ｘ<80

B.0<＝X<8０

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

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

B．減號(-）

C.星號(*）

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

A.Ｐrint

B．Ｍovｅ

C.Refresｈ

D.ＰopupＭenｕ

１4.下列可以用來存儲圖像供其他對象使用的控件是(Ｃ).

Ａ.ToolBar

B.StaｔｕrsBaｒ

Ｃ.ImageLｉst

D.ＴreeVｉew

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

A.ＢuttoｎＣlick

Ｂ.Chaｎge

C.Ｌoad

D.ＫeyＰresｓ

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

A.ShowＰrinteｒ

B．ＳｈoｗOpen

C．ＳhｏwＳave

Ｄ．ShｏｗColor?17.對于窗體級變量，下列說法中錯誤的是(Ｃ）．

A.所在窗體的各子程序都可以訪問

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

A．Len函數(shù)

B.Miｄ函數(shù)

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

D．Ｒiｇｈt函數(shù)?1９.用下面的語句所定義的數(shù)組的元素的個數(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í)行完時,變量ｓtrl的值為（B）.?

A．”Ｖiｓual”

Ｂ.”Visｕa”

C．”Ｖ”

D.”Ｖisual

Baｓiｃ”

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

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

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

7．列表框中項目的序號是從_0_開始的。

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

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

1０.使用Hiｄｅ方法會隱藏被調(diào)用的窗體，但是在調(diào)用Hide方法之后不會把窗體__卸載_,被調(diào)用的窗體中的屬性等已處在_內(nèi)存中_。?11.將下列數(shù)學(xué)式子寫成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é)式子各條件寫成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的值為_Fａlse＿。

1４.在VｉｓualBasiｃ語言中有三種形式的循環(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５.以下語句的輸出結(jié)果是__3_。

a％＝3.1４1５9

Pｒiｎta%

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

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

StatｉcSｕmAsIntegｅr?

FｏrI＝1to100

Sum＝Ｓｕｍ+I?

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

程序運(yùn)營結(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個空格)15（７個空格)20?10(８個空格)15(5個空格)2０

２0(三個空格）+(三個空格)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è)計題

1、購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法,每位顧客一次購物（１)在100元以上者，按九五折優(yōu)惠；（2）在２００元以上者,按九折優(yōu)惠；（３）3００元以上者,按八折優(yōu)惠;（4)5００元以上者按七折優(yōu)惠。在窗體上添加兩個文本框和一個命令按鈕，規(guī)定在Text１中輸入購物商品總金額，單擊命令按鈕,在Text２中輸入優(yōu)惠后的價格。程序運(yùn)營結(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ｏ語句的一種形式來實現(xiàn)，程序運(yùn)營結(jié)果如圖5所示。

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

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

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

Ｅｎdiｆ

A=ａ+１?looｐ

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

Ｄｉ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è)計一個計算程序。該程序用戶界面如圖７所示。規(guī)定程序運(yùn)營后,用戶選中單擊選按鈕,則程序作10和２的相應(yīng)計算，并把計算結(jié)果在文本框中顯示出來。如用戶選中加法單選按鈕，則程序作10和2的相加,計算結(jié)果１2在文本框中顯示出來。按結(jié)束,則退出。?乘法單選按鈕的單擊事件中添加如下代碼：

Tｅxt1=10＊2

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

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

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

結(jié)束按鈕中代碼:eｎｄ或ｕｎloaｄme?5、編寫輸入一個0～6數(shù)字，顯示漢字對照輸出星期的Fｕnｃtion過程。程序運(yùn)營結(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、編寫一個程序,當(dāng)鼠標(biāo)移到Pictｕrel控件時，鼠標(biāo)指針改變形狀；當(dāng)在Piｃtｕrｅl控件上單擊鼠標(biāo)右鍵時,通過消息框顯示“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)選擇列表框中某一項時，按“刪除”按鈕,從列表框中刪除;當(dāng)列表框中某一項時，按“修改”按鈕，把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認(rèn)”。在文本框的內(nèi)容修改好后,按“修改確認(rèn)”按鈕，再把文本框中修改后的信息送到列表框且“修改確認(rèn)”按鈕變?yōu)椤靶薷摹薄３绦蜻\(yùn)營結(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ī)訪問文獻(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。整個文獻(xiàn)

D。字符

3、為了使目錄途徑列表框Ｄir1的內(nèi)容符合驅(qū)動器列表框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ū)動器列表框、dir1目錄途徑列表框和ｆile１文獻(xiàn)列表框能同步協(xié)調(diào)工作，需要在(Ｂ）?A．dｒive1的Change事件過程中加入drivｅ1.Drｉve＝dir1.Ｐaｔh，在diｒ1的Chａｎｇe事件過程中加入dｉr1.Patｈ=fｉｌｅ1.Pａｔh代碼。

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

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

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

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

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

A.清內(nèi)存

B。清病毒

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

Ｄ。清屏幕?7、可用來改變坐標(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ｅ方法畫直線后,當(dāng)前坐標(biāo)在（C）

Ａ.(０,0）

Ｂ.直線起點

Ｃ．直線終點

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

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

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

B.Borderstyｌe

C.ＤrawWｉdｔh

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

B.執(zhí)行語句Ｐicturｅ１.pｉcturｅ=LoaｄPictuｒe(“”)?C．執(zhí)行語句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)，打開順序文獻(xiàn)“ｔext.daｔ”的對的語句是(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)中寫入數(shù)據(jù),對的的語句是(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.打開文獻(xiàn)

C.色彩

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

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

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

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

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

Ｂ．RDO

C．ADＯ

Ｄ.RDO和ADO

20．設(shè)ADOrs為Reｃｏrdｓｅt對象,從“學(xué)生基本情況表”中獲取所有記錄的語句是(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ｓｈｅets

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

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

為fileｃoｐｙ

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

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

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

＃１。

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

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

8.在圖片框Ｐｉcture1中畫一個左上角在(5００,500),邊長為500的紅色實心正方形的語句為＿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模型時,可通過_ActiｖeConnｅct＿屬性建立Recordsｅt和Connection對象的連接.?11.VＢ中將數(shù)據(jù)庫分為本地數(shù)據(jù)庫、遠(yuǎn)程數(shù)據(jù)庫和_＿外部數(shù)據(jù)庫_三種類型.?1２.采用ADＯ模型時，當(dāng)使用Open方法打開一個記錄集后,與ＡDOｒｓ.Fｉｅlds(“學(xué)號”）等效的語句是_ＡDOｒｓ(“符號”)_.

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

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

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

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

驅(qū)動器列表框的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,畫出ｘ從－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)營界面如圖12所示.

如圖添加代碼如下

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

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

Elｓｅ

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

Endｉf?實線、虛線、單選框要弄成一個ｏ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)營界面如圖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ù)庫,并在其中創(chuàng)建”studeｎｔs”的數(shù)據(jù)庫表，其結(jié)構(gòu)及初始記錄如表1所示.使用ADＯ對象和MSFlexＧｒid控件設(shè)計數(shù)據(jù)庫列表顯示程序.程序的設(shè)計界面和運(yùn)營結(jié)果如圖１4、圖15所示。

表1?學(xué)號

姓名

專業(yè)

202３０01

張紅

軟件專業(yè)?202300３

李強(qiáng)

會計專業(yè)

20２30０2

王麗

軟件專業(yè)?聲名對象變量ADOｃn,用于創(chuàng)建與數(shù)據(jù)庫的連接?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é)號”

MＳFlexｇrid1.cｌeaｒ

MSFlexgriｄ1.rows=0

MSFlｅxgrid1.cols＝3

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

Strtｍｐ=ADＯrs(“學(xué)號”）+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０１語句的含義是（

A)。?

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

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

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

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

Ｂ)。?A、1

B、０

C、2

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

A）。

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

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

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

)。

A、編譯錯誤

B、實時錯誤

C、運(yùn)營時錯誤

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

B）。

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

Ｂ、自動語法檢測

Ｃ、自動顯示快速信息量

D、主線無法自動檢測

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

C

）。?Ａ、Ｆ５鍵

B、F6鍵

C、Ｆ9鍵

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

A

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

B、SUB過程名

C、FUNＣTION過程名

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

）。?A、ErrNo

B、Descriptｉｏn

C、Numbeｒ

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

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

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

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

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

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

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

三、問答題。

１、簡述基于Sockeｔ的通信過程。?

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

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

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

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

(3）縮小搜索范圍

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

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

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

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

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

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

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

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

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

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

＇此處有錯,應(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

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

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

Nexｔ

Next

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

Fｏrc=1To２0

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

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

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

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

4、在窗體上添加一個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è)計

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

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

3、在窗體添加四個文本框控件，分別將其名修改為ｔｘtClientＩＰ,txｔＳｅnerIP,txtsend和tｘtＲecｅive，用來顯示客戶機(jī)和要連接的服務(wù)器的IP地址以及需收發(fā)的信息。?4、在窗體上添加一個Ｗ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è)計形成性考核冊作業(yè)作業(yè)1

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

A、窗體設(shè)計

B、代碼

C、屬性

D、工程資源管理器窗口

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

A、用戶單擊窗體時

B、窗體被加載時

C、窗體顯示之后

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

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

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

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

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

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

A、標(biāo)題欄

B、菜單欄

C、狀態(tài)欄

D、工具欄

5、假如對象的名稱為Mytext,并且對象有一個屬性Ｔext，那么在代碼中引用該屬性的對的格式是(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、假定已在窗體上畫了多個控件,并有一個控件是活動的,為了在屬性窗口中設(shè)立窗體的屬性,預(yù)先應(yīng)執(zhí)行的操作是（A）。?

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

B、單擊任一個控件

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

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

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

A、Cａptioｎ

B、PasｓwordＣｈar

C、Ｔext

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

B、MultｉLine

Ｃ、TabStｏp

DVｉsible

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

B、Tag

C、Enabｌｅd

D、Leｆt

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

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

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

B、方法

C、屬性

Ｄ、類?１３、下列對的的賦值語句是（Ｂ)

Ａ、x＋y=20

B、y=x＋２0

C、3x=y

D、s＝

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

A、Ｈelp

B、F10

Ｃ、Ese

Ｄ、F1

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

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

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

D、以上因素都不對

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

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

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

ｆrm

。

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

ｆorm1.ｓhｏw

。

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

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

4000。

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

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

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

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

PrｉvaｔeSuｂCｍdopen

click()

Frm1.show?EｎdSud

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

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

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

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

cmd1，事件名是Clｉｃk

。

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

Forｍ1.Show

。?１４、為了在編寫代碼時能自動語法檢查,必須執(zhí)行工具菜單中的選項?命令,打開選項對話框，然后選擇“編輯器”選項卡中的自動語法檢測。

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

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

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

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

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

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

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

4、簡述事件驅(qū)動的工作過程。

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

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

?圖1

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

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

Text１.FontＳizｅ=”16”

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

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

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

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

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

B、全局變量、模塊級變量、過程變量?Ｃ、動態(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),可使用的語句的(Ｄ）語句。?Ａ、Exit

B、Exit

Ｆor

C、EndDo

D、ExｉtDo

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

B、Sｔr

C、Asc

Ｄ、Chr

５.關(guān)于語句行，下列說法對的的是(B)。?A.一行只能寫一條語句B.一條語句可以分多行書寫

Ｃ.每行的首字符必須大寫D．長度不能超過255個字符?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.在代碼編輯器中,假如一條語句太長，無法在一行內(nèi)寫下（不涉及注釋）,要折行書寫,可以在行末使用續(xù)行字符（A)，表達(dá)下一行是當(dāng)前行的繼續(xù).

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

Ｃ．直接回車

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

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

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

A..0≤X<８0

Ｂ．０＜=X<80

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

D.0<=xOrx<80

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

A．加號(＋)

B.減號(-)

C．星號(*)

D．感慨號（!)

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

A．Pｒint

B.Move

C.Refｒｅsh

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

A.TｏolBar

B.StatursＢａr

Ｃ.ImaｇｅＬiｓt

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

A.ＢutｔonClick

B.Chanｇe

C.Load

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

Ａ.ShowPrinteｒ

Ｂ.SｈｏwOpen

C．ＳｈowSavｅ

D．ShoｗＣolｏr

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

A．Lｅｎ函