VB程序設計課件

VisualBasic程式設計概述1.1Vb功能特點1.2可視化編程的概念1.3面向對象的有關概念1.4Vb集成開發(fā)環(huán)境1.5Vb程式設計的一般步驟第一節(jié)Vb功能特點

面向對象的可視化的程式設計方法事件驅動的程式設計機制簡單易學的程式設計語言互動式的集成開發(fā)環(huán)境第二節(jié)可視化編程的概念

傳統(tǒng)的程式設計方法針對用戶介面設計程式代碼可是化編程的優(yōu)點第三節(jié)面向對象的有關概念對象的概念是表示現(xiàn)實世界中某個具體的事物，或者對象是具有特殊屬性（數(shù)據(jù)）和行為方式（方法）的實體，建立一個對象後，其操作通過與該對象有關的屬性、事件和方法來描述。對象的建立和編輯

建立：①單擊工具箱裏相應對象的圖示，然後在窗體上拖動②雙擊工具箱裏相應對象的圖示

選定：單擊選定一個；Ctrl＋單擊選定多個不連續(xù)；Shift＋單擊選定多個連續(xù)刪除：選定按Del鍵對象的屬性、事件和方法屬性：一個對象的特徵?？稍谠O計階段利用屬性窗口直接設置對象的屬性，也可在程式代碼中利用語句實現(xiàn)，格式：對象名.屬性名＝屬性值

事件：由VB預先設置好的、能被對象識別的動作。如：Click（單擊）、Change（改變）等。

事件過程：對象的事件發(fā)生後，應用程式處理這個事件所執(zhí)行的一段代碼。一般格式如下：

PrivateSub對象名_事件名([參數(shù)列表])……

EndSub方法系統(tǒng)提供，用戶可以直接調用。一般格式如下：

[對象.]方法名[參數(shù)列表]第四節(jié)Vb集成開發(fā)環(huán)境VB6.0的安裝添加或刪除VB6.0組件VB6.0的啟動方法VB6.0集成開發(fā)環(huán)境1）主窗口 2）窗體窗口3）屬性窗口 4）工程資源管理器窗口5）代碼窗口 6）窗體佈局窗口7）立即窗口 8）工具箱窗口第五節(jié)Vb程式設計的一般步驟VB應用程式開發(fā)的全過程（1）介面設計（2）編寫代碼（3）保存和運行（4）編譯與打包（5）安裝運行VB應用程式開發(fā)的主要步驟開發(fā)一個VB應用程式一般有以下三個主要步驟：（1）設計應用程式介面（2）設置對象屬性（3）編寫程式代碼第二章窗體與基本控件

涉及內容：2.1窗體2.2基本控件以及控件的格式化2.3基本控件的格式化2.4簡單語句一窗體1.窗體常用屬性

Name對象的名稱指定窗體的名稱，在程式代碼中用這個名稱引用該窗體。第一個窗體的名稱缺省值為form1，通常要給name屬性設置一個有實際意義的名稱，便於識別。

Caption對象的標題設置窗體標題欄顯示的文本。

Height對象的高度Width對象的寬度設置窗體的高度和寬度。單位為Twip。1Twip=1/20點＝1/1440英寸＝1/567cmEnabled對象的啟動或禁止用來設置窗體是否回應滑鼠或鍵盤事件。缺省時為True，窗體能夠對用戶產(chǎn)生的事件作出反映。Visible對象的可見性設置窗體是否顯示。True（窗體可見），F(xiàn)alse（運行時，窗體及其上面的對象都將被隱藏）Top對象的頂邊距離Left對象的左邊距離Backcolor設置窗體的背景顏色；Forecolor設置窗體的前景顏色。Font設置窗體上字體的樣式，大小，字形等。Picture設置在窗體中顯示的圖片。

注意：要在程式中設置該屬性的值，需要使用LoadPicture函數(shù)。WindowStare屬性設置窗體運行時的大小狀態(tài)。有三個可選值：0－Normal窗體大小由Height和Width屬性決定，此值為缺省值；1－Minimized窗體最小化成圖示；2－Maximized窗體最大化，充滿整個螢幕。2.窗體事件和方法事件Click（單擊）事件：單擊滑鼠左鍵時觸發(fā)

DblClick（雙擊）事件：雙擊窗體時觸發(fā)

Load（裝入）事件：窗體被裝入工作區(qū)時觸發(fā)方法

Print

格式：[對象名.]Print[運算式列表][;|,]功能：在對象上輸出資訊例如：Form1.Print“VB”;”程式設計”

Cls

格式：[對象名.]Cls

功能：清除運行時用Print方法在窗體或圖片框種顯示的文本或圖形例如：Picture1.Cls

Move

格式：[對象名.]Move左邊距離[,上邊距離[,寬度[,高度]]]功能：移動窗體或控件，並可改變其大小例如：Text1.Move800,800,4000,3000

相關例子下載

二基本控件以及控件的格式化1.命令按鈕常用屬性:Enabled屬性：描述控件是否可用。

false:不可獲得焦點

true：可以獲得焦點，能觸發(fā)滑鼠事件Visable屬性：描述控件是否可見。

false:不可見，即隱藏（命令按鈕）

true：可見Default屬性和Cancel屬性

default屬性為true,則該按鈕為默認按鈕，回車操作相當於單擊此按鈕

cancel屬性為true,則該按鈕為默認的取消按鈕，按ese相當於單擊此按鈕Style屬性用來設置命令按鈕的顯示類型。其屬性可設置為：0－Standard：標準的，命令按鈕上不能顯示圖形和背景色，此為缺省值。1－Graphical：圖形的，可顯示圖形和背景色。Picture屬性設置命令按鈕中要顯示的圖形。只有將Style屬性設置為1，圖形才能在按鈕上顯示。ToolTipText設置滑鼠在命令按鈕上停留的提示文本資訊。事件：

命令按鈕常用事件是Click（單擊）事件。即程式運行後，單擊滑鼠按鈕時所觸發(fā)的事件。2.標籤（Label）.作用：固定位置顯示文本，僅用於顯示

現(xiàn)有如下程式：用於顯示輸入的姓名、性別、年齡等內容的清空，點擊顯示按鈕則在最下麵的文本框中顯示輸入的內容，點擊退出按鈕退出程式）

PrivateSubForm_Load()Label4.Caption=''EndSubPrivateSubCommand1_Click()Text1.Text="“,Text2.Text=""Text3.Text=""EndSubPrivateSubCommand2_Click()Label4.Caption=Label4.Caption+Label1.Caption&Text1.Text&Label2.Caption&Text2.Text&Label3.Caption&Text3.TextEndSubPrivateSubCommand3_Click()EndEndSub

標籤常用屬性

alignment:文本對齊方式0：代表左對齊1：右對齊2：居中

name：標籤的名字，用來標識一個標籤

caption：標籤中顯示出來的文字，注意與name屬性的區(qū)別。

forecolor:標籤的前景色，即文字的顏色

backcolor：標籤的背景色

backstyle：標籤的背景模式

0：不覆蓋原背景(透明)1：覆蓋原背景

top：標籤左頂點的Y座標

left：標籤的左頂點的X座標

width：標籤的寬度

height:標籤的高度

font：標籤的字體

enabled：標籤是否可用。值為true或falsevisible：標籤是否可見。值為true或false

常用事件a.change事件：當標籤的內容更改時觸發(fā),即在程式中更改標籤的內容時。

b.click事件：單擊事件，點擊標籤觸發(fā)該事件

c.dbclick事件：雙擊事件，雙擊標籤時觸發(fā)該事件標籤的其他用法標籤除了直接在設計階段設置之外，也常常在運行階段用程式的方式來顯示時間。time$是一個與時間有關的函數(shù)，由於它的返回值是字串，因此可以把它賦值給標籤的標題，這樣就可以用標籤來顯示時間，例如：label1.caption=time$

當要在標籤中同時顯示２行以上的字串，就一定要靠程式，在字串之間加上chr$(13)+chr$(10)控制碼。例如：label1.caption=time$+chr$(13)+chr$(10)+date$3.文本框用於輸入、編輯文本或用於輸出、顯示文本，文本框最多可容納的字元為2048個。但如果Multline＝True，則輸入的字元數(shù)可達32K。

屬性如下：.multiline=true‘可輸入、顯示多行文本

.scrollbars=3-both‘加滾動條.selstart=數(shù)字‘設置所選文本的起始點.sellength=選定長度

（文本框）

方法.seltext例程：

OptionExplicitPrivateaa,compare:privateaddressAsIntegerPrivateSubCommand1_Click()aa=InputBox("請輸入你要查找的內容","查找")

address=InStr(1,Text1.Text,aa,vbTextCompare)

'前者為在哪個串中搜索，在串1中搜索串2

Ifaddress>0Then

Text1.SetFocus:Text1.SelStart=address–1:Text1.SelLength=Len(aa)

Else

MsgBox"沒有相關內容"

EndIfEndSubPrivateSubForm_Load()Text1.Text=“hfsdfonrklesnflkshdncvoisnhdlfmnsdlfjksdjfsdflksdjflksjdfl"_&"skldflsdjflsjflskdjflksdjcvosdjflskdjflksdjvlkhsndfksdlfjlksadjflk"EndSub事件chang‘當文本框中內容發(fā)生變化時觸發(fā)該事件

keydown,keyup‘按鍵（在顯示出按鍵內容的同時）與提起按鍵時觸發(fā)事件參數(shù)：[indexasinteger,]keycodeasintegert,shiftasinteger）a.index:當控件是控件數(shù)組中的一個元素時，index代表在數(shù)組是索引值，即下標

b.keycode:鍵盤掃描碼?！?3對應回車

c.shift:代表shift,ctrl,alt鍵的狀態(tài)；是一個3位的二進位位域。（111）=>（alt,ctrl,shift）

故shift=6代表：110=>同時按下alt,ctrl兩鍵以上可判定是否只按下某鍵；但是如果需要瞭解是否按下了某鍵，則需要與特定數(shù)進行遮罩Keypress事件：用於截獲在文本框/組合框中輸入的按鍵；Sub控件名_keypress([indexasinteger,]keyasciiasinteger)參數(shù)：（[indexasinteger,]keyasciiasinteger）a.index:當控件是控件數(shù)組中的一個元素時，index代表在數(shù)組是索引值，即下b.keyascii:返回標準的ascii鍵碼可以用chr(keyascii)將ascii轉化為相應的字元；或用=asc(char)將字元轉為ascii碼.（用於判定輸入是否為某字元）注意：keypress事件不是指出所按字元在鍵盤上的物理位置，而是傳送一個字符，故它可以判別大小寫。相反，keyup/keydown能識別的是所按字元在鍵盤上的物理位置，則大小寫字元的keycode碼是一樣的。（若要在keyup/keydown中判別字元的大小寫，需判定是否為shift+該鍵）

例程：檢驗輸入（key_down代碼詳解）PrivateSubCommand1_Click()num=Val(Text_day)Ifnum>31Ornum<1Then

Beep:MsgBox“輸入日期有誤“:Text_day.SetFocus:ExitSub

EndIfnum=Val(Text_month.Text)Ifnum>12Ornum<1Then

Beep:MsgBox“輸入月份有誤“:Text_month.SetFocus:ExitSub

EndIfnum=Val(Text_year.Text)Ifnum>2001Ornum<1900Then

Beep:MsgBox“輸入年份有誤“:Text_year.SetFocus:ExitSub

EndIfEndSubPrivateSubText_day_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48AndKeyAscii<>8OrKeyAscii>57Then

Beep:MsgBox“請輸入數(shù)字“:KeyAscii=0

EndIfEndSub

PrivateSubText_month_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48AndKeyAscii<>8OrKeyAscii>57Then

Beep:MsgBox"請輸入數(shù)字“KeyAscii=0

EndIfEndSubPrivateSubText_passwd_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48AndKeyAscii<>8OrKeyAscii>57Then

Beep:MsgBox"請輸入數(shù)字“:KeyAscii=0

EndIfEndSubPrivateSubText_year_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48AndKeyAscii<>8OrKeyAscii>57Then

Beep:MsgBox"請輸入數(shù)字“:KeyAscii=0

EndIf‘8代表退格符EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenMsgBox“按下了回車符"

If(ShiftAnd2)>1ThenMsgBox“你按下了ctrl鍵"

EndSub三基本控件的格式化1.控件的添加/刪除A:窗體中添加控件（1）在工具箱中單擊所要添加的控件，然後將滑鼠移動到窗體中，此時滑鼠指針變?yōu)槭?，在需要加入控件的地方按住滑鼠左鍵拖動成想要的尺寸，在釋放滑鼠左鍵，就可以看到控件被繪製到窗體上。按住“Ctrl”鍵，可以繪製多個相同控件。（2）單擊將要刪除的控件，再按“Del”即可，誤刪可以使用“Ctrl＋Z”還原。2.調整控件的大小與位置

調整大小方法：用滑鼠單擊需要調整的對象，再控件四周出現(xiàn)8個藍色矩形小方框“尺寸柄”，通過它可以調整。調整位置的方法：A:滑鼠拖動對象B:使用Ctrl＋方向鍵C:Ctrl＋Shift鍵，再用滑鼠移動可以微調控件位置。其中A:和B:兩種方法都只能以網(wǎng)格為單位，也便於多個控件對齊。3.窗體與控件佈局調整控件佈局調整：進行調整之前都必須先選定需要調整的控件。A:通過“格式”菜單進行調整；

B:通過“窗體編輯器”工具欄。窗體佈局調整是指決定程式運行時，窗體在螢幕上出現(xiàn)的位置。利用“窗體佈局窗口”，可以進行調整。具體步驟為：視圖窗體佈局窗口當重新調整“窗體佈局窗口”時，每個窗體都將相當於設計窗口的大小進行調整。客戶區(qū)域的左上角代表桌面座標（0，0）點。

多個控件的選定方法：A:使用Shift鍵配合滑鼠的單擊；B:使用滑鼠在窗體上拖出一方框，在框內的控件將被全部選中。四簡單語句1.Print方法Print是輸出數(shù)據(jù)的一種重要的方法。（1）格式[對象名.]Print[運算式列表]（2）功能在對象上輸出運算式的值。（3）說明A:對象名可以是Form（窗體），Debug（立即窗口），Print（印表機）等。例如：Print”12*2=“;12*2‘在當前窗口上輸出12*2=24Picture1.print“VB”‘在圖片框Picture1上輸出VB；Printer.print“OK”‘在印表機上輸出OKB:運算式列表是一個或多個運算式，若省略此項，則輸出一空行。輸出數(shù)據(jù)時，數(shù)值數(shù)據(jù)的前面有一個符號位，後面有一個空格；而字串前後都沒有空格。相關例子：例1.Print3；4‘用“；”分隔的各項，按緊湊格式顯示；

例2.Print‘輸出空行例3.Print“1234567”；Spc（2）；”abcdef”‘輸出數(shù)據(jù)時，字串前後都沒有空格。例4.PrintTab（2）；”**”；Tab（6）；”**”;Tab(10);”**”;Tab(14);”**”‘Spc(2)使字串間留有兩個空格，Tab函數(shù)，使第2，6，10，14列定位輸出“**”.2.InputBox輸入框此函數(shù)可以生成輸入框來接受用戶的輸入。（1）格式InputBox（提示[，標題][，缺省值][，x座標值][，y座標位置]）（2）功能生成一個能接受用戶輸入的對話框，並返回用戶在對話框中輸入的資訊。（3）例子說明A$=InputBox(“第一項為提示”&vbNewLine$“用vbNewLine實現(xiàn)換行”，“第二項為標題”，“第三項為缺省值”，200，200)第一項“提示”；第二項“標題”；第三項“缺省值”；第四項“x座標位置”；第五項“y座標位置”。3.MsgBox消息框此函數(shù)可生成用戶提示資訊和選擇互動式對話框。（1）格式MsgBox（提示[，按鈕數(shù)值][，標題]）（2）功能MsgBox函數(shù)在對話框中顯示資訊，在用戶單擊對話框上的按鈕時，可返回一個整數(shù)以標明用戶單擊的是那個按鈕。（3）說明第一項“提示”：指定在消息框中出現(xiàn)的文本；第二項“按鈕數(shù)值”：整數(shù)運算式，指定消息框中出現(xiàn)的按鈕和圖示；第三項“標題”：指定消息框的標題。4.Cls語句（1）格式[對象名.]Cls（2）功能清除窗體（Form）或圖片框（PictureBox）中由Print方法顯示的文本和圖形方法所生成的圖形，並把輸出位置移動到對象的左上角。（3）說明格式中的對象可以是窗體或圖片框，如果省略對象名，則清除當前當前窗體的顯示內容。用Cls語句清楚後的區(qū)域以背景色填充，但Picture屬性的背景位圖和放置的控件不受影響。（4）舉例PrivateSubForm1_Click()ClsEndSub5.Rem語句（1）格式‘|Rem<注釋內容>（2）功能實現(xiàn)在代碼中加入用來解釋或說明的附加文本。（3）說明為提高程式的可讀性，通常在程式的適當位置加上必要的注釋。注釋語句是非執(zhí)行語句，不參加編譯，對程式運行無影響。（4）例子Mystr1=“Hello”‘這也是一條注釋，無需使用冒號。6.End語句（1）格式End（2）功能用來結束程式的執(zhí)行，並關閉已打開的檔。（3）說明它提供了一種關閉程式的方法。執(zhí)行它，會卸載程式中所有窗體，釋放所有記憶體。（4）例子PrivateSubCommand4_click（）‘單擊“退出”按鈕End‘結束程式EndSub7.Stop語句（1）格式Stop（2）功能在對程式調試時，用來暫停程式的執(zhí)行。（3）說明一般用在程式調試時，其相當於在程式代碼中設置中斷點。（4）例子PrivateSubCommand5_click（）‘單擊“退出”按鈕MsgBox“在Stop語句前顯示”Stop‘執(zhí)行Stop語句會在此暫停，按F5或F8鍵逐句調試MsgBox“在Stop語句後顯示”EndSub第三章VB程式設計語言基礎一VB中的數(shù)據(jù)與運算二標準函數(shù)三三種基本結構（順序，判定，迴圈）一VB中的數(shù)據(jù)與運算3.1.1數(shù)據(jù)類型3.1.2變數(shù)與常量3.1.3運算符和運算式3.1.4

數(shù)組數(shù)值數(shù)據(jù)類型

(1)Integer型和Long型用來表示整數(shù)。Integer型數(shù)據(jù)占2個位元組，Long型數(shù)據(jù)占4個位元組。除了十進位整型數(shù)，常用的還有八進制和十六進制，它們的表示方法為：

Intger型：八進制數(shù)值前加&O或&。如&O123

十六進制數(shù)值前加&H。如&H123Long型：八進制數(shù)值前加&O或&，最後加&。如&O123&

十六進制數(shù)值前加&H，最後加&。如&H123&(2)Single型和Double型用來表示浮點數(shù)。Single型占4個位元組，Double型占8個位元組。表示一些單精確度型常量和雙精度常量時，可以用以下方法：0.123E5，0.34E-2，0.8D2

3.1.1數(shù)據(jù)類型(3)Currency型為表示錢款而設置。占8個位元組。小數(shù)點左邊最多15位，右邊最多4位。(4)Byte型占1個位元組，表示無符號整數(shù)。字元數(shù)據(jù)類型字元（String）類型存放字元型數(shù)據(jù)。用雙引號括起來，如“abc”。

注：①”“表示空字元串，長度為0。

②若字串中含有雙引號，則用連續(xù)兩個雙引號表示，如”abc””12”。日期數(shù)據(jù)類型日期型（Date）表示日期和時間，占8個位元組。用“?！崩ㄆ饋?，如＃2004-5-4＃等。邏輯數(shù)據(jù)類型

邏輯型（Boolean）表示邏輯判斷，占2個位元組。只有True和Fale兩個值。邏輯型數(shù)據(jù)轉換成整型數(shù)據(jù)時，True轉換為-1，F(xiàn)alse轉換為0。其他類型數(shù)據(jù)轉換成邏輯型數(shù)據(jù)時，非0數(shù)轉換為True，0轉換為False。

對象數(shù)據(jù)類型

對象型（Object）表示圖形、OLE對象或其他對象，占4個位元組。變體數(shù)據(jù)類型變體型（Varient）可存放任何類型的數(shù)據(jù)類型說明符

可在常量或變數(shù)的後邊加上類型說明符指明它是哪一種數(shù)據(jù)類型，常見的類型說明符如下：整型：%長整型：&

單精確度型：!雙精度型：#字串型：$貨幣型：@3.1.2變數(shù)與常量命名規(guī)則

1.名字由字母、漢字、數(shù)字或下劃線組成；2．名字的第一個字元必須是字母或漢字；3．名字的有效長度小於等於255個字元；4．不能使用VB中的關鍵字。5．VB中不區(qū)分變數(shù)名的大小寫。6．為了增加程式的可讀性，可在變數(shù)名前加一個縮寫的首碼來表明該變數(shù)的數(shù)據(jù)類型。

變數(shù)變數(shù)定義的一般格式如下：

Declare變數(shù)名As類型其中，①Declare可以是Dim、Static、Public、ReDim。Dim、Static用於定義局部變數(shù)

Dim用於定義窗體和模組級變數(shù)

Public用於定義全局變數(shù)

ReDim用於重新定義數(shù)組

②類型可以是基本數(shù)據(jù)類型或用戶自定義數(shù)據(jù)類型③若“As類型”省略，默認為變體數(shù)據(jù)類型④可在變數(shù)名後加類型說明符代替“As類型例如：DimxasInteger,yasSingleDimsasString

注：Dim定義的局部變數(shù)是自動變數(shù)，過程結束後其值被重新設置；

Static定義的局部變數(shù)是景泰變數(shù)，過程結束後其值繼續(xù)保留。常量

VB中有三種常量：即直接常量、用戶聲明的符號常量和系統(tǒng)提供的常量。（1）直接常量直接常量其常數(shù)值直接反映了其類型，也可在常數(shù)值後緊跟類型符顯示地說明常數(shù)的數(shù)據(jù)類型。（2）符號常量常量可用由用戶定義的符號常量表示，格式如下：

Const符號常量名[As類型]=運算式[,常量名＝運算式]……例如：ConstPI＝3.1415926（3）系統(tǒng)提供的常量

除了用戶通過聲明創(chuàng)建符號常量外，VB系統(tǒng)還提供了應用程式和控件定義的常量，這些常量位於對象庫中，在“對象流覽器”中的VisualBasic(VB)、VisualBasicforApplications(VBA)等對象庫中列舉了VisualBasic的常量。

3.1.3運算符和運算式運算符

1.算術運算符加：＋減：-乘：*整除：\浮點除：/取模：Mod

負號：-冪運算：^

2.字串運算符“&”和”＋“都是將兩個字串拼接起來。但字串連接時最好用”&”，因為“+”還可以作為算術運算符使用

3.關係運算符對兩個運算式的值做比較，若關係成立，則返回True，否則返回False。

等於=大於>大於等於>=小於<小於等於<=不等於<>或><字串匹配Like對象引用比較Is

4.邏輯運算符取反：Not與：And或：Or

異或：Xor等價：Eqv蘊含：Imp

運算式運算式由變數(shù)、常量、運算符、函數(shù)和圓括號按一定的規(guī)則組成。運算式通過運算後有一個結果，運算結果的類型由數(shù)據(jù)和運算符共同決定。當一個運算式中出現(xiàn)了多種不同類型的運算符時，不同類型的運算符優(yōu)先順序如下：

算術運算符>字元運算符>關係運算符>邏輯運算符

常用內部函數(shù)

VB提供了大量的內部函數(shù)(或稱標準函數(shù))供用戶在編程時調用。內部函數(shù)按其功能可分成數(shù)學函數(shù)、轉換函數(shù)、字串函數(shù)、日期函數(shù)和格式輸出函數(shù)等。

具體內容參見課本。3.1.4數(shù)組1.數(shù)組的概念2.靜態(tài)數(shù)組與動態(tài)數(shù)組3.數(shù)組的清除和重定義4.數(shù)組元素的基本操作5.控件數(shù)組6.自定義數(shù)據(jù)類型1.數(shù)組的概念一、數(shù)組的概念

在實際應用中，經(jīng)常需要處理同一類型的成批數(shù)據(jù)。比如，要處理100個學生的會計這門課程的考試成績，如果在程式中定義100個變數(shù)來表示這批成績，顯然是很麻煩的。我們可以用VB提供的數(shù)組來完成這個功能?？梢杂胏1，c2，…，c100來分別代表每個學生的分數(shù)，也就是說，用一批具有相同名字、不同下標的下標變數(shù)來表示同一屬性的一組數(shù)據(jù)，這樣能更清楚的表示它們之間的關係。在VB中，把一組具有相同名字、不同下標的下標變數(shù)稱為數(shù)組。在電腦中，下標用“（）”括起來。比如c(2)，其中c為數(shù)組名，2是下標。根據(jù)數(shù)組中下標變數(shù)的個數(shù)可以分為一維數(shù)組、二維數(shù)組或多維數(shù)組。二、數(shù)組的聲明定義數(shù)組可以用Dim、Public、Private、Static語句實現(xiàn)。格式（以Dim為例）：Dim<數(shù)組名>（<第一維說明>[，<第二維說明>]……）[As<類型>]例：Dimc(99)asSingleDims(3,4)asstringDimstu(3,6)Dima(2to100)asstring*5Dimb(2to30,5to40)說明：①數(shù)組必須要先定義，後使用②如果不用AS語句指明類型，默認為變體數(shù)據(jù)類型③一般情況下，下標的下界默認為0，如果希望下標從1開始，可以用OptionBase語句設置，格式為OptionBasen,其中n為下標的下界，只能是0或1④可以根據(jù)需要指定數(shù)組下標的下界，格式為Dim數(shù)組名（[下界To]上界[,[下界To]上界]……）⑤在同一個過程中，數(shù)組名不能與變數(shù)名同名⑥在定義數(shù)組時如果指明了類型，那麼數(shù)組中的每個元素都是這種類型的；如果沒有指明或定義成了變體數(shù)據(jù)類型，則其中的每個元素也是變體類型，可以存放各種類型的數(shù)據(jù)。2.靜態(tài)數(shù)組與動態(tài)數(shù)組定義數(shù)組後，為了使用數(shù)組，必須為數(shù)組開闢所需要的記憶體區(qū)。根據(jù)記憶體區(qū)開闢時機的不同，可把數(shù)組分為靜態(tài)數(shù)組和動態(tài)數(shù)組。通常把需要在編譯時開闢記憶體區(qū)的數(shù)組叫做靜態(tài)數(shù)組，把需要在運行時開闢記憶體區(qū)的數(shù)組叫做動態(tài)數(shù)組。一、靜態(tài)數(shù)組靜態(tài)數(shù)組的數(shù)組元素的個數(shù)是在數(shù)組聲明時確定的，系統(tǒng)運行過程中它的個數(shù)不變。前面定義的幾個數(shù)組都是靜態(tài)數(shù)組。我們主要講一下動態(tài)數(shù)組。

二、動態(tài)數(shù)組動態(tài)數(shù)組是在聲明數(shù)組時未給出數(shù)組的大?。ㄊ÷岳ɑ≈械南聵耍?，當要使用它時，隨時用ReDim語句重新指出大小的數(shù)組。使用動態(tài)數(shù)組的優(yōu)點是可根據(jù)用戶需要，有效地利用存儲空間，它是在程式執(zhí)行到ReDim語句時分配存儲空間。建立動態(tài)數(shù)組的方法是，使用Dim、Private或Public語句聲明括弧內為空的數(shù)組，然後在過程中用ReDim語句指明該數(shù)組的大小。形式如下：

ReDim<數(shù)組名>（<下標1>[，<下標2>…]）[As<類型>]例如：

Dims()asinteger‘定義動態(tài)數(shù)組s，括弧不能省略

PrivateSubForm_Click()......n=InputBox("輸入n的值")

m=InputBox("輸入m的值")

n=Val(n)m=vla(m)ReDims(n,m)‘重新指明數(shù)組的大小......

EndSub

在過程中可多次使用ReDim語句來改變數(shù)組的大小，不能改變數(shù)組維數(shù)，也不能改變數(shù)組的類型。每次執(zhí)行ReDim語句時，當前存儲在數(shù)組中的值都會全部丟失。VisualBasic重新將數(shù)組元素的值置為Empty（對Variant數(shù)組）、置為0（對Numeric數(shù)組）、置為零長度字串（對String數(shù)組）。如果希望改變數(shù)組大小又不丟失數(shù)組中的數(shù)據(jù)，可使用具有Preserve關鍵字的ReDim語句就可做到這點。如：Dimthis()AsStringPrivateSubCommand1_Click()ReDimthis(4)this(2)="microsoft"Printthis(2)ReDimPreservethis(6)Printthis(2)EndSub3.數(shù)組的清除和重定義在一個程式中，同一個數(shù)組只能定義一次。有時可能需要清除數(shù)組的內容或對數(shù)組重新定義，這可以用Erase語句來實現(xiàn)。格式如下：

Erase<數(shù)組名>[，<數(shù)組名>]……說明：①在Erase語句中，只給出要刷新的數(shù)組名，不帶括弧和下標②Erase語句用於靜態(tài)數(shù)組時，用來重新初始化各元素，內容被清空。若是數(shù)值數(shù)組各元素被置0，字元數(shù)組各元素被置為空字元串。③Erase語句用於動態(tài)數(shù)組時，刪除整個數(shù)組的結構並釋放該數(shù)組所佔用的記憶體。動態(tài)數(shù)組經(jīng)Erase後不再存在。下次引用該動態(tài)數(shù)組之前，必須用ReDim語句重新定義該數(shù)組的維數(shù)。4.數(shù)組元素的基本操作一、給數(shù)組元素賦值1．利用迴圈結構

Fori=1to5A(i)=3Nexti2．利用InputBox()函數(shù)輸入

PrivateSubCommand1_Click()Dimb(2,3)Fori=0To2Forj=0To3b(i,j)=InputBox("輸入"&Str(i)&","&Str(j)&"的值")

NextjNexti

Fori=0To2Forj=0To3Printb(i,j);"";NextjPrintNextiEndSub

當給一個較大的數(shù)組賦值時，以上方法比較麻煩，可以用Array()函數(shù)解決。3．利用Array（）函數(shù)

PrivateSubForm_Click()Dima,ba=Array(1,2,3,4,5)b=Array("11","22","33")Fori=0ToUBound(a)Printa(i);NextiPrint

Fori=0ToUBound(b)Printb(i);NextiPrintEndSub

說明： ①Array()函數(shù)對各元素賦值，聲明的數(shù)組是動態(tài)數(shù)組或連小括弧都省略的數(shù)組，並且類型只能是Varient。②數(shù)組下界默認為0，可通過OptionBase語句決定，上界由Array()函數(shù)括弧內的參數(shù)個數(shù)決定，也可通過UBound()函數(shù)獲得。③Array函數(shù)只適用於一維數(shù)組。二、數(shù)組元素的輸出可以通過Print語句對數(shù)組輸出對一維數(shù)組，用單重迴圈就能實現(xiàn)，對二維數(shù)組，要用二重迴圈實現(xiàn)。三、數(shù)組元素的複製1．單個數(shù)組元素可以像簡單變數(shù)一樣從一個數(shù)組複製到另一個數(shù)組。如：Dimb(4),a(6)……b(2)=a(3)2．要複製整個數(shù)組，要使用For迴圈語句。PrivateSubCommand1_Click()Dima(),b()a=Array(1,2,3,4,5)ReDimb(UBound(a))Fori=0ToUBound(a)b(i)=a(i)NextiFori=0ToUBound(a)Printb(i);NextiEndSub3．要複製整個數(shù)組,也可以使用一條簡單的賦值語句即可。如：

Dima(4)asinteger,b()asintegerA(0)=0:a(1)=5:a(2)=10:a(3)=13:a(4)=14B=a使用這種方法賦值時，必須要注意：①賦值號兩邊的數(shù)據(jù)類型必須一致②如果賦值號左邊的是一個大小固定的數(shù)組，則數(shù)組賦值出錯③賦值號左邊的必須是一個動態(tài)數(shù)組，賦值時系統(tǒng)自動將動態(tài)數(shù)組ReDim成與右邊同樣大小的數(shù)組四、ForEach…Next語句與For…Next語句類似，兩者都是用來執(zhí)行指定重複次數(shù)的語句。但ForEach…Next語句是專門用於運算元組的，它的格式如下：

ForEach<成員>In<數(shù)組名>[<循環(huán)體>][ExitFor]Next[<成員>]說明：①格式中的“成員”必須是一個變體變數(shù)，是為迴圈提供的，代表的是數(shù)組中的每個元素。②〈數(shù)組名〉沒有括弧和上下界用ForEach…Next語句可以對數(shù)組元素進行處理，它所重複執(zhí)行的次數(shù)由數(shù)組中元素的個數(shù)確定，數(shù)組中有多少個元素，就自動重複執(zhí)行多少次。例：OptionBase1PrivateSubCommand1_click()Dimabc(10)AsIntegerFori=1To10abc(i)=Int(Rnd*100)NextiPrint"使用普通迴圈輸出："

Fori=1To10Printabc(i);NextiPrintPrint"使用ForEach…Next輸出："

ForEachxInabcPrintx;NextEndSub5.自定義數(shù)據(jù)類型自定義數(shù)據(jù)類型由若干個標準數(shù)據(jù)類型組成，又稱記錄類型。通過Type語句實現(xiàn)。格式：Type自定義類型名元素名[(下標)]As類型名……[元素名[(下標)]As類型名]EndType如：TypeStudentNoAsIntegerNameAsString*20SexAsString*1Mark(1To4)AsSingleTotalAsSingleEndType說明：①自定義數(shù)據(jù)類型一般在標準模組（.bas）中定義，默認是Public。若在窗體模組中定義，必須是Private。②自定義數(shù)據(jù)類型中的元素類型可以是字串，但應是定長字串。定義好了類型，就可在變數(shù)的聲明時使用該類型，定義的方法和標準類型是一樣的。比如：Dimstuasstudent表示自定義類型變數(shù)中元素的格式為：變數(shù)名.元素名，如stu.no，等。可給變數(shù)stu賦值：標準函數(shù)2.1數(shù)學函數(shù)2.2轉換函數(shù)2.3字串函數(shù)2.4日期與事間函數(shù)1.數(shù)學函數(shù)Sin（N）：返回引數(shù)N的正玄函數(shù)值，如：sin（0）=0，N為弧度。Cos（N）：返回引數(shù)N的餘玄函數(shù)值，如：cos（0）＝1，N為弧度。Tan（N）：返回引數(shù)N的正切函數(shù)值，如：tan（0）＝0，N為弧度。Atn（N）：返回引數(shù)N的反正切值，如：atn（0）＝0，函數(shù)值為弧度。Sgn（N）：返回引數(shù)N的符號。N<0，返回－1；N=0,返回0；N》0，返回1。如：Sgn（35）＝1，Sgn（0）＝0，Sgn（－5.34）＝－1Abs（N）：返回引數(shù)N的絕對值，Abs（－345）＝345，Abs（345）＝345。Sqr（N）：返回引數(shù)N的平方根，N>=0，如：Sqr（81）＝9。Exp（N）：返回e的N次冪值，n>=0。如：Exp（3）＝20.086。Log（N）：返回N的自然對數(shù)，N>0,如：Log（10）＝2.3Int（N）：返回不大於N的最大整數(shù)，如：Int（3.6）＝3。Cint（N）：四捨五入整數(shù)。Cint（3.6）＝4。Rnd（N）：返回0～1之間的隨機小數(shù)。注意：三角函數(shù)的引數(shù)以弧度表示。

2.轉換函數(shù)Fix（n）：返回n的整數(shù)部分，截取小數(shù)部分；如：Fix(3.4)＝3。Asc（c）：返回字串C首字元的ASCII碼值，如：Asc（”A”）＝65。Chr（n）：返回ASCII碼值為n的字元，Chr（65）＝”65”。Val（c）：把數(shù)字組成的字串型數(shù)據(jù)轉換稱數(shù)值型。Val（”456”）＝456。Str（n）：把數(shù)值n轉換成字元型，Str（357）＝”357”。Lcase（c）：把字串c中大寫字母轉換為小寫字母。Lcase（”A”）＝”a”。Ucase（c）：把字串c中小寫字母轉換為大寫字母。Ucase（”a”）＝”A”。3.字串函數(shù)Trim（c）：去掉字串c兩端的空格，Trim（”ab”）＝”ab”。Left（c,n）：截取C最左邊的n個字元，Left（”command，3”）＝”com”。Right（c，n）：截取c最右邊的n個字元，Right（”command，3”）＝”and”.Mid(C,m,n):截取c中第m個字元開始的n個字元。Mid（”command”，3，2）＝”mm”。Len（c）：返回c包含的字元數(shù)，漢字空格都算一個字元。Len（”中”）＝1。Ucase（c）：將c中的小寫字母轉換成大寫字母。Ucase（”Who”）＝”WHO”.Lcase（c）：將c中的大寫字母轉換成小寫字母。Lcase（”Who”）＝”who”。4.日期與時間函數(shù)Time[$][()]:返回系統(tǒng)當前時間；Date[$][()]:返回系統(tǒng)當前日期；Now[()]:返回系統(tǒng)當前日期和時間；Day(c/n):返回數(shù)據(jù)中當月第幾天；Month（c/n）：返回數(shù)據(jù)中當年第幾月；WeekDay（c/n）：返回數(shù)據(jù)當天是星期幾。三基本控制結構3.1順序結構3.2選擇結構3.3迴圈結構3.1順序結構順序結構就是各語句按出現(xiàn)的先後次序執(zhí)行。主要是由一些賦值語句、輸入／輸出語句等組成。賦值語句

格式：變數(shù)名＝運算式

在VB中，既可以給一個變數(shù)賦值，也可以給對象的某一個屬性賦值。InputBox()函數(shù)

格式：InputBox(提示[，標題][，默認][，x座標位置][，y座標位置])功能：產(chǎn)生一個對話框，讓用戶從鍵盤輸入內容，當用戶單擊“確定”按鈕或按回車鍵時，函數(shù)返回輸入的值。

PrivateSubCommand1_Click()r=InputBox("請輸入姓名","教師登記表","張三",3000,4000)

PrintrEndSub

其中：“提示”：字串運算式，在對話框中作為資訊顯示。“標題”：字串運算式，在對話框的標題區(qū)顯示?！澳J”：字串運算式，顯示輸入框裏的默認資訊。“x座標位置”、“y座標位置”：整型運算式，座標確定對話框左上角在螢幕上的位置，螢幕左上角為座標原點，單位為twip。

在這五個參數(shù)中，只有“提示”是必選的。注：函數(shù)的返回值為字串類型，所以如果要對返回值進行算術運算，必須要轉換成數(shù)值型的。

例如：PrivateSubCommand1_Click()r=InputBox("請輸入第一個數(shù)")

s=InputBox("請輸入第二個數(shù)")

r=Val(r):s=Val(s)x=r+sPrintxEndSubMsgBox()函數(shù)格式：變數(shù)=MsgBox(提示[，按鈕][，標題])功能：打開一個資訊框，等待用戶選擇一個按鈕。例如：PrivateSubCommand1_Click()r=MsgBox("輸入密碼",51,"密碼錯誤")

PrintrEndSub

“提示”和“標題”：意義與InputBox函數(shù)中對應的參數(shù)相同?！鞍粹o”：整型運算式，用來控制在資訊框內顯示的按鈕、圖示的種類和數(shù)量，該參數(shù)的值由4類數(shù)值相加產(chǎn)生，這4類數(shù)值或符號常量分別表示按鈕類型、顯示圖示的種類、活動按鈕（默認按鈕）的位置及強制返回模式。按鈕設置值及意義見下圖?！鞍粹o”設置值及意義

4類分組系統(tǒng)內部常量按鈕值描述按鈕類型VbOkOnlyVbOkCancelvbAboutRetryIgnoreVbYesNoCancelVbYesNoVbRetryCancel012345只顯示“確定”按鈕顯示“確定”、“取消”按鈕顯示“終止”、“重試”、“忽略”按鈕顯示“是”、“否”、“取消”按鈕顯示“是”、“否”按鈕顯示“重試”、“取消”按鈕圖示類型VbCriticalVbQuestionVbExclamationVbInformation16324864關鍵資訊圖示紅色STOP標誌詢問資訊圖示?警告資訊圖示!資訊圖示i默認按鈕VbDefaultButtonlVbDefaultButton2VbDefaultButton30256512第1個按鈕為默認第2個按鈕為默認第3個按鈕為默認模式VbApplicationModuleVbSystemModule04096應用模式系統(tǒng)模式MsgBox函數(shù)返回值是一個整數(shù)值，這個返回值與所選的按鈕有關，所選按鈕返回數(shù)值的意義見下圖。被單擊的按鈕返回值系統(tǒng)內部常量確定1VbOk取消2VbCancel終止3VbAbort重試4VbRetry忽略5VbIgnore是6VbYes否7vbNo再看一個有關返回值的例子：編寫一個程式，用MsgBox函數(shù)判斷是否繼續(xù)執(zhí)行。PrivateSubForm_Click()DimMsg$,Title$Dimm%Msg$="此數(shù)據(jù)是否正確"

Title$="數(shù)據(jù)驗證對話框"

m=MsgBox(Msg$,35,Title$)‘35=3+32+0+0Ifm=6Then‘Print"正確";m*mElseIfm=7Orm=2ThenPrint"數(shù)據(jù)錯誤，請重新輸入"

EndIfEndSub對於一些較簡單的資訊提示，我們可以使用MsgBox語句，格式如下：

MsgBox提示[，按鈕][，標題]它與MsgBox函數(shù)的主要區(qū)別是函數(shù)有返回值，而語句沒有返回值3.2選擇結構選擇結構，就是對條件進行判斷，根據(jù)判斷結果，選擇執(zhí)行不同的分支。

VB中提供了多種形式的條件語句來實現(xiàn)，我們主要介紹If條件語句和SelectCase語句If條件語句

If條件語句有兩種格式：單行結構和塊結構1．單行結構格式：

If<條件>Then<語句塊1>[Else<語句塊2>]如果Then或Else後面有多條語句，那麼各語句之間用“：”隔開。2．塊結構格式：

If<條件>Then<語句塊l>[Else<語句塊2>]

EndIfThen和Else後面不能有語句，而且最後不要忘了寫上EndIf。這兩種結構都比較簡單，就不再舉具體的例子了。在實際應用中，我們還經(jīng)常用的If語句的嵌套，即一個If語句裏又包含一個If語句。舉一個簡單的例子：某商場為了促銷，採用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）1000元以上，按九五折優(yōu)惠（2）2000元以上，按九折優(yōu)惠（3）3000元以上，按八五折優(yōu)惠（4）5000元以上，按八折優(yōu)惠編寫程式，輸入購物款數(shù)，計算並輸出優(yōu)惠價。方法一：PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=val(Text1.Text)Ifx<1000Theny=xElseIfx<2000Theny=0.95*xElseIfx<3000Theny=0.9*xElseIfx<5000Theny=0.85*xElsey=0.8*xEndIfEndIf

EndIfEndIfText2.Text=Str(y)EndSub上面的這個程式出現(xiàn)多次If語句嵌套，程式長，不便閱讀。為此VB提供了帶ElseIf的塊If語句，使程式簡化易寫。其格式如下：If<條件1>Then<語句塊l>Elself<條件2>Then<語句塊2>……[Else<語句塊n+1>]EndIf上面的例子可以改寫成這種格式的，代碼如下：方法二：PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<1000Theny=xElseIfx<2000Theny=0.95*xElseIfx<3000Theny=0.9*xElseIfx<5000Theny=0.85*xElsey=0.8*xEndIfText2.Text=Str(y)EndSubSelectCase語句又稱情況語句，是多分支結構的另一種形式。格式：

SelectCase變數(shù)或運算式

Case運算式列表1<語句塊1>

Case運算式列表2<語句塊2>…[CaseElse<語句塊n+1>]EndSelect

格式中的“運算式列表”可為下列形式之一：（1）運算式[，運算式]……

eg:Case2,4,6,8（2）運算式To運算式

eg:Case1to5（3）Is關係運算運算式

eg:CaseIs<10情況語句執(zhí)行時先對“測試運算式”求值，然後測試該值與哪一個Case子句中的“運算式列表”匹配，如果找到了，就執(zhí)行與該Case語句有關的語句塊，執(zhí)行完後轉移到EndSelect後面的語句；如果沒有找到，則執(zhí)行與CaseElse子句有關的語句塊，然後在轉移到EndSelect後面的語句。剛才那個購物打折的例子同樣可以用情況語句實現(xiàn)，代碼如下：方法三：PrivateSubForm_Click()DimxAsSingle,yAsSinglex=InputBox("請輸入購物款數(shù)")

x=Val(x)SelectCasexCaseIs<1000y=xCaseIs<2000y=0.95*xCaseIs<3000y=0.9*x

CaseIs<5000y=0.85*xCaseElsey=0.8*xEndSelectPrint"購物款數(shù):";x,"優(yōu)惠價:";yEndSub同一個問題，解決的方法可能有多種，我們最好選擇自己比較熟悉而又簡單的來實現(xiàn)3.3迴圈結構在實際應用中，經(jīng)常遇到一些操作並不複雜，但需要反復多次處理的問題，比如人口增長統(tǒng)計、計算存款利息等，這些問題如果用順序結構來處理十分麻煩，有時甚至難以實現(xiàn)，而使用VB提供的迴圈語句可以輕鬆實現(xiàn)。迴圈結構就是在指定的條件下多次重複執(zhí)行一組語句。VB提供了兩種不同風格的迴圈結構：計數(shù)迴圈（For-Next迴圈）當迴圈（While迴圈）

Do迴圈（Do-Loop迴圈）For迴圈語句

格式：For迴圈變數(shù)=初值To終值[step步長]<語句塊>[ExitFor]循環(huán)體<語句塊>Next迴圈變數(shù)

說明：①迴圈變數(shù)也稱“迴圈計算器”或“迴圈控制變數(shù)”，為數(shù)值型。②初值與終值均為數(shù)值運算式。③步長是一個數(shù)值運算式，為迴圈變數(shù)的增量，可正可負；如果省略，默認為1。④ExitFor可用於提前退出for迴圈。⑤Next後面的“迴圈變數(shù)”與For後面的“迴圈變數(shù)“必須相同。執(zhí)行過程：①把“初值”賦給“迴圈變數(shù)”②檢查“迴圈變數(shù)”是否超過終值，若沒有則執(zhí)行循環(huán)體，若超出則結束迴圈，執(zhí)行Next後面的語句③迴圈變數(shù)加步長，轉②，繼續(xù)迴圈。由上可看出For-Next迴圈的迴圈次數(shù)由初值、終值和步長三個因素決定，計算公式為：迴圈次數(shù)＝Int（終值-初值）/步長＋1下麵舉一個例子：求n!（n為自然數(shù)）PrivateSubForm_Click()DimnAsIntegern=InputBox("輸入n的值：")

k=1Fori=1Tonk=k*iNextiPrintn;"!=";kEndSub再看一個有關步長和ExitFor語句的例子。PrivateSubForm_Click()Fori=1To100s=s+iIfs=4851ThenExitForEndIfNextiPrintiEndSub當迴圈（While迴圈）格式：

While條件[語句塊]

Wend

當條件為True時，執(zhí)行循環(huán)體。

例：PrivateSubForm_click()DimcharAsStringConstch$="?"Counter=0msg$="輸入一個字母"

char=InputBox$(msg$)Whilechar<>chCounter=Counter+1char=InputBox$(msg$)WendPrint"輸入字母的個數(shù)為：";CounterEndSub

Do…Loop迴圈語句Do迴圈有兩種格式：格式一：Do[{While|Until}<條件>]<語句塊>[ExitDo]<語句塊>Loop說明：①格式一為先判斷後執(zhí)行，循環(huán)體有可能一次也不執(zhí)行。格式二為先執(zhí)行後判斷，至少執(zhí)行一次循環(huán)體。②While用於指明條件為