VB學(xué)習(xí)版、專業(yè)版、企業(yè)版區(qū)別Visual

Basic學(xué)習(xí)版Visual

Basic學(xué)習(xí)版讓編程人員很容易地創(chuàng)建功能強大的

MicrosoftWindows和Windows

NT(R)應(yīng)用程序。它包括了所有的內(nèi)部控件，加上

網(wǎng)格、選項卡、和數(shù)據(jù)綁定控件。與此版本一起提供的文檔包括

Learn

VBNow

（這是一張多媒體

CD-ROM的標(biāo)題），加上包含了完整聯(lián)機文檔的Microsoft

Developer

Network

CD。學(xué)習(xí)版就是簡裝版Visual

Basic專業(yè)版專業(yè)版向計算機專業(yè)人員提供了一套功能完整的工具，以便他們?yōu)槠渌碎_發(fā)解決方案。專業(yè)版包含了學(xué)習(xí)版的所有功能，還加上了附加的

ActiveX控件、InternetInformationServer應(yīng)用程序設(shè)計器、集成數(shù)據(jù)工具和數(shù)據(jù)環(huán)境、Active

Data

Objects、以及動態(tài)

HTML頁面設(shè)計器。Visual

Basic企業(yè)版企業(yè)版允許專業(yè)人員以小組的形式來創(chuàng)建強健的分布式應(yīng)用程序。它包括專業(yè)版的所有特性，加上

Back

Office工具，例如

SQL

Server、MicrosoftTransaction

Server、Internet

Information

Server、Visual

SourceSafe、SNA

Server等等。建立一個應(yīng)用程序分為以下幾步(1)建立用戶界面的對象(2)對象屬性的設(shè)置(3)對象事件過程及編程(4)保存和運行程序VB默認(rèn)安裝目錄

"C:\Program

Files

\Microsoft

VisualStudio\VB98\VB6.EXE"默認(rèn)保存目錄

"C:\Program

Files

\Microsoft

VisualStudio\VB98\"VB常用圖片、圖標(biāo)保存位置

"C:\Program

Files

\Microsoft

VisualStudio\Common\Graphics\"習(xí)題

二對象

指現(xiàn)實世界中的實體。每個對象有自己的特征(屬性)、行為(方法)和發(fā)生在該對象上的活動(事件)。

類是對同一種對象的集合與抽象。類包含所創(chuàng)建對象的屬性數(shù)據(jù)，以及對這些數(shù)據(jù)進行操作的方法。

封裝和隱藏是類的重要特性，將數(shù)據(jù)結(jié)構(gòu)和對數(shù)據(jù)的操作封裝在一起，類的內(nèi)部實現(xiàn)細(xì)節(jié)對用戶來說是透明的。對象的三要素：屬性、事件和方法。屬性：存放對象的數(shù)據(jù)(決定對象外觀及功能）對象屬性的設(shè)置方法：在設(shè)計階段，利用屬性窗口直接設(shè)置屬性值；程序運行時，通過語句[對象名.]屬性名=屬性值。若屬性只能在設(shè)計階段設(shè)置，在程序運行階段不可改變，稱為只讀屬性。事件：發(fā)生在對象上的事情。同一事件，對不同的對象，會引發(fā)不同的反應(yīng)。方法：面向?qū)ο蟮某绦蛟O(shè)計語言，為程序設(shè)計人員提供了一種特殊的過程和函數(shù)。方法是面向?qū)ο蟮?，調(diào)用時一定要指明對象。窗體和控件具有的基本屬性Name屬性：名稱所創(chuàng)建的對象名稱,在程序中引用。Caption屬性：標(biāo)題該屬性決定了對象上顯示的內(nèi)容。Height、Width、Top和Left屬性決定對象的大小和位置。Enabled屬性：對象是否允許操作Visible屬性：對象是否可見Font屬性組：文本的外觀

FontName字體、FontSize大小

FontBold粗體、FontItalic斜體

FontStrikethru刪除線

FontUnderline下劃線ForeColor屬性：前景顏色BackColor屬性：背景顏色MousePointer屬性：鼠標(biāo)指針類型,設(shè)置值范圍015，由系統(tǒng)指定。若為99，由用戶提供的圖形文件定義鼠標(biāo)指針形狀。(10)MouseIcon屬性：在MousePointer屬性值為99時，存放自定義的鼠標(biāo)圖標(biāo)文件（.ico或.cur）。圖標(biāo)庫在Graphics目錄下。窗體的事件：Load事件是在窗體被裝入工作區(qū)時觸發(fā)的事件。當(dāng)應(yīng)用程序啟動，自動執(zhí)行該事件，該事件通常用來在啟動應(yīng)用程序時對屬性和變量進行初始化。窗體的方法:（1）Print方法（2）Cls方法

（3）Move方法標(biāo)簽和文本框標(biāo)簽：用于顯示文本(輸出)信息，不能作為輸入信息的界面。其內(nèi)容只能通過Caption屬性設(shè)置或修改，不能直接編輯。文本框是一個文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容。在VB中字符長度以字為單位，

也就是一個西文字符與一個漢字都是一個字，長度為1。文本框主要屬性（1)Text

顯示或輸入的正文內(nèi)容。Maxlength

設(shè)置文本框可輸入的文字最大長度。默認(rèn)值為0，表示可以輸入任意長字符串。MultiLine

多行屬性設(shè)置為True時，文本框可以輸入或顯示多行正文，同時具有文字處理器的自動換行功能，按Enter鍵可插入一空行。ScrollBars

滾動條屬性0-None

無滾動條Horizontal水平滾動條Vertical

垂直滾動條Both

同時加水平和垂直滾動條注意：當(dāng)MultiLine為True時，ScrollBars才有效PassWordChar

設(shè)置顯示文本的替代符。例如，當(dāng)設(shè)置為“*”，則在文本框輸入的內(nèi)容均以“*”顯示，而存儲的值是用戶輸入的原文。一般用于設(shè)置口令的輸入。當(dāng)MultiLine為True時，該屬性不起作用，密碼不允許多行。Locked

指定文本控件是否可被編輯，默認(rèn)值為False(可編輯當(dāng)設(shè)置為True時，文本控件相當(dāng)于標(biāo)簽控件的作用。注意：Locked與Enabled的區(qū)別。

(7)文本內(nèi)容進行選擇操作的三個屬性SelStartSelLengthSelText選定的正文開始位置選定的正文長度選定的正文內(nèi)容這3個屬性互相關(guān)聯(lián),例如設(shè)置SelStart、SelLength后，SelText自動存放指定的文本。注意：屬性窗口中沒有這三個屬性，只能在程序代碼中使用。讓文本框活的焦點的方法是SetFocus，把光標(biāo)移到指定的文本框中。文本款的Change時間和KeyPress事件Change事件：當(dāng)Text屬性值發(fā)生改變時引發(fā)該事件KeyPress事件：按下并且釋放鍵盤上的一個鍵時，引發(fā)焦點所在控件的KeyPress事件，所按鍵的值存放在參數(shù)KeyAscii中。對回車的判斷KeyAscii=13清除文本框的內(nèi)容Text1.Text=""啟動窗體時將命令按鈕定位在窗體中央的代碼

Private

Sub

Form_Load()nCommand1.Left

=

Form1.ScaleWidth

/

2

-Command1.Width

/

2Command1.Top

=

Form1.ScaleHeight

/

2

-Command1.Height

/

2End

Sub習(xí)題三1.合法常量：(1)Double

(2)

錯誤

(3)

Double

(4)

Double (5)

錯誤(6)Integer

(7)String

(8)String

(9)Date

(10)Double(11)錯誤（漢字字符）

(12)Integer(八進制)(13)錯誤（八進制無數(shù)碼8）(14)Integer(15)Boolean(16)錯誤(17)錯誤（十六進制無數(shù)碼g）(18)Single說明：浮點型變量默認(rèn)為Double類型而非Single。2.合法變量名：(1)√(2)√(3)誤：數(shù)字開頭(4)誤：含空格(5)誤：關(guān)鍵字

(6)√(7)誤：關(guān)鍵字

(8)誤：有括號(9)

√

(10)

√

(11)

√(12)√（漢字字符可作為變量名，但不常用）變量命名規(guī)則見P.41-42。字母（漢字）開頭，字母（漢字）、數(shù)字、下劃線組成，長度為1-255個字符；關(guān)鍵字不可作為變量名，但可在變量名中嵌入關(guān)鍵字；不區(qū)分大小寫。常量、數(shù)組、類型、函數(shù)、過程、對象命名規(guī)則與此相同。常量名通常全用大寫。Abs(x

+

y)

+

z

^

5(1

+

x

*

y)

^

6(10

*

x

+

Sqr(3

*

y))

/

(x

*

y)(-b

+

Sqr(b

^

2

-

4

*

a

*

c))

/

(2

*

a1

/

(1

/

r1

+

1

/

r2

+

1

/

r3)Sin(45

*

3.14159

/

180)

+

(Exp(10)

+Log(10))

/

Sqr(x

+

y

+

1)3.

寫VB表達(dá)式4.根據(jù)條件寫表達(dá)式隨機產(chǎn)生大寫字母Chr(Int(Rnd

*(Asc("L")-Asc("C")+1)+Asc("C[100,200]內(nèi)的隨機數(shù)

Int(Rnd

*

101)+100點(x,y)位于第一或第三象限

x>0

And

y>0

Or

x<0

And

y<

0

或 x

*

y

>

0x是5或7的整數(shù)倍 x

Mod

5

=

0

Or

Int(x

/

7)

=

x

/

7將兩位整數(shù)x的個位與十位對換

x\10+(x

Mod

10)*

10四舍五入取兩位小數(shù)

Round(x,2)字符變量C是字母字符（不區(qū)分大小寫）——準(zhǔn)確地說是：字符變量C的第一個字符是字母C

>=

"A"

And

C

<=

"Z"

Or

C

>=

"a"

And

C

<

"z"或 UCase(C)

>=

"A"

And

UCase(C)

<=

"Z"或 LCase(C)

>=

"a"

And

LCase(C)

<=

"z"字符變量S第5個字符起取6個字符 Mid(S,

5,

6)10≤x＜20 10

<=

x

And

x

<

20x，y至少有一個小于z x

<

z

Or

y

<

z(11)x，y都大于z x

>

z

And

y

>

z6．Shell函數(shù)調(diào)用i=Shell("mspaint.exe",1) "啟動畫圖i=Shell("C:\Program

Files\MicrosoftOffice\OFFICE11\winword.exe",1) "啟動WordVB

數(shù)據(jù)類型數(shù)據(jù)類型符integer%短整型long&長整型single!單精度浮點型double#雙精度浮點型currency@貨幣型string$字符型Boolean布爾型（邏輯性）Data時間型Byte字節(jié)型Currency貨幣型Variant變體變量習(xí)題四第1，3，5，8題答案在教材中找。2.賦值語句的錯誤（1）10x不能做變量名。上機驗證結(jié)果：VB將10識別為行號，x=Sin(x)+y是為變量x賦值。故無語法錯誤。（2）Sqr函數(shù)的參數(shù)為負(fù)數(shù)。上機驗證結(jié)果：“無效的過程調(diào)用或參數(shù)”（3）賦值號左邊不是變量名。上機驗證結(jié)果：“缺少子程序、函數(shù)或?qū)傩浴保?）除數(shù)為0上機驗證結(jié)果：“溢出”。

6．指出錯誤“≥”應(yīng)改為“>=”，前者是中文字符，不具有運算功能。“10<x<20”應(yīng)改為“10<x

And

x<20”，否則運行結(jié)果錯誤。7．寫條件語句（1）Dim

c

As

Stringc

=

InputBox("c=")If

Mid(c,

3,

1)

=

"C"

ThenMsgBox

"Yes"ElseMsgBox

"No"End

If（2）#使用If語句x

=

Val(InputBox("x="))If

x

>

20

Theny

=

x

^

2

+

3

*

x

+

2ElseIf

x

>=

10

Theny

=

Sqr(3

*

x)

-

2ElseIf

x

>

0

Theny

=

1

/

x

+

Abs(x)End

IfPrint

"y=";

y#

使用Select

Case語句Dim

x

As

Single,

y

AsSingleDim

x

As

Single,

y

As

Singlexex

=

Val(InputBox("x="))Select

Case

xCase

Is

>

20y

=

x

^

2

+

3 * x

+2Case

Is

>=

10y

=

Sqr(3 * x)

-

2Case

Is

>

0y

=

1

/

x

+

Abs(x)End

SelectPrint

"y=";

y（3）#使用If語句Dim

x

As

Single,

y

AsSingleDim

z

As

Single,Dim

Max

As

Singlex

=

Val(InputBox("x="))y

=

Val(InputBox("y="))z

=

Val(InputBox("z="))Max

=

xIf

y

>

Max

Then

Max

=

yIf

z

>

Max

Then

Max

=

zPrint

"Max=";

Max#

使用IIF函數(shù)x

=

Val(InputBox("x="))y

=

Val(InputBox("y="))z

=

Val(InputBox("z="))Max

=

IIf(x

>

y,

x,y)Max

=

IIf(z

>

Max,z,

MaxPrint

"Max=";

Max計算循環(huán)次數(shù)（1）

6

（2）19

（3）0

（4）死循環(huán)直至溢出40號語句執(zhí)行

4次；第50

號語句執(zhí)行12次；執(zhí)行第90號語句輸出的結(jié)果是：

13，0，2說明：該程序為嵌套循環(huán)，其中外循環(huán)由j值變化（1，4，7，10）控制執(zhí)行4次，當(dāng)j值為13時結(jié)束循環(huán)；內(nèi)循環(huán)由k值變化（6，4，2）控制執(zhí)行3次，當(dāng)k值為0時結(jié)束循環(huán)。第40行是外循環(huán)的循環(huán)體，故執(zhí)行4次；第50行是內(nèi)循環(huán)的循環(huán)體，故執(zhí)行4*3=12次?？梢远ㄒ粋€較大的循環(huán)次數(shù)，在循環(huán)體中根據(jù)條件用Exit

For退出。但這種情況通常用Do

While循環(huán)控制。編程（并非唯一正確答案）（1）Dim

i

As

Integer,

s

As

IntegerFor

i

=

1

To

10s

=

s

+

(i

+

1)

*

(2

*

i

+

1)Next

iPrint

"s=";

s（2）Dim

i

As

Integer,

n3

As

Integer,

n7

As

IntegeFor

i

=

1

To

100If

i

Mod

3

=

0

Then

n3

=

n3

+

1If

Int(i

/

7)

=

i

/

7

Then

n7

=

n7

+

1Next

iPrint"1-100中3的倍數(shù)有";n3;"個"

Print"1-100中7的倍數(shù)有";n7;"個"（3）Dim

s1

As

String,

s2

As

String,

i