VB企業(yè)管理培訓(xùn)資料課件

Presentedbych.wu(ENG)

VisualBasictrainingPresentedbych.wu(ENG)

VisuaVisualBasic6.0

的集成開發(fā)環(huán)境VisualBasic6.0

的集成開發(fā)環(huán)境主界面INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION菜單欄工具欄代碼窗口工具箱窗體窗口立即窗口監(jiān)視窗口工程窗口屬性窗口布局窗口主界面INTRODUCTION|AGENDA|一、工具箱(ToolBox)窗口INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION工具箱提供一組工具，用于設(shè)計時在窗體中放置控件生成應(yīng)用程序的用戶接口。系統(tǒng)啟動后缺省的General工具箱就會出現(xiàn)在屏幕左邊，上面共有21個常用“部件”一、工具箱(ToolBox)窗口INTRODUCTION一、工具箱(ToolBox)窗口INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.對象的建立。2.對象屬性一、工具箱(ToolBox)窗口INTRODUCTION一、工具箱(ToolBox)窗口INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.事件（Event）及事件過程（EventProcedure）。事件—可被對象識別的動作。事件過程—是指附在該對象上的程序代碼，是事件觸發(fā)后處理的程序。例如：

PrivateSubcmdHide_Click() CmdHide.Visible=False Form1.print"VB程序設(shè)計"EndSub4.方法（Method）在對象上可操作的過程，是VB系統(tǒng)提供的一種特殊的過程和函數(shù)—方法。方法是面向?qū)ο蟮?，所以對象的方法調(diào)用一般要指明對象。一、工具箱(ToolBox)窗口INTRODUCTIONINTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION二、窗體的常用屬性、方法和事件窗體屬性決定了窗體的外觀與操作。窗體外觀如下圖

INTRODUCTION|AGENDA|TO二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（一）基本屬性1.Name名稱屬性（任何對象都具有的）

創(chuàng)建的對象名稱,有默認(rèn)的名.在程序中，控件名是作為對象的標(biāo)識而引用，不會顯示在窗體上。2.Height、width、top和left屬性

單位為twip：1twip=1/20點=1/1440英寸=1/567cm

注意：這四個屬性決定窗體（或控件）的大小，在容器中的位置。如右圖。二、窗體的常用屬性、方法和事件INTRODUCTION二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.Caption標(biāo)題屬性：決定出現(xiàn)在窗體的標(biāo)題欄上的文本內(nèi)容，也是當(dāng)窗體被最小化后出現(xiàn)在窗體圖標(biāo)下的文本。如圖2-2中窗體的Caption屬性值是“VB窗體”4.字體Font屬性組

FontName屬性是字符型，決定對象上正文的字體（缺省為宋體）。

FontSize屬性是整型，決定對象上正文的字體大小。

FontBold屬性是邏輯型，決定對象上正文是否是粗體。

FontItalic屬性是邏輯型，決定對象上正文是否是斜體。

FontStrikeThru屬性是邏輯型，決定對象上正文是否加一刪除線。

FontUnderLine屬性是邏輯型，決定對象上正文是否帶下劃線。二、窗體的常用屬性、方法和事件INTRODUCTION|二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION5.Enabled屬性（邏輯值）決定控件是否可操作。

True：允許用戶進(jìn)行操作，并對操作出響應(yīng)（缺省值）。

False：呈暗淡色，禁止用戶進(jìn)行操作。6.Visible屬性（邏輯值）決定控件是否可見

True：運行時控件可見（缺省值）。

False：運行時控件隱藏，用戶看不到，但控件本身是存在的。二、窗體的常用屬性、方法和事件INTRODUCTION|二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION7．BackColor屬性和ForeColor屬性

BackColor屬性用于返回或設(shè)置對象的背景顏色，

ForeColor屬性用于返回或設(shè)置在對象里顯示圖片和文本的前景顏色。它們是十六進(jìn)制長整型數(shù)據(jù)在程序代碼中可用Windows運行環(huán)境的紅-綠-藍(lán)

(RGB)顏色方案，使用調(diào)色板或在代碼中使用

RGB或

QBColor函數(shù)指定標(biāo)準(zhǔn)RGB顏色。例如，將窗體Form1的背景色設(shè)置為紅色，則可使用下面三種情況：

Form1.BackColor=RGB(255,0,0)Form1.BackColor=&HFF&Form1.BackColor=vbRed二、窗體的常用屬性、方法和事件INTRODUCTION|二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（二）常用事件1.Click/DblClick：單擊/雙擊窗體觸發(fā)。

2.Load：窗體被裝入時觸發(fā)的事件。該事件通常用來在啟動應(yīng)用程序時對屬性和變量進(jìn)行初始化。

3.Unload事件卸載窗體時觸發(fā)該事件。

4.Resize事件無論是因為用戶交互，還是通過代碼調(diào)整窗體的大小，都會觸發(fā)一個Resize事件。二、窗體的常用屬性、方法和事件INTRODUCTION|二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION窗體常用的方法有：打印輸出Print、移動Move、清除Cls、顯示Show、隱藏Hide等。方法是面向?qū)ο蠊适褂玫男问?[對象.]方法

1.Print方法

形式:[對象.]Print[{Spc(n)|Tab(n)}][表達(dá)式列表][；|，]

作用:在對象上輸出信息對象：窗體、圖形框或打印機(Pinter),省略對象在窗體上輸出。Spc(n)：插入n個空格，允許重復(fù)使用。Tab(n)

：左端開始右移動n列，允許重復(fù)使用。；(分號)：光標(biāo)定位上一個顯示的字符后。，(逗號)：光標(biāo)定位在下一個打印區(qū)的開始位置處。無；|，：換行。二、窗體的常用屬性、方法和事件INTRODUCTION|二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.在窗體Form1的單擊事件中寫入如下代碼：PrivateSubForm_Click()a=10:b=3.14:c=100Print"a=";a,"b=";bPrint"a=";a,"b=";bPrint"a=";a,"b=";bPrint

‘空一行Print;"a=";a,"b=";bPrint"a=";a,Tab(18);"b=";b

Print"a=";a,Spc(18);"b=";bPrint

Print"a=";a,"b=";bPrintTab(18);“a=”;a,“b=”;b

‘從第18列開始打印輸出PrintSpc(18);"a=";a,"b=";b

EndSub二、窗體的常用屬性、方法和事件INTRODUCTION|二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.Cls方法

形式:[對象.]Cls

作用:清除運行時在窗體或圖形框中顯示的文本或圖形。

注意:不清除在設(shè)計時的文本和圖形。清屏后坐標(biāo)當(dāng)前回到原點。3.Move方法形式:

[對象.]Move左邊距離[，上邊距離[，寬度[，高度]]]

作用:移動窗體或控件，并可改變其大小。

對象：可以是窗體及除時鐘、菜單外的所有控件，省略代表窗體。左邊距離，上邊距離，寬度，高度：數(shù)值表達(dá)式，以twip為單位。如果是窗體對象，則“左邊距”和“上邊距”是以屏幕左邊界和上邊界為準(zhǔn)。其它則是以窗體的左邊和上邊界為準(zhǔn)。二、窗體的常用屬性、方法和事件INTRODUCTION|二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.使用Move方法移動一個窗體。雙擊窗體，窗體移動并定位在屏幕的左上角，同時窗體的長寬也縮小一倍。為了實現(xiàn)這一功能，可以在窗體Forml的“代碼”窗口中輸入下列代碼：PrivateSubForm_DblClick()Form1.Move0,0,Form1.Width/2,Form1.Height/2EndSub二、窗體的常用屬性、方法和事件INTRODUCTION|二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION4.Show(顯示)方法

Show方法用于在屏幕上顯示一個窗體，調(diào)用

Show方法與設(shè)置窗體

Visible屬性為

True具有相同的效果。其調(diào)用格式如下：

窗體名.Show[vbModal|vbModeless]5．Hide(隱藏)方法Hide方法用于使指定的窗體不顯示，但不從內(nèi)存中刪除窗體。其調(diào)用格式為：窗體名.Hide例2.5實現(xiàn)將指定的窗體在屏幕上進(jìn)行顯示或隱藏的切換。為了實現(xiàn)這一功能，可以在窗體Form1的“代碼”窗口中輸入下列代碼：PrivateSubForm_Click()Form1.Hide'隱藏窗體

MsgBox"單擊確定按鈕，使窗體重現(xiàn)屏幕"'顯示信息

Forml.Show'重現(xiàn)窗體EndSub二、窗體的常用屬性、方法和事件INTRODUCTION|三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.命令按鈕CommandButton

接受用戶輸入的命令.輸入命令可以有三種方式:

（1）鼠標(biāo)單擊；（2）按Tab鍵焦點跳轉(zhuǎn)到該按鈕,再按回車鍵；（3）快捷鍵（Alt+有下劃線的字母）1.1屬性

1.1.1基本屬性

Name、Height、Width、Top、Left、Enabled、Visible、Font等與窗體的使用相同。1.1.2常用屬性

（1）Caption:

標(biāo)題屬性——命令按鈕顯示的內(nèi)容，可在某字母前加“&“設(shè)置快捷鍵。例如：&Ok,顯示

Ok三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（2）Default:確認(rèn)屬性（邏輯值），設(shè)置為True時，按Enter鍵相當(dāng)于用鼠標(biāo)器單擊了該按鈕。注意：在一個窗體只能的一個按鈕的Default設(shè)置為Ture（3）Cancel:取消功能屬性（邏輯值），當(dāng)設(shè)置為Ture時，程序運行時按Esc鍵與單擊此命令按鈕的效果相同。注意:在一個窗體只能的一個按鈕的Cancel屬性設(shè)置為Ture（4）Value:

檢查該按鈕是否按下.該屬性在設(shè)計時無效.（5）Picture:

按鈕可顯示圖片文件(.bmp和.Ico)，只有當(dāng)Style屬性值設(shè)為1時有效（6）Style:

確定顯示的形式.0只能顯示文字,1文字、圖形均可。（7）ToolTipText：設(shè)置工具提示，和Picture結(jié)合使用。1.1.3事件

單擊事件Click三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.標(biāo)簽Label

用于顯示文本(輸出)信息，不能作為輸入信息的界面。2.1基本屬性

Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等與窗體的使用相同。

2.2常用屬性（1）Caption屬性Caption屬性用來改變Label控件中顯示的文本。Caption屬性允許文本的長度最多為1024字節(jié)。缺省情況下，當(dāng)文本超過控件寬度時，文本會自動換行，而當(dāng)文本超過控件高度時，超出部分將被裁剪掉。三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（2）

Alignment屬性設(shè)置Caption屬性中文本的對齊方式，共有三種可選值：

0左對齊(LeftJustify)；1右對齊(RightJustify)；

2居中對齊(CenterJustify)。（3）BackStyle屬性該屬性用于確定標(biāo)簽的背景是否透明。有兩種情況可選：值為0時，表示背景透明，標(biāo)簽后的背景和圖形可見；值為1時，表示不透明，標(biāo)簽后的背景和圖形不可見。（4）AutoSize屬性AutoSize屬性確定標(biāo)簽是否會隨標(biāo)題內(nèi)容的多少自動變化。如果值為True，則隨Caption內(nèi)容的大小自動調(diào)整控件本身的大小，且不換行；如果值為False，表示標(biāo)簽的尺寸不能自動調(diào)整，超出尺寸范圍的內(nèi)容不予顯示。三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.3事件標(biāo)簽可響應(yīng)單擊（Click)和雙擊（DblClick）事件，但一般情況不對它進(jìn)行編程三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.

文本框TextBox

是一個文本編輯區(qū)域，可在該區(qū)域輸入，編輯和顯示正文內(nèi)容。3.1基本屬性

Name、Height、Width、Top、Left、Enabled、Visible、Font，F(xiàn)oreColor、BackColor等與標(biāo)簽控件相同。

3.2常用屬性（1）.Text文本屬性在文本框中顯示的正文內(nèi)容存放在Text屬性中。當(dāng)程序運行時，用戶通過鍵盤輸入正文內(nèi)容，保存在Text屬性中。

文本框沒有Caption屬性三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（2）Maxlength：設(shè)置正文的最多字符個數(shù),

0任意長度值。（3）MultiLine：是否為多行,默認(rèn)一行.False（4）ScrollBars：

當(dāng)MultiLine為True時,該屬性才有效,滾動條的形式。

0-None:無滾動條、1-Horizontal:水平滾動條、

2-Vertical:垂直滾動條、3-Both:水平和垂直滾動條。（5）Locked：是否可被編輯屬性，F(xiàn)alse，表示為可編輯。（6）PassWordChar屬性設(shè)置PasswordChar屬性為了掩蓋文本框中輸入的字符。該屬性的設(shè)置只有在MultiLine設(shè)為

False才有效三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（7）SelStart、SelLength和SelText屬性這三個屬性是文本框中對文本的編輯屬性。

SelStart：確定在文本框選中文本的起始位置。第一字符的位置為0。若沒有選擇文本，則用于返回或設(shè)置文本的插入點位置，如果SelStart的值大于文本的長度，則SelStart取當(dāng)前文本的長度：

SelLength：設(shè)置或返回文本框中選定的文本字符串長度（字符個數(shù)）。

SelText：設(shè)置或返回當(dāng)前選定文本中的文本字符串。三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.3常用事件

Change：當(dāng)改變文本框的Text屬性時會引發(fā)該事件。當(dāng)用輸入一個字符，就會觸發(fā)一次Change事件。

KeyPress(KeyAsciiAsInteger)：當(dāng)用戶按下并釋放鍵盤上一個ANSI鍵時，就會觸發(fā)一次該事件，并返回一個KeyAscii參數(shù)（字符的Ascii值）到該事件過程中。例如：輸入“A”，則KeyAscii的值是65?？捎煤瘮?shù)Chr$(KeyAscii)可得到字符“A”。

LostFocus：當(dāng)控件失去焦點時發(fā)生。

GotFocus：當(dāng)控件獲得焦點時發(fā)生。三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.4常用方法

文本框最有用的方法是：SetFocus，使用形式：

[對象.]SetFocus

功能：是把光標(biāo)移到指定的文本框?qū)ο笾?。三、命令按鈕、標(biāo)簽、文本框INTRODUCTION|四、數(shù)據(jù)類型和運算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.標(biāo)準(zhǔn)數(shù)據(jù)類型四、數(shù)據(jù)類型和運算INTRODUCTION|AGEN四、數(shù)據(jù)類型和運算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.常量和變量2.1常量在程序運行過程中，其值不能被改變的量稱為常量。有三類常量：普通常量符號常量系統(tǒng)常量。2.1.1普通常量整型常量（1）整型（Integer）：表示-32768至32767之間的整數(shù)（2）長整型（Long）：表示-2,147,483,648至2,147,483,647之間的整數(shù)例如：長整型常數(shù)的書寫：23&

四、數(shù)據(jù)類型和運算INTRODUCTION|AGEN四、數(shù)據(jù)類型和運算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION實數(shù)單精度實型（Single）：有效數(shù)為7位表示-3.37E+38至3.37E+38之間的實數(shù)雙精度實型（Double）：有效數(shù)為15位常量的表示：十進(jìn)制小數(shù)形式。它是由正負(fù)號（+，-）、數(shù)字（0~9）和小數(shù)點（.）或類型符號（！、#）組成，即±n.n，±n！或±n#，其中n是0~9的數(shù)字。例如0.123、.123、123.0、123！、123#等都是十進(jìn)制小數(shù)形式。指數(shù)形式：±nE±m(xù)或

±n.nE±m(xù),±nD±m(xù)或

±n.nD±m(xù)

例：1.25E+3和

1.25D+3相當(dāng)于1250.0或者1.25×103。四、數(shù)據(jù)類型和運算INTRODUCTION|AGEN四、數(shù)據(jù)類型和運算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION字符串常量在VB中字符串常量是用雙引號“"”括起的一串字符，例如"ABC"，"abcdefg"，"123"，"0"，"VB程序設(shè)計"等。說明：（1）字符串中的字符可以是所有西文字符和漢字、標(biāo)點符號等；（2）""表示空字符串，而""表示有一個空格的字符串；（3）若字符串中有雙引號，例如ABD"XYZ，則用連續(xù)兩個雙引號表示，即：

"ABD""XYZ“邏輯（Boolean）數(shù)據(jù)類型只有兩個值True，或False。將邏輯數(shù)據(jù)轉(zhuǎn)換成整型時：True為-1，F(xiàn)alse為0；其它數(shù)據(jù)轉(zhuǎn)換成邏輯數(shù)據(jù)時：非0為True,0為False。四、數(shù)據(jù)類型和運算INTRODUCTION|AGEN四、數(shù)據(jù)類型和運算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION日期常量

日期（Date）型數(shù)據(jù)按8字節(jié)的浮點數(shù)來存儲，表示日期范圍從公元100年1月1日~9999年12月31日，而時間范圍從0:00:00~23:59:59。一種在字面上可被認(rèn)作日期和時間的字符，只要用號碼符“#”括起來，都可以作為日期型數(shù)值常量。例：#09/02/99#、#January4,1989#，#2002-5-414:30:00PM#都是合法的日期型常量。說明：當(dāng)以數(shù)值表示日期數(shù)據(jù)時，整數(shù)部分代表日期，而小數(shù)部分代表時間；例如1表示1899年12月31日。大于1的整數(shù)表示該日期以后的日期，0和小于0的整數(shù)表示該日期以前的日期。四、數(shù)據(jù)類型和運算INTRODUCTION|AGEN四、數(shù)據(jù)類型和運算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.2變量聲明2.2.1用Dim語句顯式聲明變量形式：Dim變量名[AS類型]Dim變量名[類型符]

例：DimiCountAsinteger,sumAssingle

等價于DimiCount%,sum!2.2.2隱式聲明

VisualBasic允許用戶在編寫應(yīng)用程序時，不聲明變量而直接使用，系統(tǒng)臨時為新變量分配存儲空間并使用，這就是隱式聲明。所有隱式聲明的變量都是Variant數(shù)據(jù)類型。VisualBasic根據(jù)程序中賦予變量的值來自動調(diào)整變量的類型。四、數(shù)據(jù)類型和運算INTRODUCTION|AGEN四、數(shù)據(jù)類型和運算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.2.3強制顯式聲明——OptionExplicit語句良好的編程習(xí)慣都應(yīng)該是“先聲明變量，后使用變量”，這樣做可以提高程序的效率，同時也使程序易于調(diào)試。VisualBasic中可以強制顯式聲明，可以在窗體模塊、標(biāo)準(zhǔn)模塊和類模塊的通用聲明段中加入語句：OptionExplicit四、數(shù)據(jù)類型和運算INTRODUCTION|AGEN四、數(shù)據(jù)類型和運算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.運算符和表達(dá)式四、數(shù)據(jù)類型和運算INTRODUCTION|AGEN四、數(shù)據(jù)類型和運算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION4.關(guān)系運算符與關(guān)系表達(dá)式

關(guān)系運算符都是雙目運算，是用來比較兩個運算量之間的關(guān)系，關(guān)系表達(dá)式的運算結(jié)果為邏輯量。若關(guān)系成立，結(jié)果為True，若關(guān)系不成立，結(jié)果為False。VB中的關(guān)系運算符如下表所示。運算符含義優(yōu)先級實例結(jié)果<小于所有關(guān)系運算優(yōu)先級相同。低于算術(shù)運算的加“+”，減“-”運算，高于邏輯非“Not”運算。15+10<20False<=小于或等于10<=20True>大于10>20False>=大于或等于"This">="That"True=等于"This"="That"False<>不等于"This"<>"That"TrueLike字符串匹配"This"Like"*is"TrueIs對象比較

四、數(shù)據(jù)類型和運算INTRODUCTION|AGEN四、數(shù)據(jù)類型和運算INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION5.邏輯運算符與邏輯表達(dá)式

Not邏輯非為單目運算符（要求一個操作數(shù)），其它為雙目運算符。條件表達(dá)式1And條件表達(dá)式2條件表達(dá)式均為T結(jié)果為T

條件表達(dá)式1Or條件表達(dá)式2條件表達(dá)式有一個T結(jié)果為T四、數(shù)據(jù)類型和運算INTRODUCTION|AGEN五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.選擇結(jié)構(gòu)

1.1If…Then語句(單分支結(jié)構(gòu))

If<表達(dá)式>Then

語句塊

EndIf

或

If<表達(dá)式>Then<語句>

例:已知兩個數(shù)x和y，比較它們的大小，使得x大于y.

Ifx<yThent=x:x=y:y=tEndIf

或Ifx<yThent=x:x=y:y=t五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.2.If…Then…Else語句(雙分支結(jié)構(gòu))

If<表達(dá)式>Then<語句塊1>Else<語句塊2>EndIf

If<表達(dá)式>Then<語句1>Else<語句2>

例如：輸出x,y兩個中值較大的一個值。IFX>YThenPrintXElsePrintYEndIf也可以寫成如下的單行形式：

IFX>YThenPrintXElsePrintY五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.3.If…Then…ElseIf語句(多分支結(jié)構(gòu))

形式:

If<表達(dá)式1>Then <語句塊1> ElseIf<表達(dá)式2>Then <語句塊2> … [Else

語句塊n+1] EndIf五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION

例.輸入一學(xué)生成績，評定其等級。方法是：90~100分為“優(yōu)秀”，80~89分為“良好”，70~79分為“中等”，60~69分為“及格”，60分以為“不合格”使用IF語句實現(xiàn)的程序段如下：Ifx>=90thenPrint"優(yōu)秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIf五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.4.SelectCase語句（情況語句）形式：

SelectCase變量或表達(dá)式

Case表達(dá)式列表1

語句塊1 Case表達(dá)式列表2

語句塊2 … [CaseElse

語句塊n+1] EndSelect五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

將上例使用selectcase…..語句來實現(xiàn)的程序段如下：SelectCasexCase90to100Print"優(yōu)秀"Case80to89Print"良好"Case70to79Print"中等"Case60to69Print"及格"CaseElsePrint"不及格"EndSelect五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.循環(huán)結(jié)構(gòu)2.1For循環(huán)語句(一般用于循環(huán)次數(shù)已知)形式

For循環(huán)變量＝初值to終值[Step步長]

語句塊

[ExitFor]

語句塊

Next循環(huán)變量

>0初值<終值=1時,可省略<0初值>終值=0死循環(huán)步長五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

編程計算：S=1+2+3+…+100DimS%,I%S=0'累加前變量S為0ForI=1to100S=S+INextIPrint"S=",S五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION形式1：（當(dāng)型循環(huán)）

Do{While|Until}<條件>

語句塊

[ExitDo]

語句塊

Loop2.2Do…Loop循環(huán)語句五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION形式2：(直到循環(huán)）

Do

語句塊

[ExitDo]

語句塊

Loop{While|Until}<條件>五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION

DoUntil…Loop執(zhí)行過程Do…LoopUntil執(zhí)行過程條件語句塊語句塊TFExitDo條件語句塊語句塊TFExitDo五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION2.3While…Wend語句使用格式如下：While<條件><循環(huán)塊>Wend

說明：該語句的功能與DoWhile<條件>….Loop實現(xiàn)的循環(huán)完全相同。五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

求兩個整數(shù)的最大公約數(shù)、最小公倍數(shù)Dimn%,m%,nm%,r%m=Val(InputBox("m="))n=Val(InputBox("n="))nm=n*mIfm<nThent=m:m=n:n=tr=mmodnDoWhile(r<>0)m=nn=rr=mmodnLoopPrint"最大公約數(shù)=",nPrint"最小公倍數(shù)=",nm/n算法使用轉(zhuǎn)碾除法，流程圖如右，實現(xiàn)的程序代碼如下：五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

打印九九乘法表.

Fori=1To9Forj=1To9se=i&"×"&j&"="&i*jPicture1.PrintTab((j-1)*9+1);se;NextjPicture1.PrintNexti五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.End語句

形式：End

功能：結(jié)束一個程序的運行。在VisualBasic中還有多種形式的End語句，用于結(jié)束一個程序塊或過程。其形式有：

EndIfEndSelectEndTypeEndWithEndSubEndFunction等它們與對應(yīng)的語句配對使用。

五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION4.暫停語句

Stop語句用來暫停程序的執(zhí)行，相當(dāng)于在事件代碼中設(shè)置斷點。語法格式為：

Stop說明：1.Stop語句的主要作用是把解釋程序置為中斷(Break)模式，以便對程序進(jìn)行檢查和調(diào)試?？梢栽诔绦虻娜魏蔚胤椒胖肧top語句，當(dāng)執(zhí)行Stop語句時，系統(tǒng)將自動打開立即窗口。2.與End語句不同。五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION5.With...EndWith語句形式：

With對象名語句塊

EndWith

說明：With語句可以對某個對象執(zhí)行一系列的語句，而不用重復(fù)指出對象的名稱。例如，要改變一個對象的多個屬性，可以在With控制結(jié)構(gòu)中加上屬性的賦值語句，這時候只是引用對象一次而不是在每個屬性賦值時都要引用它。下面的例子顯示了如何使用With語句來給同一個對象的幾個屬性賦值。五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

需要對同一對象設(shè)置幾個屬性。途徑之一是使用多條語句。PrivateSubForm_Load()Command1.Caption="退出(E&xit)"Command1.Top=500Command1.Left=4500Command1.Enabled=TrueEndSub使用With...EndWith語句，上面程序的代碼如下。PrivateSubForm_Load()WithCommand1.Caption="OK".Top=500.Left=4500.Enabled=TrueEndWithEndSub五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION6.Exit語句

Exit語句用于退出Do...Loop、For...Next、Function或Sub代碼塊。對應(yīng)的使用格式為：ExitDo、ExitFor、ExitFunction、ExitSub。分別表示退出DO循環(huán)、For循環(huán)、函數(shù)過程、子過程。例如：下面的例子是使用

Exit語句退出

For...Next循環(huán)、Do...Loop循環(huán)及子過程。五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.下面的例子是使用

Exit語句退出

For...Next循環(huán)、Do...Loop循環(huán)及子過程。PrivateSubForm_Click()DimI%,Num%Do'建立無窮循環(huán)。

ForI=1To100'循環(huán)100次。

Num=Int(Rnd*100)'生成一個0~99的隨機數(shù)。

SelectCaseNumCase10:ExitFor'退出For...Next循環(huán)。

Case50:ExitDo'退出Do...Loop循環(huán)。

Case64:ExitSub'退出子過程。

EndSelectNextILoopEndSub五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION例.

判斷一個給定的整數(shù)是否為素數(shù)。算法思路：素數(shù)指除了能被1和自身外，不能被其他整數(shù)整除的自然數(shù)。判斷整數(shù)N是不是素數(shù)的基本方法是：將N分別除以2，3，…，N-1，若都不能整除，則N為素數(shù)。因為N=Sqr(N)*Sqr(N)，所以，當(dāng)N能被大于等于Sqr(N)的整數(shù)整除時，一定存在一個小于等于Sqr(N)的整數(shù)，使N能被它整除，因此只要判斷N能否被2，3，…，Sqr(N)整除即可。算法流程圖如下：五、語句和語法INTRODUCTION|AGENDA五、語句和語法INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSIONDimN%,I%,K%N=Val(InputBox("N=？"))K=Int(Sqr(N))ForI=2ToKIfNModI=0ThenExitForNextIIfI>KThenPrintN;"是素數(shù)"ElsePrintN;"不是素數(shù)"EndIf五、語句和語法INTRODUCTION|AGENDAThankyouforyourattention.Thankyouforyourattention.演講完畢，謝謝觀看！演講完畢，謝謝觀看！Presentedbych.wu(ENG)

VisualBasictrainingPresentedbych.wu(ENG)

VisuaVisualBasic6.0

的集成開發(fā)環(huán)境VisualBasic6.0

的集成開發(fā)環(huán)境主界面INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION菜單欄工具欄代碼窗口工具箱窗體窗口立即窗口監(jiān)視窗口工程窗口屬性窗口布局窗口主界面INTRODUCTION|AGENDA|一、工具箱(ToolBox)窗口INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION工具箱提供一組工具，用于設(shè)計時在窗體中放置控件生成應(yīng)用程序的用戶接口。系統(tǒng)啟動后缺省的General工具箱就會出現(xiàn)在屏幕左邊，上面共有21個常用“部件”一、工具箱(ToolBox)窗口INTRODUCTION一、工具箱(ToolBox)窗口INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION1.對象的建立。2.對象屬性一、工具箱(ToolBox)窗口INTRODUCTION一、工具箱(ToolBox)窗口INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.事件（Event）及事件過程（EventProcedure）。事件—可被對象識別的動作。事件過程—是指附在該對象上的程序代碼，是事件觸發(fā)后處理的程序。例如：

PrivateSubcmdHide_Click() CmdHide.Visible=False Form1.print"VB程序設(shè)計"EndSub4.方法（Method）在對象上可操作的過程，是VB系統(tǒng)提供的一種特殊的過程和函數(shù)—方法。方法是面向?qū)ο蟮?，所以對象的方法調(diào)用一般要指明對象。一、工具箱(ToolBox)窗口INTRODUCTIONINTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION二、窗體的常用屬性、方法和事件窗體屬性決定了窗體的外觀與操作。窗體外觀如下圖

INTRODUCTION|AGENDA|TO二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION（一）基本屬性1.Name名稱屬性（任何對象都具有的）

創(chuàng)建的對象名稱,有默認(rèn)的名.在程序中，控件名是作為對象的標(biāo)識而引用，不會顯示在窗體上。2.Height、width、top和left屬性

單位為twip：1twip=1/20點=1/1440英寸=1/567cm

注意：這四個屬性決定窗體（或控件）的大小，在容器中的位置。如右圖。二、窗體的常用屬性、方法和事件INTRODUCTION二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION3.Caption標(biāo)題屬性：決定出現(xiàn)在窗體的標(biāo)題欄上的文本內(nèi)容，也是當(dāng)窗體被最小化后出現(xiàn)在窗體圖標(biāo)下的文本。如圖2-2中窗體的Caption屬性值是“VB窗體”4.字體Font屬性組

FontName屬性是字符型，決定對象上正文的字體（缺省為宋體）。

FontSize屬性是整型，決定對象上正文的字體大小。

FontBold屬性是邏輯型，決定對象上正文是否是粗體。

FontItalic屬性是邏輯型，決定對象上正文是否是斜體。

FontStrikeThru屬性是邏輯型，決定對象上正文是否加一刪除線。

FontUnderLine屬性是邏輯型，決定對象上正文是否帶下劃線。二、窗體的常用屬性、方法和事件INTRODUCTION|二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION5.Enabled屬性（邏輯值）決定控件是否可操作。

True：允許用戶進(jìn)行操作，并對操作出響應(yīng)（缺省值）。

False：呈暗淡色，禁止用戶進(jìn)行操作。6.Visible屬性（邏輯值）決定控件是否可見

True：運行時控件可見（缺省值）。

False：運行時控件隱藏，用戶看不到，但控件本身是存在的。二、窗體的常用屬性、方法和事件INTRODUCTION|二、窗體的常用屬性、方法和事件INTRODUCTION|AGENDA|TOPIC1|TOPIC2|TOPIC3|TOPIC4|TOPIC5|TOPIC6|TOPIC7|CONCLUSION7．BackColor屬性和ForeColor屬性

BackColor屬性用于返回或設(shè)置對象的背景顏色，

ForeColor屬性用于返回或設(shè)置在對象里顯示圖片和文本的前景顏色。它們是十六進(jìn)制長整型數(shù)據(jù)在程序代碼中可用Windows運行環(huán)境的紅-綠-藍(lán)

(RGB)顏色方案，使用調(diào)色板或在代碼中使用

RGB或

QBColor函數(shù)指定標(biāo)準(zhǔn)RGB顏色。例如，將窗體Form1的背景色設(shè)置為紅色，則可使用下面三種情況：

Form1.BackColor=RGB(255,0,0)Form1.BackColor=&HFF&