VB程序設(shè)計(jì)的初步知識(shí)

1.VB的概述

VB是一種可視化、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的構(gòu)造化高級(jí)程序設(shè)計(jì)語(yǔ)言。

特點(diǎn)：▲可視化編程▲面向?qū)ο蟪绦蛟O(shè)計(jì)▲構(gòu)造化的程序設(shè)計(jì)語(yǔ)言

▲事件驅(qū)動(dòng)編程機(jī)制▲訪問(wèn)數(shù)據(jù)庫(kù)

2.VB的程序開(kāi)發(fā)環(huán)境

（1）窗口設(shè)計(jì)器窗口。簡(jiǎn)稱，窗體

（2）工程資源管理器窗口

▲工程文件和工程文件組

工程文件口勺擴(kuò)展名是vbp,每個(gè)工程對(duì)應(yīng)一種工程文件。

▲窗體文件

擴(kuò)展名是frm,每一種窗體對(duì)應(yīng)一種窗體文件，一種應(yīng)用程序可以有多種窗體。

▲原則模塊文件

擴(kuò)展名bas,不屬于任何一種窗體。

▲類模塊文件

（3）屬性窗口和工具箱窗口

3.VB常用對(duì)象及操作

（1）對(duì)象事件的名稱Name是由VB預(yù)定的，不可以由編程者設(shè)定。

可以在運(yùn)行期間變化窗體的Name屬性的值。（?）

（2）控件

4.VB應(yīng)用程序一般有3類模塊構(gòu)成，即窗體模塊、原則模塊和類模塊。

VB應(yīng)用程序以解釋和編譯方式執(zhí)行。

5.VB中的變量和常量

（1）常量

▲文字常量：字符串和數(shù)值常量

▲符號(hào)常量

格式：Const變量名=體現(xiàn)式

（2）變量

▲命名規(guī)則：名字只能由字母、數(shù)字和下劃線構(gòu)成。

第一種字符必須是英文字母，最終一種字符可以是類型闡明符。

▲變量歐I類型和定義

①類型闡明符放在變量名H勺尾部。A#b(錯(cuò))

%：整型&：長(zhǎng)整型！：?jiǎn)尉刃?：雙精度型$:字符串型

②在定義變量時(shí)指定類型。

格式：Declare變量名as類型

Declare可以是Dim、StaticPublic或Private

(3)變量的作用域

變量分為:局部變量、模塊變量和全局變量

①局部變量

在事件過(guò)程或通用過(guò)程內(nèi)定義口勺變量叫局部變量。

②模塊變量

窗體變量可用于窗體內(nèi)口勺所有過(guò)程.當(dāng)同一種窗體內(nèi)的不一樣過(guò)程使用相似H勺變顯時(shí),

必須定義窗體層變量，在使用窗體層變量前，必須先申明。

③全局變量

全局變量只能在原則模塊中申明，不能在過(guò)程或窗體模塊中申明。用Public申明，

6.VB常用內(nèi)部函數(shù)

⑴轉(zhuǎn)換函數(shù)

★取整函數(shù)Int和fiK★數(shù)值轉(zhuǎn)換函數(shù)★類型轉(zhuǎn)換函數(shù)★格式轉(zhuǎn)換函數(shù)

⑵數(shù)學(xué)函數(shù)

★三角函數(shù)★絕對(duì)值函數(shù)（Abs）★符號(hào)函數(shù)（Sgn）★平方根函數(shù)（Sqr）

★指數(shù)和對(duì)數(shù)函數(shù)[Exp和Log）

⑶隨機(jī)數(shù)函數(shù)

★隨機(jī)數(shù)函數(shù)（Rnd）★Randomize語(yǔ)句

（4）時(shí)間函數(shù)

7.VB字符串處理

★左、中、右部截取Left（字符串，n）\Mid（字符串，n）\Right（字符串，n）

★字符串長(zhǎng)度測(cè)量函數(shù)Len（字符串）

★Strings函數(shù)Strings（n,ASCII碼）Strings（n,字符串）

★查找某個(gè)字符串函數(shù)InStr（首字符位置，字符串I,字符串2[,n]

★字母大小轉(zhuǎn)換函數(shù)Ucasc（字符串）Lease（字符串）

★插入字符串語(yǔ)句Mid（字符串，位置尸字符串

★SetFocus語(yǔ)句

8.VB運(yùn)算符與體現(xiàn)式

（1）算術(shù)運(yùn)算符

★求模運(yùn)算Mod求會(huì).

★算術(shù)運(yùn)算符優(yōu)先級(jí)+

如：7A2Mod5A2\3=1

（1）關(guān)系運(yùn)算符和邏輯運(yùn)算符

（2）體現(xiàn)式的執(zhí)行次序

?關(guān)系運(yùn)算（=,>,<,<>,名，工）

?最終進(jìn)行邏輯運(yùn)算，次序?yàn)?Not—And—>0r—>Xor->Eqv

如：體現(xiàn)式：Nota<=cOr4*c=bA2Andb<>a+c時(shí)值是（Flase）a=2,b=3,c=4

9.VB常用原則控件

（1）.標(biāo)簽

?Alignment確認(rèn)標(biāo)簽中標(biāo)題放置的位置，可設(shè)置0、1、2,作用分別為標(biāo)題設(shè)置在左、

右、中。

?AutoSizc標(biāo)題自動(dòng)調(diào)整標(biāo)簽口勺大小，可設(shè)置為T(mén)rue和False.

?Borderstyle設(shè)置標(biāo)簽歐I邊框，可設(shè)置為。和1,。表達(dá)為無(wú)邊框。

?Enabled用于確定一種窗體或控件能否對(duì)顧客產(chǎn)生的事件作出反應(yīng)。

?BackStyle設(shè)置標(biāo)簽與否覆蓋背景，。表達(dá)為透明，1表達(dá)標(biāo)簽覆蓋背景。

?Wordwrap決定標(biāo)簽II勺標(biāo)題文本能否自動(dòng)換行。

?其他：Height、LeftsTop、Visible、Width等等。

(2)文本框

屬性：

?MaxLenglh設(shè)置文本框中輸入R勺最大字符數(shù)。

?MultiLine設(shè)置與否容許多行顯示。

?Passwordchar用于口令輸入。

?Scrollbars用來(lái)設(shè)置文本框中口勺滾動(dòng)條。

事件:

◎Change事件當(dāng)顧客輸入新信息或把Text屬性設(shè)置為新值從而變化文本框的屬性

時(shí)，將可觸發(fā)此事件。

◎GotFocus事件當(dāng)文本框有輸入焦點(diǎn)時(shí)，鍵盤(pán)上輸入的字符都將在文本框中顯示出

來(lái)，只有當(dāng)一種文本框被激活并且可見(jiàn)性為T(mén)RUE是才能收到焦點(diǎn)。

◎Setfocus事件該措施可以把輸入時(shí)光標(biāo)(焦點(diǎn))移到指定的文本框中。

格式：［對(duì)象JSctfocus

(3)圖形控件

圖片框和圖像框：

▲CurrcntX和CurrentY屬性▲Picture屬性

▲Stretch屬性用于自動(dòng)調(diào)整圖像框中圖形內(nèi)容的大小。

▲區(qū)別:①圖片框是“容器”控件，可作為父控件，而圖像框不能。

③圖片框可接受文本和圖片，圖像框不能。

④圖像框占用內(nèi)存少，顯示速度快。

⑤圖片框更靈活，且合用于動(dòng)態(tài)環(huán)境。

▲運(yùn)行期間裝入圖片

格式：[對(duì)象.]Picturc=LoadPicturc（“文件名”）

直線和形狀：

△BorderColor屬性

△Borderstyle

1一實(shí)線2—虛線3—點(diǎn)線4—點(diǎn)劃線

△BackStyle設(shè)置標(biāo)簽與否覆蓋背景，。表達(dá)為透明，1表達(dá)標(biāo)簽覆蓋背景。

△Shape屬性

0—矩形1—正方形2—橢圓形3—圓形4—四角圓化的矩形

△BorderWidth指定線寬或界寬

（3）復(fù)選框和單項(xiàng)選擇按鈕

EnabledFontBold、FonHlalic、FonlName、FontSize>FontUnderline

Value、AlignmentsHeight、Left、Top>Visible、Width

單項(xiàng)選擇按鈕：Valuc=True,表達(dá)選擇了該單項(xiàng)選擇按鈕.

Value二False,表達(dá)沒(méi)芍選擇該單項(xiàng)選擇按鈕.

復(fù)選框；Valuc=O,表達(dá)沒(méi)有選擇該發(fā)選框。

Value=l,表達(dá)選擇該復(fù)選框。

Valuc=2,表達(dá)該更選框被禁用。

(6)列表框和組合框

列表框措施：Addltem添加文本內(nèi)容到列表框中。

Clear清除列表框中所有內(nèi)容。

Removeitem刪除列表框中指定的I項(xiàng)目。

組合框(ComboBox)：Addltem>Clear、Removeitem同樣合用。

Style是組合框的一種重要屬性，其值可取0、1、2：決定組合框的3個(gè)類型。

注意：屬性Lisllndex和ListCout的區(qū)別

108(7)滾動(dòng)條

屬性：

除Enabled、FontBold、Fontltalic、FontName、FontSize>FontUnderline

ValuexAlignmentsHeight、Left、Top>Visible%Width外，還有如下屬性:

?Max和Min

?LargcChange和SmallChangc

?Value表達(dá)滾動(dòng)框在滾動(dòng)條的I位置。

事件：重要有Scroll和Change.當(dāng)在滾動(dòng)條內(nèi)拖動(dòng)滾動(dòng)框時(shí)會(huì)觸發(fā)Scroll事件，而變化

滾動(dòng)框的位置時(shí)會(huì)觸發(fā)Change事件。

(8)計(jì)時(shí)器

可以用Enabled和Name屬性，其最重要日勺是Interval屬性，取值范圍0—65535.

(9)框架

(10)焦點(diǎn)與Tab次序

★設(shè)置焦點(diǎn)

格式：［對(duì)象.］Setfocus

★Tab次序

Tab次序是在按Tab鍵時(shí)焦點(diǎn)在控件間移動(dòng)的次序。影響Tab次序的屬性是Tabindex。

1.數(shù)據(jù)的輸出措施：

⑴print措施

與print措施有關(guān)口勺博數(shù)：tab(n)函數(shù)［printtab(24);8(X)］

pc(n)函數(shù)［print“china”;spc(4);“中國(guó)”］用于跳出n個(gè)空格輸出

tab函數(shù)從第一列開(kāi)始計(jì)數(shù)，n是絕對(duì)偏移量。spc(n)函數(shù)則是從前面的輸出內(nèi)容開(kāi)始計(jì)

數(shù)，n是相對(duì)偏移量。

⑵格式輸出()

#：表達(dá)數(shù)字，不補(bǔ)零

0：表達(dá)數(shù)字，在數(shù)字的前或后補(bǔ)零

.：指定小數(shù)點(diǎn)的位置

，：指定千分分隔符的位置如：printformats(12345.6J####,#.##")12,345.(3)msgbox

函數(shù)信息框一返回值一標(biāo)題

2.數(shù)據(jù)輸出措施

(1)inputbox措施

Inputbox函數(shù)U勺返回值默認(rèn)為字符串。如：a=inputboxC4Enteranintegef,)

b=inputbox(<lEnteraninteger^^)textl.text=b+a

假如在輸入對(duì)話框中輸入8和10,則文本框中顯示的內(nèi)容為108

VB的控制構(gòu)造

循環(huán)控制構(gòu)造

(l)For循環(huán)控制構(gòu)造(3)Do循環(huán)構(gòu)造

使用Exitfor語(yǔ)句，可以在循環(huán)變量到DoWhile........Loop

達(dá)終值前就退出循環(huán)。

Do.......loopWhile

(2)當(dāng)循環(huán)構(gòu)造

(4)多分支控制構(gòu)造

While條件

測(cè)試體現(xiàn)式=????—Selectcase測(cè)

［語(yǔ)句塊］試體現(xiàn)式

Wend(5)Hf函數(shù)

A二Hf(條件，Inie部分，false部分)

數(shù)組與過(guò)程

1.默認(rèn)數(shù)組

默認(rèn)數(shù)組就是數(shù)據(jù)類型為Variant時(shí)數(shù)組。StaticA(4)即為定義了四個(gè)默認(rèn)數(shù)組。

2.動(dòng)態(tài)數(shù)組

?用變量作為下標(biāo)定位的數(shù)組時(shí)動(dòng)態(tài)數(shù)組

?用數(shù)值常量或符號(hào)常量作為下標(biāo)定維口勺數(shù)組是靜態(tài)數(shù)組。

動(dòng)態(tài)數(shù)組定義分兩步：首先在窗體層、原則模塊或過(guò)程中用DIM或Public申明一?種沒(méi)

有卜標(biāo)的I數(shù)組，然后再過(guò)程中在用RcDimd定義。

3.數(shù)組的清除和重定義

Erase數(shù)組名

Erase用于動(dòng)態(tài)數(shù)組中，將刪除整個(gè)數(shù)組構(gòu)造并釋放數(shù)組所占用的內(nèi)存，即動(dòng)態(tài)數(shù)組后

來(lái)就不復(fù)存在。用于靜態(tài)數(shù)組中只是內(nèi)容清空，數(shù)組依然存在。

4.數(shù)組元素的輸入及輸出

輸入：一般通過(guò)For循環(huán)和Inputbox函數(shù)輸出

如：Optionbase1S(i)=Temp$

Dims()asstringNexti

SubForni_Click()

EncSub

Redims(4)assiring

輸th用Print措施結(jié)合For循環(huán)實(shí)現(xiàn)

Fori=1to4

Optionbase1

TempS=Inputbox(t4EnterName^^)

Dims(4,4)asInteger

Fori=1to4Nextj

Forj=1to4Nexti

Prints(ij);“”：

5.控件數(shù)組

控件數(shù)組是一組相似類型U勺控件構(gòu)成，這些控件有一種相似的控件名稱，具有相似U勺屬

性設(shè)置，所有元素的Name屬性相似，但I(xiàn)ndex屬性不一樣。

6.Sub過(guò)程

?通用過(guò)程：多種事件過(guò)程需要使用同一種程序代碼，他可以單獨(dú)建立，供事件過(guò)程

或其他過(guò)程調(diào)用。

?事件過(guò)程：當(dāng)發(fā)生某個(gè)事件時(shí)，對(duì)事件作出響應(yīng)II勺程序段。

函數(shù)過(guò)程的返回值只能有一種。

調(diào)用Sub過(guò)程：①Call語(yǔ)句調(diào)用過(guò)程。如：CallTryout(a,b)

②把過(guò)程名作為一種語(yǔ)句使用。如：Tryouta,b云掉call關(guān)鍵字，去掉“實(shí)際參數(shù)”括

號(hào)。

7.通用sub過(guò)程和事件過(guò)程★重點(diǎn)★難點(diǎn)★

事件過(guò)程是一種特殊的sub過(guò)程，他附加在窗體和控件上。窗體H勺事件過(guò)程不能由顧客

任意定義，而是由系統(tǒng)指定。一般是在事件過(guò)程中調(diào)用通用過(guò)程，同步事件過(guò)程也可以被其

他過(guò)程調(diào)用。

通用過(guò)程可以放在原則模塊中，也可以放在窗體模塊中，而事件過(guò)程只能放在窗體模塊

中，不一樣模塊中的過(guò)程可以互相調(diào)用。

8.Function過(guò)程★重點(diǎn)★難點(diǎn)★

Sub過(guò)程不直接返回值，可以作為單獨(dú)日勺基本語(yǔ)句使用，而Function過(guò)程要返回一種值，

一般出目前體現(xiàn)式中。

鍵盤(pán)與鼠標(biāo)事件

1.鍵盤(pán)事件

(DKcyPrcss事件

當(dāng)壓下鍵盤(pán).匕的某個(gè)健時(shí)，將發(fā)生KeyPress事件。該事件可以用于各控件。例如用在

文本框上日勺格式：PrivateSubText-KeyPress(KeyAsciiasinteger)

KeyPress事件帶有?種參數(shù)，參數(shù)有兩種形式，第一種形式：IndexAsInteger,只用在控

件數(shù)組。第：種形式是：KeyAsciiAsinteger,用于單個(gè)控件。

KeyPress事件用于識(shí)別按鍵的Ascii碼，捕捉擊鍵動(dòng)作，KeyAscii參數(shù)不能省略。

控件日勺鍵盤(pán)事件優(yōu)先于窗體H勺鍵盤(pán)事件

（2）KcyDown和KcyUP事件

KeyDown和KeyUP事件返回的是鍵盤(pán)的直接狀態(tài)。KeyPress事件返回口勺是Ascii碼。

當(dāng)按鍵“A"時(shí)，KeyDown事件所得到的Kcycodc碼與鍵匕”時(shí)相似。

2.鼠標(biāo)事件

第10章鍵盤(pán)與鼠標(biāo)事件

本章重要考察鍵盤(pán)事件與鼠標(biāo)事件，包括KeyPress事件、KeyDown和KeyUp事件、鼠

標(biāo)事件、鼠標(biāo)光標(biāo)的形狀與拖放等知識(shí)點(diǎn)。通過(guò)對(duì)歷年試卷內(nèi)容的分析?，本章考核內(nèi)容約占

6%,屬于一般考察對(duì)象。

10.1鍵盤(pán)事件

使用鍵盤(pán)事件過(guò)程，可以處理當(dāng)按下或釋放鍵盤(pán)上某個(gè)鍵時(shí)所執(zhí)行的操作。

10.1.1考點(diǎn)1：KeyPress事件

當(dāng)壓下鍵盤(pán)上的某個(gè)譙時(shí)，將發(fā)土KeyPress事件。該事件可用于窗體、復(fù)選框、組合

框、命令按鈕、列表框、圖片框、文本框、滾動(dòng)條及與文件有關(guān)的控件。嚴(yán)格地說(shuō)，當(dāng)按下

某個(gè)鍵時(shí)，所觸發(fā)日勺是擁有輸入焦點(diǎn)（Focus）的那個(gè)控件日勺KeyPress事件。在某?時(shí)刻,

輸入焦點(diǎn)只能位于某一種控件上，假如窗體上沒(méi)有活動(dòng)時(shí)或可見(jiàn)的）控件，則輸入焦點(diǎn)位于窗

體上。當(dāng)-?種控件或窗體擁有輸入焦點(diǎn)時(shí)，該控件或窗體將接受從鍵盤(pán)上輸入的I信息。例如，

假定一種文本框擁有輸入焦點(diǎn)，則從鍵盤(pán)上輸入的I任何字符都將在該文本框中回顯。

在窗體上畫(huà)一種控件(指前面所講時(shí)可以發(fā)生KcyPress事件的控件)，例如文本框，

并雙擊該控件，進(jìn)入程序代碼窗口后，從“過(guò)程”框中選用KeyPress,即可.定義KeyPress事

件過(guò)程。一般格式如下：

PrivateSubTextI_KeyPress(KeyAsciiAsInteger)

EndSub

KeyPress事件帶有一種參數(shù)，這個(gè)參數(shù)有兩種形式，第一種形式是IndexAsInteger,只

用于控件數(shù)組；第二種形式是KeyAsciiAsInteger,用于單個(gè)控件。上面列出日勺是第二種形

式。KeyPress事件用來(lái)識(shí)別按鍵『、JASCII碼。參數(shù)KeyAscii是一種預(yù)定義口勺變量，執(zhí)行

KeyPress事件過(guò)程時(shí)，KeyAscii是所按鍵日勺ASCII碼。

闡明：

運(yùn)用KeyPress事件可以對(duì)輸入時(shí)值進(jìn)行限制；

運(yùn)用KeyPress事件可以捕捉擊鍵動(dòng)作；

在KeyPress過(guò)程中可以修改KeyAscii變量歐J值。假如進(jìn)行了修改，VisualBasic控件中

輸入修改后日勺字符，而不是顧客輸入日勺字符八

例10.1.1如下有關(guān)KcyPress事件過(guò)程參數(shù)KcyAscii日勺論述中，對(duì)日勺日勺是（）。［9月填

空第29題］

A.KcyAscii參數(shù)是所按鍵的ASCII碼B.KeyAscii參數(shù)的數(shù)據(jù)類型為字符串

C.KeyAscii參數(shù)可以省略D.KeyAscii參數(shù)是所按鍵上標(biāo)注的字符

解析:Keypress事件帶有■種參數(shù),這個(gè)參數(shù)有兩種形式。第?種形式是IndexAsInteger,

只用于控件數(shù)組：第二種形式是KeyAsciiAsInteger,用于單個(gè)控件。參數(shù)KeyAscii是一種

預(yù)定義的變量，執(zhí)行KcyPress事件過(guò)程時(shí)，KeyAscii是所按鍵『、JASCII碼，并且該參數(shù)不

能省略。

答案：A

小技巧：在默認(rèn)狀況下，控件口勺鍵盤(pán)事件優(yōu)先于窗體口勺鍵盤(pán)事件。因此在發(fā)生鍵盤(pán)事件

時(shí)，總是先激活控件的鍵盤(pán)事件。假如但愿窗體先接受健盤(pán)事件，則必須把窗體的

KeyPreview屬性設(shè)置為T(mén)rue,否則不能激活窗體的J鍵盤(pán)事件。

10.1.2考點(diǎn)2：KeyDown和KeyUp事件

與KeyPress事件不一樣，KeyPress并不反應(yīng)鍵盤(pán)打勺直接狀態(tài)，而KeyDown和KeyUp

事件返回H勺是鍵盤(pán)的直接狀態(tài)。換言之，KeyDown和KeyUp事件返回H勺是“鍵”，而KeyPress

事件返回的是“字符'坪JASCH碼.例如，當(dāng)按字母鍵“A"時(shí)，KeyDown所得到R'、JKeyCode

碼（KeyDown事件的參數(shù)）與字母鍵“a”是相似的，而對(duì)KeyPress來(lái)說(shuō)，所得到H勺ASCII

碼不一樣。

KeyDown和KeyUp事件的參數(shù)也有兩種形式，其中IndexAsInteger只用于控件數(shù)組,

而KeyCodeAsInteger,ShiftAsInteger用于單個(gè)控件。

闡明：

參數(shù)KeyCode是按鍵實(shí)際的IASCII碼。該碼以“鍵”為準(zhǔn)，而不是以“字符”為準(zhǔn)。也就

是說(shuō)，大寫(xiě)字母與小寫(xiě)字母使用同一種鍵，它們的KeyCode相似(使用大寫(xiě)字母的ASCH

碼)；

轉(zhuǎn)換鍵，指的是三個(gè)轉(zhuǎn)換鍵口勺狀態(tài)，包括Shift、Ctrl和Alt,這三個(gè)鍵分別以二進(jìn)制形

式表達(dá),每個(gè)鍵有三位,Shift鍵為001,Ctrl鍵為010,Alt鍵為100；

KeyDown是當(dāng)一種鍍被按下時(shí)所產(chǎn)生的事件，而KeyUp是松開(kāi)被壓下的鍵時(shí)所產(chǎn)生的

事件。

例10.1.2在窗體上畫(huà)I個(gè)文本框，其名稱為T(mén)extl,然后編寫(xiě)如下過(guò)程：

PrivateSubTextl_KcyDown(KeyCodeAsInteger,ShiftAsInteger)

PrintChr(KeyCodc)

EndSub

PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)

PrintChr(KeyCode+2)

EndSub

程序運(yùn)行后，把焦點(diǎn)移到文本框中，此時(shí)假如敲擊“A”鍵，則輸出成果為()。［4月選

擇第29題］

A.AB.AC.AD.A

ABCD

解析：敲擊“A”鍵11勺動(dòng)作，首先是按下該鍵觸發(fā)TextLKeyDown事件，通過(guò)Print

C'hr(KeyCode)輸出“A”；然后是松開(kāi)被按下W、廣A”鍵，此時(shí)觸發(fā)Textl_KeyUp事件，通過(guò)Print

Chr(KeyCodc+2)輸出“C”。

答案：C

警鐘長(zhǎng)鳴：在鍵盤(pán)上按下?種鍵總是會(huì)觸發(fā)KeyDown事件、KeyUp事件和KeyPress

事件。

例10.1.3在窗體上畫(huà)1個(gè)命令按鈕和1個(gè)文本框，其名稱分別為Command1和Textl,

然后編寫(xiě)如下代碼:

DimSaveAllAsStringText1.Text=Left(UCase(SaveAll),4)

PrivateSubCommandl_Click()EncSub

PrivateSubText!_KcyPress(KcyAsciiSaveAll=SaveAll+Chr(KeyAscii)

AsInteger)

EncSub

程序運(yùn)行后，在文本框中輸入abedefg,單擊命令按鈕，則文本框中顯示的內(nèi)容是—o

[4月填空第9題]

解析：TextlJCeyPress過(guò)程將顧客在文本框中所輸入的內(nèi)容保留到變量SaveAll中，木

<t,,

例輸入“abedefg"，則SaveAll=abcdefg;Lefl(UCase(SaveAH),4)函數(shù)即為對(duì)“abedefg”轉(zhuǎn)換為

大寫(xiě)后取前四個(gè)字母，即“ABCD”。

答案：ABCD

小技巧：運(yùn)用邏輯運(yùn)算符And可以判斷與否按下了某個(gè)轉(zhuǎn)換鍵，可以在事件過(guò)程中通

過(guò)判斷與否按下了某個(gè)或某幾種鍵來(lái)執(zhí)行指定的操作。

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

1.當(dāng)窗體為活動(dòng)窗體時(shí)，可以使用“工具”菜單中的“菜單編輯器”打開(kāi)菜單編輯器，

2.彈出式菜單：建立彈出式菜單首先用菜單編輯器建立菜單，然后用PopupMenu措施

彈出顯示。

各級(jí)菜單中日勺所有菜單項(xiàng)口勺名稱必須唯一。

3.通用對(duì)話框：對(duì)話框的類型可以通過(guò)Action屬性設(shè)置，也可以用對(duì)應(yīng)的措施設(shè)置。

可以通過(guò)DialogTitlc屬性設(shè)置有實(shí)際意義的J標(biāo)題。

通用對(duì)話框，Action=l打開(kāi)文件；=2保留文件

措施：showopen；showsavc

4.文件對(duì)話框：

格式：【窗體】對(duì)話框名，F(xiàn)lite『描述符1|過(guò)濾器1|描述符2|過(guò)濾器2|…

Fliterlndex用來(lái)指定默認(rèn)11勺過(guò)濾器。

5.多重窗體程序設(shè)

Show措施：用來(lái)將指定的窗體裝入內(nèi)存并顯示該窗體。

6.VB工程中，可以作為啟動(dòng)對(duì)象的程序是Submain過(guò)程或任何窗體。

一種工程中可以包括多種窗體文件。

數(shù)據(jù)文件

1基本文件操作語(yǔ)句與函數(shù)

⑴打開(kāi)文件★重點(diǎn)★難點(diǎn)★

格式：Open文件名【for方式】as#文件號(hào)

假如省略［for方式】，則打開(kāi)文件的存取方式是隨機(jī)存取方式。

方式指文件的輸出方式，可以是Output（次序輸出）以寫(xiě)的方式打開(kāi)、input（次序輸入）、

append（添力口）。

使用。pen語(yǔ)句打開(kāi)文件時(shí)，假如為輸入input打開(kāi)的文件不存在，則產(chǎn)生“文件未找到“

的錯(cuò)誤；假如為Output（次序輸出）、append（添加）訪問(wèn)方式打開(kāi)H勺文件不存在，則建立對(duì)應(yīng)

的文件。

（2）關(guān)閉文件

（3）EOF函數(shù)

用來(lái)測(cè)試文件的結(jié)束狀態(tài)。運(yùn)用EOF函數(shù)，可以防止在文件輸入時(shí)出現(xiàn)“輸入超過(guò)尾”

錯(cuò)誤。DOWhileNotEOF

2.次序文件與隨機(jī)文件

⑴次序文件寫(xiě)操作（2）次序文件讀操作

Print#文件號(hào)，體現(xiàn)式Input#文件號(hào)，變量表

Write#文件號(hào)，體現(xiàn)式

（3）隨機(jī)文件H勺打開(kāi)與讀寫(xiě)操作

隨機(jī)文件的I記錄是定長(zhǎng)記錄。在用open語(yǔ)言打開(kāi)文件時(shí)必須指定記錄歐I長(zhǎng)度。

打開(kāi)隨機(jī)文件：Open”文件名"forrandomAs#文件號(hào)對(duì)文件H勺操作既可以讀也可以寫(xiě)。

第12章數(shù)據(jù)文件

本章重要考察VisualBasic中U勺數(shù)據(jù)文件操作，包括VisualBasic文件概述、基本文件

操作語(yǔ)句與函數(shù)、次序文件與隨機(jī)文件和文件系統(tǒng)控件。通過(guò)對(duì)歷年試卷內(nèi)容的分析，本章

考核內(nèi)容約占8%,屬于一般考察對(duì)象。

12.1VisualBasic文件概述

12.1.1考點(diǎn)1：文件概述

1.文件概念

所謂“文件”，是指記錄在外部介質(zhì)上的數(shù)據(jù)的集合。

2.在程序設(shè)計(jì)中使用文件的原因

文件是使一種程序可以對(duì)不一樣的輸入數(shù)據(jù)進(jìn)行加工處理、產(chǎn)生對(duì)應(yīng)輸出成果H勺常用手

段。

使用文件可以以便顧客，提高上機(jī)效率；

使用文件可以不受內(nèi)存大小H勺限制。

3.文件構(gòu)造

為了有效地存取數(shù)據(jù)，數(shù)據(jù)必須以某種特定的方式寄存，這種特定的方式稱為文件構(gòu)造。

VisualBasic文件由記錄構(gòu)成，記錄由字段構(gòu)成，字段由字符構(gòu)成。

（1）字符

字符是構(gòu)成文件的最基本單位。字符可以是數(shù)字、字母、特殊符號(hào)或單?字節(jié)。Visual

Basic支持雙字節(jié)字符，當(dāng)計(jì)算字符串長(zhǎng)度時(shí)，一種西文字符和一種中文都可作為一種字符

計(jì)算，但它們所占的空間是不一樣的I。例如：字符串“系統(tǒng)分析員協(xié)會(huì)顧問(wèn)團(tuán)CSAI”的長(zhǎng)度

為14個(gè)字符，而所占日勺存儲(chǔ)空間為24個(gè)字節(jié)。

（2）字段

字段也稱為域。字段由若干個(gè)字符構(gòu)成，用來(lái)表達(dá)一項(xiàng)數(shù)據(jù)。

（3）記錄

記錄由一組有關(guān)的字段構(gòu)成。

（4）文件

文件由記錄構(gòu)成，一種文件具有一種以上的記錄。

4.文件種類

根據(jù)不一樣的分類原則，文件可分為不一樣的類型。

（1）根據(jù)數(shù)據(jù)性質(zhì)劃分

程序文件：寄存的是可以由計(jì)算機(jī)執(zhí)行的程序，包括源文件和可執(zhí)行文件。

數(shù)據(jù)文件：寄存一般的數(shù)據(jù)，此類數(shù)據(jù)必須通過(guò)程序來(lái)存取和管理。

（2）根據(jù)數(shù)據(jù)的存取方式和構(gòu)造劃分

次序文件：文件中的記錄一種接一種地寄存。次序文件的組織比較簡(jiǎn)樸，但維護(hù)困難。

重要長(zhǎng)處是占空間少，輕易使用。

隨機(jī)存取文件：又稱直接存取文件，每個(gè)記錄"勺氏度是固定的，根據(jù)記錄號(hào)進(jìn)行讀寫(xiě)操

作。長(zhǎng)處是數(shù)據(jù)的存取靈活、以便，速度較快，輕易修改。缺陷是占空間較大，數(shù)據(jù)組織較

復(fù)雜。

（3）根據(jù)數(shù)據(jù)歐I編碼方式劃分

ASCII文件：又稱文本文件，它以ASCII方式保留文件?？梢杂米痔幚碥浖⒑托薷摹?/p>

二進(jìn)制文件：以二進(jìn)制方式保留的文件。不能用一股的字處理軟件編輯，占空間較小。

例12.1.1如下文件擴(kuò)展名中，不屬于程序文件II勺是（）。

A..exeB..frmC..mdbD..vbp

解析：.exe文件為可執(zhí)行文件；6m文件為VisualBasic的窗體文件；.mdb文件為Access

數(shù)據(jù)庫(kù)文件；.vbp文件為VisualBasic的工程文件。

答案：c

第二章數(shù)據(jù)的輸出與輸入

1.Print措施的J對(duì)象

2.MsgBox函數(shù)和InputBox函數(shù)中各參數(shù)口勺含義

格式：InputBox(prompt,titleJefault)

格式：MsgBox(msgjype.title)

9章數(shù)組與過(guò)程

本章重要考察VisualBasic中口勺數(shù)組與過(guò)程，重要包括：數(shù)組基本概念、數(shù)組基本操作、

控件數(shù)組、Sub過(guò)程、Funclion過(guò)程、過(guò)程中的參數(shù)、局部?jī)?nèi)存分派和Shell函數(shù)。通過(guò)對(duì)

歷年試卷內(nèi)容II勺解析，本章考核內(nèi)容約占18%,屬于重點(diǎn)考察對(duì)象,但將保持下降趨勢(shì)。

9.1數(shù)組基本概念

9.1.1考點(diǎn)1：數(shù)組的定義

數(shù)組是有序的數(shù)據(jù)的集合。在VisualBasic中，一種數(shù)組中R勺元素可以是相似類型H勺數(shù)

據(jù)，也可以是不一樣類型的數(shù)據(jù)7在VisualBasic中，可以有兩種格式定義數(shù)組：

1.第一種格式

(1)一維數(shù)組

一維數(shù)組打勺定義一般格式如下：

Dim數(shù)組名(下標(biāo)上界)As類型名稱

例如：Dimscore(10)AsInteger

該語(yǔ)句定義了一種一維數(shù)組，名字為score,類型為Integer,共6個(gè)元素。

(2)二維數(shù)組

二維數(shù)組的定義一般格式如下：

Dim數(shù)組名(第一維下標(biāo)上界，第二維下標(biāo)上界)As類型名稱

例如：DimstuScore(10,2)AsInteger

該語(yǔ)句定義了一種二維數(shù)組，名字為stuScore,類型為Integer,共11X3=33個(gè)元素。

2.第二種格式

(1)定義數(shù)組

在定義數(shù)組時(shí)，指定數(shù)組下標(biāo)的上界和下界。語(yǔ)句一般格式如下：

Dim數(shù)組名(［卜.界To］上界［,I下界To］上界］...)As類型名稱

例如；Dimscore(1To5)

該語(yǔ)句定義了一種一維數(shù)組，下界為1,上界為5,共5個(gè)元素。

第二種格式實(shí)際上包括了第一種格式，只要省略“下界To"，即變?yōu)榈谝环N格式。

（2）語(yǔ)句闡明

“數(shù)組名''與簡(jiǎn)樸變量相似，可以是任何合法的VisualBasic變量名，在同一過(guò)程中，數(shù)

組名不能與變量名同名；

數(shù)組必須先定義后使用，并且每一維的元素個(gè)數(shù)必須是常數(shù)，不能是變量或體現(xiàn)式；

使用Dim語(yǔ)句定義數(shù)組時(shí)，數(shù)值數(shù)組中的全部元素初始化為0,字符串?dāng)?shù)組中II勺全部元

素初始化為空字符串；

一般狀況下，下標(biāo)的下界默認(rèn)為0,可以使用OptionBasen（n只能為或1）變化下標(biāo)

的默認(rèn)為1；使用LBound和UBound函數(shù)可以獲得數(shù)組的上、下界值；

假如下標(biāo)值從0開(kāi)始，則數(shù)組元素區(qū)I個(gè)數(shù)為最大下標(biāo)值加1,假如下標(biāo)值從1開(kāi)始，則

數(shù)組元素的個(gè)數(shù)與最大下標(biāo)值相等。

3.定義數(shù)組的）保留字

在VisualBasic中，定義數(shù)組時(shí)可使用4個(gè)保留字，以定義不一樣范圍內(nèi)的數(shù)組：

Dim：定義窗體模式或原則模塊數(shù)組，也可用在過(guò)程中；

ReDim：用在過(guò)程中;

Static：用在過(guò)程中;

Public：用在原則模塊中，定義全局?jǐn)?shù)組。

例9.1.1在窗體上畫(huà)1個(gè)命令按鈕，其名稱為Commandl,然后編寫(xiě)如下事件過(guò)程：［4

月填空第7?8題］

PrivateSubCommandl_Click()

Dimarr(1To100)AsIntegerMax=arr(i)

ForI=1To100EndIf

arr(i)=Int(Rnd*1000)If[8]Then

NextiMin=arr(i)

Max=arr(1)EndIf

Min=arr(l)Nexti

Fori=1To100Print"Max=";Max,"Min=";Min

If[7]ThenEndSub

程序運(yùn)行后，單擊命令按鈕，將產(chǎn)生100個(gè)1000以內(nèi)的隨機(jī)整數(shù)，放入數(shù)組arr中，

然后查找并輸出這100個(gè)數(shù)中的J最大值Max和最小值Min,請(qǐng)?zhí)羁铡?/p>

解析：由條件判斷可以得知，在［7】處曰勺意思是將最大值Max中H勺數(shù)與arr⑴中H勺數(shù)

相比較，處H勺意思是將最小值Min中H勺數(shù)與arr⑴中的數(shù)相比較。

答案：【7】Maxarr(i)

9.1.2考點(diǎn)2：默認(rèn)數(shù)組

所謂默認(rèn)數(shù)組，就是數(shù)據(jù)類型為Variant(默認(rèn))的數(shù)組。在一般狀況下，定義數(shù)組應(yīng)

指明其類型。

例如：

StaticElec(1To100)AsInteger

該語(yǔ)句定義了一種數(shù)組Elec,該數(shù)組的類型為整型，它有100個(gè)元素，每個(gè)元素都是一

種整數(shù)。但假如使用語(yǔ)句：

StaticElec(1To100)

則定義U勺數(shù)組是默認(rèn)數(shù)組，沒(méi)有指定類型，則類型默認(rèn)為Variant,該語(yǔ)句等價(jià)于：

StaticElec(1To100)AsVariant

對(duì)于默認(rèn)數(shù)組來(lái)說(shuō)，同一種數(shù)組中可以寄存多種不一?樣口勺數(shù)據(jù)。因此，默認(rèn)數(shù)組可以說(shuō)

是一種“混合數(shù)組”，這也就是默認(rèn)數(shù)組的意義所在。

例9.1.2閱讀下面程序并填空。

SubForni_Click()Fori=lTo4

[1]Print"Defau(";I;Defau(i)

Defau(I)=100Nexti

Defau(2)=234.56EncSub

Defau(3)="CSAI"答案：[1]StaticDefau(4)

Defau(4)="20"&Now

第11章可視化程序設(shè)計(jì)

本章重要考察可視化程序設(shè)計(jì)，包括菜單程序設(shè)計(jì)、對(duì)話框程序設(shè)計(jì)、多重窗體程序設(shè)

計(jì)、VisualBasic工程構(gòu)造與執(zhí)行控制等知識(shí)點(diǎn)。通過(guò)對(duì)歷年試卷內(nèi)容的分析，本章考核內(nèi)

容約占6%,屬于一般考察對(duì)象，下次考試將保持上升趨勢(shì)。

11.1菜單程序設(shè)計(jì)

菜單日勺基本作用有兩個(gè)，一是提供人機(jī)對(duì)話日勺界面，以便讓使用者選擇應(yīng)用系統(tǒng)的多種

功能；二是管理應(yīng)用系統(tǒng)，控制多種功能模塊的運(yùn)行。

在實(shí)際應(yīng)用中，菜單可分為兩種基本類型，即下拉式菜單和彈出式菜單。

11.1.1考點(diǎn)1:下拉式菜單

下拉式菜單是一種經(jīng)典R勺窗口式菜單。在下拉式菜單系統(tǒng)中，一般有一種主菜單，其中

包括若干選擇項(xiàng)，主菜單H勺每一項(xiàng)都可以“下拉”出下一級(jí)菜單供顧客選擇或輸入信息。操作

完畢后菜單從屏幕上消失，并恢復(fù)原來(lái)的屏幕狀態(tài)。

1.菜單編輯器

VisualBasic中口勺菜單通過(guò)菜單編輯器，即菜單設(shè)計(jì)窗口建立。可以通過(guò)如下4種方式

進(jìn)入菜單編輯器：

執(zhí)行“工具”菜單中的T菜單編輯器”命令；

使用熱鍵Ctrl+E；

單擊工具欄中的“菜單編輯器”按鈕；

在要建立菜單的窗體上單擊鼠標(biāo)右鍵，將彈出一種菜單，然后單擊“菜單編輯器”命令。

菜單編輯器窗口分為三個(gè)部分：印數(shù)據(jù)區(qū)、編輯區(qū)和菜單項(xiàng)顯示區(qū)。

（1）數(shù)據(jù)區(qū)

數(shù)據(jù)區(qū)用來(lái)輸入或修改菜單項(xiàng)、設(shè)置屬性。在數(shù)據(jù)區(qū)中，必須提供菜單項(xiàng)日勺"標(biāo)題''和"名

稱”屬性，“有效”屬性和“可見(jiàn)''屬性一般默認(rèn)為T(mén)rue,只有在必要時(shí)才設(shè)置其他屬性。在設(shè)

置“標(biāo)題”屬性時(shí)，假如輸入一種減號(hào)（一）,則可在菜單中加入一條分隔線；假如在菜單“標(biāo)

題”中包括“&”，則可將該符號(hào)后口勺字母作為訪問(wèn)鍵（通過(guò)ALT加該鍵打開(kāi)該菜單）。

（2）編輯區(qū)

編輯區(qū)用來(lái)對(duì)輸入的菜單項(xiàng)進(jìn)行簡(jiǎn)樸的J編輯。

（3）菜單項(xiàng)顯示區(qū)

菜單項(xiàng)顯示區(qū)用來(lái)顯示所輸入H勺菜單項(xiàng)。菜單在數(shù)據(jù)區(qū)輸入，在編輯區(qū)進(jìn)行位置調(diào)整，

在菜單項(xiàng)顯示區(qū)顯示。

2.菜單項(xiàng)的控制

（1）有效性控制

菜單中日勺某些菜單項(xiàng)應(yīng)能根據(jù)執(zhí)行條件的不?樣進(jìn)行動(dòng)態(tài)變化，即當(dāng)條件滿足時(shí)可以執(zhí)

行，否則不能執(zhí)行。

菜單項(xiàng)日勺“有效”屬性，菜單項(xiàng)日勺有效性就是通過(guò)該屬性來(lái)控制的。實(shí)際.上，只要把?種

菜單項(xiàng)R勺“有效”屬性設(shè)置為False,就可以使其失效，運(yùn)行后該菜單項(xiàng)變?yōu)榛疑?；為了使?/p>

種失效口勺菜單項(xiàng)變?yōu)橛行В灰阉丈住坝行А睂傩灾匦略O(shè)置為T(mén)rue即可實(shí)現(xiàn)。

（2）菜單項(xiàng)標(biāo)識(shí)

所謂菜單項(xiàng)標(biāo)識(shí)，就是在菜單項(xiàng)前加上一種y”。它有兩個(gè)作用：一是可以明顯地表達(dá)

目前某個(gè)（或某些）命令狀態(tài)是“On”或“Off二是可以表達(dá)目前選擇的是哪個(gè)菜單項(xiàng)。菜單

項(xiàng)標(biāo)識(shí)通過(guò)菜單設(shè)計(jì)窗口中歐1“復(fù)選”屬性設(shè)置，當(dāng)該屬性為T(mén)rue時(shí)，對(duì)應(yīng)口勺菜單項(xiàng)前爭(zhēng)7”

標(biāo)識(shí)；假如該屬性為False,則對(duì)應(yīng)口勺菜單項(xiàng)前沒(méi)有“卡標(biāo)識(shí)。

（3）鍵盤(pán)選擇

用鍵盤(pán)選用菜單一般有兩種措施，即熱鍵和訪問(wèn)鍵（AccessKey）。

3.菜單項(xiàng)的增減

菜單項(xiàng)H勺增減通過(guò)控件數(shù)組來(lái)實(shí)現(xiàn)。一種控件數(shù)組具有若干個(gè)控件，這些控件的）名稱相

似，所使用的事件過(guò)程相似，但其中口勺每個(gè)元素可以有自己的屬性?？丶?shù)組和一般數(shù)組一

樣，可通過(guò)下標(biāo)（Index）訪問(wèn)控件數(shù)組中的元素。控件數(shù)組可以在設(shè)計(jì)階段建立，也可以

在運(yùn)行時(shí)建立。

例1LLI假定有一種菜單項(xiàng)，名為Menuitem,為了在運(yùn)行時(shí)該菜單項(xiàng)失效（變灰），

應(yīng)使用的語(yǔ)句是（）

A.Menuitem.Enabled=FalseC.Menuitem.Visible=True

B.McnuItcm.Enablcd=TrueD.MenuItem.Visible=False

解析：Enabled屬性設(shè)置菜單與否可用；Visible屬性設(shè)置菜單與否可■見(jiàn)。菜單項(xiàng)標(biāo)識(shí)一

般是動(dòng)態(tài)地加上或取消的，因此應(yīng)在程序代碼中根據(jù)執(zhí)行狀況動(dòng)態(tài)設(shè)置。

答案：A

重要提醒：只有當(dāng)某個(gè)窗體為活動(dòng)窗體時(shí)，才能用上面簡(jiǎn)介的J四種措施打開(kāi)菜單編輯器

窗口。

11.1.2考點(diǎn)2：彈出式菜單

建立彈出式菜單一般分兩步進(jìn)行：首先用菜單編輯器建立菜單，然后用PopupMenu措

施彈出顯示。第一步H勺操作與前面簡(jiǎn)介的基本相似，惟一口勺區(qū)別是必須把菜單名（即主菜單

項(xiàng)）日勺“可見(jiàn)”屬性設(shè)置為False（子菜單項(xiàng)不要設(shè)置為False）。PopupMenu措施用來(lái)顯示彈

出式菜單，其一般格式如下：

對(duì)象.PopupMenu菜單名,Flags,X,Y,BoldCommand

闡明：

當(dāng)省略“對(duì)象”時(shí)，彈出式菜單只能在目前窗體中顯示。假如需要彈出式菜單在其他窗體

中顯示，則必須加上窗體名；

Flags口勺兩組參數(shù)可以單獨(dú)使用，也可以聯(lián)合使用。當(dāng)聯(lián)合使用時(shí)，每組中取一種值，

二者相加；假如使用符號(hào)常量，則兩個(gè)值用Or連接；

彈出式菜單的位置由X、Y和Flagx參數(shù)共同指定八

例11.1.2在菜單編輯器中建立一種名稱為Menu()的菜單項(xiàng)，將其“可見(jiàn)”屬性設(shè)置

為False,并建立其若干子菜單，然后編寫(xiě)如下過(guò)程：

PrivateSubForm_MouscDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)

IfButton=1Then

PopupMenuMcnu()

EndIf

EndSub

則如下論述中錯(cuò)誤的是()[4月選擇第32題]

A.該過(guò)程的作用是彈出一種菜單

B.單擊鼠標(biāo)右鍵時(shí)彈出菜單

C.Menu()是在菜單編輯器中定義的彈出菜單H勺名稱

D.參數(shù)X、Y指明鼠標(biāo)目前位置的坐標(biāo)

解析：一般把PopupMenu措施放在MouseDown事，牛中，該事件響應(yīng)所有『、J鼠標(biāo)單擊

操作，用Button參數(shù)控制左右鍵選擇。Butlon=1為單擊鼠標(biāo)左鍵時(shí)彈出菜單，Button=2為

單擊鼠標(biāo)右鍵時(shí)彈出菜單,

答案：B

第九章.常用控件

認(rèn)清事件觸發(fā)的對(duì)象名

列表框

List屬性----是一種字符數(shù)組，寄存列表框的項(xiàng)。Listlndex屬性----選中"勺列表項(xiàng)序

號(hào)。

ListCount屬性---列表框中項(xiàng)目歐I數(shù)量。Text屬性----被選中列表項(xiàng)的文本內(nèi)容。

Selected屬性——是一種邏輯數(shù)組，表達(dá)對(duì)應(yīng)的項(xiàng)在程序運(yùn)行期間與否被選中。

第三章VB程序設(shè)計(jì)語(yǔ)句

1.For循環(huán)

Forv循環(huán)變量＞=＜初徜〉to〈終值＞[sl叩步長(zhǎng)]

〈循環(huán)體〉

[ExitFor]

Next＜循環(huán)變量〉

1）多重循環(huán)

Do循環(huán)

格式一：DoWhile〈條件＞＜語(yǔ)句塊＞Loop

格式二：DoUntil〈條件〉〈語(yǔ)句塊〉Loop

格式三：Do＜語(yǔ)句塊＞LoopWhilev條件〉

格式四：Do〈語(yǔ)句塊》LoopUntilv條件〉

2）二重循環(huán)

1.經(jīng)典案例：求100以內(nèi)的素?cái)?shù)。2.取矩陣對(duì)角線上的元素。3.打印“*”型圖。

3）程序范例：

Constn=5,m=4Forj=lTonPrivateSub

Command2_Click()

Dima(m,n)a(ij)=k

Summ=0

PrivateSubk=k+l

Command1_Click()Fori=lTom

Nextj

K=1Forj=lTon

Nexti

Fori=1ToniIfi=lOri=mThen

EndSub

Summ=summ+a(i,j)EndIfPrintsumni

ElseEndIfEndSub

Ifj=IOrj=nThenNextj

Summ=sunim+a(i,j)Nexti

過(guò)程Command1_Click()U勺作用是二維數(shù)組a中寄存I個(gè)m行n列的矩陣;過(guò)程

Command2_Click()的作用是

A)計(jì)算矩陣外圍一圈元素的累加和

B)計(jì)算矩陣除外一圈以外的所有元素的累加和

C)計(jì)算矩陣第1列和最終一列元素的累加和

D)計(jì)算矩陣第1行和最終一行元素的累加和

VB中狀態(tài)欄(StatusBar)和工具欄(ToolBar)經(jīng)典實(shí)例分

析

1.狀態(tài)欄的作用與構(gòu)成

StatusBar控件由Panel(窗格)對(duì)象構(gòu)成，最多能被提成16個(gè)Panel對(duì)象，每一種

Panel對(duì)象能包括文本和/或圖片?？刂苽€(gè)別窗格的外觀屬性包括Width、Alignment(文本

和圖片B、J）和Bevel（斜面）。此外，能使用Style屬性七個(gè)值中的一種自動(dòng)地顯示公共數(shù)據(jù)，

諸如日期、時(shí)間和鍵盤(pán)狀態(tài)等。

2.創(chuàng)立狀態(tài)欄

先在窗體上畫(huà)出一種StatusBar對(duì)象，再右擊該對(duì)象，從快捷菜單中選擇“屬性”，進(jìn)入

屬性頁(yè)設(shè)置窗口，進(jìn)行下面的設(shè)置.：

（1）選擇窗格形狀

在屬性窗口里選擇通用標(biāo)簽，在樣式列表框里選擇多窗格（缺省形式）或單窗格簡(jiǎn)樸義

本形式。

（2）添加或刪除狀態(tài)欄窗格

在屬性窗口里選擇窗格標(biāo)簽，單擊插入窗格按鈕添加一種窗格，或單擊刪除窗格按鈕刪

除一種窗格。

（3）在單窗格里顯示文本

在屬性窗口里選擇通用標(biāo)簽，在簡(jiǎn)樸文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用

代碼顯示的方式是：

StatusBar1.SimpleTexc="要顯示的內(nèi)容"

（4）在多窗格里顯示文本或圖形

1).在屬性窗口里選擇窗格標(biāo)簽，用索引旁的按鈕選擇窗格序號(hào)。

2).在文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是：

StatusBarI.Panels(x).Text="要顯示R9內(nèi)容”

3).假如想加入圖形，單擊瀏覽按鈕打開(kāi)一種圖形選擇對(duì)話框，選擇想加入的圖形，然

后單擊打開(kāi)按鈕。

(5)編寫(xiě)代碼

假如是一種單窗格狀態(tài)欄，當(dāng)顧客單擊狀態(tài)欄時(shí)，只需用下面的事件過(guò)程來(lái)響應(yīng)：

PrivateSubStatusBar1_Click()

〈要執(zhí)行的代碼》

EndSub

假如是一種多窗格狀態(tài)欄，就需要鑒別顧客單擊日勺是哪一種窗格，可用下面的事件過(guò)程

來(lái)識(shí)別顧客所單擊口勺窗格：

PrivateSubStatusBar1_PanelClick(ByVaiPanelAsPanel)

SelectCasePanel.Index

Case1

〈要執(zhí)行的代碼》

Case2

〈要執(zhí)行口勺代碼〉

EndSelect

EndSub

3.創(chuàng)立工具欄

（1）.建立工具欄

1）在工具箱里單擊工具欄圖標(biāo)，拖到窗體的任何位置，VisualBasic自動(dòng)將ToolBar

移到頂部。再右擊該對(duì)象，從快捷菜單中選擇“屬性”，進(jìn)入屬性頁(yè)設(shè)置窗口；

2）選擇按鈕標(biāo)簽