第3章

簡單VisualBasic

程序設(shè)計(jì)3.1VisualBasic中的語句系統(tǒng)能夠自動(dòng)對輸入的內(nèi)容進(jìn)行語法檢查（如果設(shè)置了“自動(dòng)語法檢測”）

系統(tǒng)能夠按約定對語句進(jìn)行簡單的格式化處理系統(tǒng)允許使用復(fù)合語句行，即把幾個(gè)語句放在一行中，各語句之間用冒號(hào)（:）隔開。一個(gè)語句行的長度最多不能超過1023個(gè)字符。通過續(xù)行符（下劃線）把程序分別放在幾行中。3.1VisualBasic中的語句1.賦值語句把指定的值賦給某個(gè)變量或某個(gè)帶有屬性的對象：

[Let]目標(biāo)操作符＝源操作符“源操作符”包括：變量（簡單變量或下標(biāo)變量）、表達(dá)式（數(shù)值表達(dá)式、字符串表達(dá)式或邏輯表達(dá)式）、常量及帶有屬性的對象；而“目標(biāo)操作符”指的是變量和帶有屬性的對象?！埃健狈Q為“賦值號(hào)”。賦值語句的功能是：把“源操作符”的值賦給“目標(biāo)操作符”。3.1VisualBasic中的語句例如：Total=99

把數(shù)值常量99賦給變量Total（’是注釋符）ReadOut$=“GoodMorning!”

把字符串常量賦給字符串變量Try1=Val(Text1.Text)‘把對象Text1的Text屬性轉(zhuǎn)換為數(shù)值賦給數(shù)值變量Text1.Text=Text2.Text

把帶有Text屬性的對象Text2賦給帶有Text屬性的對象Text1StartTime=Now把系統(tǒng)的當(dāng)前時(shí)間賦給變體類型變量3.1VisualBasic中的語句說明：（1）賦值語句兼有計(jì)算與賦值雙重功能，它首先計(jì)算賦值號(hào)右邊“源操作數(shù)”的值，然后把結(jié)果賦給賦值號(hào)左邊的“目標(biāo)操作符”。（2）在賦值語句中，“＝”是賦值號(hào)，與數(shù)學(xué)上的等號(hào)意義不一樣。（3）“目標(biāo)操作符”和“源操作符”的數(shù)據(jù)類型必須一致（4）語句通常按“一行一句，一句一行”的規(guī)則書寫，但也允許多個(gè)語句放在同一行中，各語句之間必須用冒號(hào)隔開。

（5）賦值語句以關(guān)鍵字Let開頭，因此也稱Let語句。其中的關(guān)鍵字Let可以省略。3.1VisualBasic中的語句

2.注釋語句注釋是“Rem”或一個(gè)撇號(hào)“‘”，一般格式為：Rem注釋內(nèi)容‘注釋內(nèi)容說明：（1）注釋語句是非執(zhí)行語句，僅對程序的有關(guān)內(nèi)容起注釋作用。它不被解釋和編譯。（2）任何字符（包括中文字符）都可以放在注釋行中作為注釋內(nèi)容。

（3）注釋語句不能放在續(xù)行符的后面。3.1VisualBasic中的語句3.暫停語句（Stop）格式：StopStop語句用來暫停程序的執(zhí)行，它的作用類似于執(zhí)行“運(yùn)行”菜單中的“中斷”命令。在解釋系統(tǒng)中，Stop語句保持文件打開，且不退出系統(tǒng)。Stop語句的主要作用是把解釋程序置為中斷（Break）模式，以便對程序進(jìn)行檢查和調(diào)試。3.1VisualBasic中的語句4.結(jié)束語句（End）格式：End用來結(jié)束一個(gè)程序的執(zhí)行?？梢苑旁谑录^程中該過程用來結(jié)束程序。End語句除用來結(jié)束程序外，在不同的環(huán)境下還有其他一些用途，包括：

EndSub

結(jié)束一個(gè)Sub過程

EndFunction

結(jié)束一個(gè)Function過程

EndIf結(jié)束一個(gè)If語句塊

EndType結(jié)束記錄類型的定義

EndSelect結(jié)束情況語句當(dāng)在程序中執(zhí)行End語句時(shí)，將終止當(dāng)前程序，重置所有變量，并關(guān)閉所有數(shù)據(jù)文件。為了保持程序的完整性，應(yīng)當(dāng)在程序中含有End語句，并且通過End語句結(jié)束程序。3.2編寫簡單的VisualBasic應(yīng)用程序3.2.1用VisualBasic開發(fā)應(yīng)用程序的一般步用VisualBasic開發(fā)應(yīng)用程序時(shí)，需要以下三步：建立可視用戶界面設(shè)置可視界面特性編寫事件驅(qū)動(dòng)代碼3.2.1用VisualBasic開發(fā)應(yīng)用程序的一般步1.建立用戶界面用戶界面由對象，即窗體和控件組成所有的控件都放在窗體上（窗體最多容納255個(gè)控件）程序中的所有信息都要通過窗體顯示出來，它是應(yīng)用程序的最終用戶界面。2.設(shè)置窗體和控件的屬性

建立界面后，就可以設(shè)置窗體和每個(gè)控件的屬性。3.編寫代碼VisualBasic采用事件驅(qū)動(dòng)編程機(jī)制，因此大部分程序都是針對窗體中各個(gè)控件所能支持的方法或事件編寫的，這樣的程序稱為事件過程。3.2.1用VisualBasic開發(fā)應(yīng)用程序的一般步有四種方法進(jìn)入事件過程：（1）雙擊已建立好的控件（2）執(zhí)行“視圖”菜單中的“代碼窗口”命令（3）按F7鍵（4）單擊“工程資源管理器”窗口中的“查看代碼”按鈕3.2.2編寫VisualBasic應(yīng)用程序例：在屏幕上開辟一個(gè)窗口，有三個(gè)命令按鈕，標(biāo)題分別是：“請單擊此按鈕”、“清屏”及“程序結(jié)束”。單擊“請單擊此按鈕”，在文本框中顯示“歡迎使用VisualBasic6.0中文版”單擊“清屏”，清除文本框中顯示的內(nèi)容單擊“程序結(jié)束”，則結(jié)束程序。3.2.2編寫VisualBasic應(yīng)用程序1.建立用戶界面建立一個(gè)新的工程，“文件”→“新建工程”命令，雙擊該對話框中的“標(biāo)準(zhǔn)EXE”圖標(biāo)一個(gè)工程包含兩部分內(nèi)容，即對象和代碼對象通常指的是窗體（Form）和控件（Control）。每個(gè)可以執(zhí)行的工程至少包括一個(gè)窗體。代碼則是控制運(yùn)行的程序。，可以根據(jù)應(yīng)用程序的設(shè)計(jì)要求來改變其位置和大小。

用戶界面包括4個(gè)對象，即4個(gè)控件，其中3個(gè)是命令按鈕，一個(gè)是文本框3.2.2編寫VisualBasic應(yīng)用程序建立用戶界面的步驟：（1）單擊工具箱中的命令按鈕圖標(biāo)，在窗體的適當(dāng)位置畫一個(gè)命令按鈕（命令按鈕1），畫完后，按鈕內(nèi)自動(dòng)標(biāo)有“Command1”。（2）重復(fù)步驟1，分別畫出命令按鈕2和命令按鈕3，兩個(gè)按鈕內(nèi)分別自動(dòng)標(biāo)有“Command2”和“Command3”。（3）單擊工具箱中的文本框圖標(biāo)，然后在窗體的適當(dāng)位置畫出文本框控件，文本框內(nèi)自動(dòng)標(biāo)有“Text1”。

（4）上述4個(gè)控件畫完后，根據(jù)具體情況，對每個(gè)控件的大小和位置進(jìn)行適當(dāng)調(diào)整。3.2.2編寫VisualBasic應(yīng)用程序2.設(shè)置屬性設(shè)置命令按鈕的屬性：（1）選中標(biāo)有“Command1”的命令按鈕，使之成為當(dāng)前控件。

（2）單擊屬性窗口（或按F4鍵），從屬性列表中找到Caption屬性，雙擊該屬性條。

（3）從鍵盤上輸入漢字“請單擊此按鈕”。

（4）用屬性窗口中的Font屬性設(shè)置字號(hào)用類似的方法修改Command2、Command3的屬性3.2.2編寫VisualBasic應(yīng)用程序設(shè)置文本框的屬性：（1）單擊文本框，將其激活。（2）單擊屬性窗口，從屬性列表中找到Text屬性，雙擊該屬性條，設(shè)置框內(nèi)顯示“Text1”。（3）清除文本框內(nèi)的“Text1”。

修改窗體標(biāo)題，如下步驟操作：（1）使窗體成為當(dāng)前的活動(dòng)對象。（2）找到并雙擊屬性窗口中的Caption屬性。（3）從鍵盤上輸入“VisualBasic應(yīng)用程序設(shè)計(jì)示例”3.2.2編寫VisualBasic應(yīng)用程序說明：（1）對象名稱（Name屬性）。每個(gè)對象都有Name屬性。如果不賦值，則使用其默認(rèn)屬性。注意，標(biāo)題（Caption）和對象名稱（Name）是完全不同的兩種屬性。Caption是對象的標(biāo)識(shí)，Name是對象的名字。在編寫代碼時(shí)，將針對對象的Name屬性值設(shè)計(jì)操作。（2）設(shè)計(jì)用戶界面實(shí)際上是一個(gè)建立對象的過程。每個(gè)對象都有特定的屬性，有些屬性只能用于部分對象。激活一個(gè)對象后，該對象所具有的全部或大多數(shù)屬性值就在屬性窗口的屬性列表中顯示出來。3.2.2編寫VisualBasic應(yīng)用程序（3）控件放在窗體中，窗體及其控件構(gòu)成了用戶界面。程序運(yùn)行后，如果對界面不滿意，可以結(jié)束運(yùn)行，然后進(jìn)行調(diào)整。3.編寫代碼VisualBasic的程序代碼是針對某個(gè)對象事件編寫的，每個(gè)事件對應(yīng)一個(gè)事件過程。用鼠標(biāo)單擊（Click）或雙擊（DblClick）一個(gè)對象是經(jīng)常用到的事件，可以針對這樣的事件編寫事件過程。3.2.2編寫VisualBasic應(yīng)用程序（1）程序代碼窗口過程在程序代碼窗口中輸入和編輯。進(jìn)入程序代碼窗口：雙擊已建立好的控件、執(zhí)行“視圖”菜單中的“代碼窗口”命令等方法。3.2.2編寫VisualBasic應(yīng)用程序事件過程的開頭和結(jié)尾由系統(tǒng)自動(dòng)給出，即：PrivateSubForm_Load()

EndSub在上面兩行之間輸入程序代碼。

“Private”意為“私有”，表明事件過程的類型過程名（Form_Load()）由對象名（Form）及該對象的事件名（Load）兩部分組成，中間用下劃線相連。事件過程名的兩個(gè)部分可以根據(jù)需要任意組合。3.2.2編寫VisualBasic應(yīng)用程序（2）編寫過程代碼事件過程是對某個(gè)對象事件所執(zhí)行的操作。例如，事件過程Command1_Click執(zhí)行的是單擊控件Command1時(shí)所執(zhí)行的操作。PrivateSubCommand1_Click()Text1.Fontsize=20Text1.Text=“歡迎使用VisualBasic6.0中文版”Endsub第一個(gè)語句：設(shè)置字體大小（默認(rèn)為9）第二個(gè)語句：顯示一個(gè)字符串。這兩個(gè)語句都是針對Text1文本框的。運(yùn)行程序，單擊Command1，執(zhí)行以上代碼。3.2.2編寫VisualBasic應(yīng)用程序單擊命令按鈕Command2時(shí)，清空文本框，Command2的Click事件過程如下：PrivateSubCommand2_Click()Text1.Text=""EndSub單擊命令按鈕Command3，結(jié)束程序：PrivateSubCommand3_Click()EndEndSub3.2.2編寫VisualBasic應(yīng)用程序VisualBasic設(shè)計(jì)應(yīng)用程序：首先建立用戶界面，設(shè)置各個(gè)對象的屬性然后編寫由用戶啟動(dòng)的事件來激活的若干個(gè)微小程序VisualBasic能自動(dòng)進(jìn)行語法檢查每輸入完一行代碼并按回車鍵后，自動(dòng)檢查該行的語法錯(cuò)誤。如果語句正確,則自動(dòng)以不同的顏色顯示代碼的不同部分，并在運(yùn)算符前后加上空格。3.2.3代碼編輯器（1）代碼設(shè)置。自動(dòng)語法檢查：自動(dòng)校驗(yàn)鍵入的程序行的語法是否正確。

要求變量聲明：強(qiáng)制顯式地聲明變量，所有的變量必須先聲明才能使用。自動(dòng)列出成員：將在輸入代碼的過程中顯示列表框，列出在當(dāng)前插入點(diǎn)邏輯上完成語句的一些信息。3.2.3代碼編輯器自動(dòng)顯示快速信息：自動(dòng)顯示關(guān)于函數(shù)及其參數(shù)的信息。自動(dòng)顯示數(shù)據(jù)提示：當(dāng)鼠標(biāo)光標(biāo)位于某個(gè)變量上時(shí)，自動(dòng)顯示該變量的值。自動(dòng)縮進(jìn)：當(dāng)輸入代碼時(shí)，后續(xù)行以前一行的縮進(jìn)位置為起點(diǎn)。Tab寬度：設(shè)置制表符寬度，其范圍可以從1到32個(gè)空格；默認(rèn)值是4個(gè)空格。3.2.3代碼編輯器（2）窗口設(shè)置。包括以下選項(xiàng)：編輯時(shí)可拖放文本：可從“代碼”窗口向“立即”或者“監(jiān)視”窗口內(nèi)拖放文本（代碼）。

缺省為整個(gè)模塊查閱：為新模塊設(shè)置默認(rèn)狀態(tài)，可以在“代碼”窗口內(nèi)同時(shí)查看多個(gè)過程，其作用與代碼窗口左下角的“全模塊查看”按鈕相同

過程分隔符：顯示或者隱藏出現(xiàn)在“代碼”窗口中每個(gè)過程結(jié)尾處的分割符條。只有當(dāng)“缺省為查看所有模塊”被選中時(shí)它才起作用。

3.3程序的保存、裝入和運(yùn)行3.3.1保存程序四種類型的文件保存：單獨(dú)的窗體文件，擴(kuò)展名為.FRM；公用的標(biāo)準(zhǔn)模塊文件，擴(kuò)展名為.BAS；類模塊文件，擴(kuò)展名為.CLS工程文件，這種文件由若干個(gè)窗體和模塊組成，擴(kuò)展名為.VBP。還有工程組文件（.VBG）、資源文件（.RC）等。在保存工程文件之前，應(yīng)先分別保存窗體文件和標(biāo)準(zhǔn)模塊文件3.3.1保存程序第一步：保存窗體文件（1）執(zhí)行“文件”菜單中的“保存Form1”命令

（2）對話框中“保存類型”欄內(nèi)顯示的文件類型為窗體文件，可以使用默認(rèn)文件名或重新命名。

第二步：保存工程文件（1）執(zhí)行“文件”菜單中的“保存工程”命令（2）在“文件名”欄內(nèi)鍵入存盤的工程文件名（可以含有路徑）。

（3）單擊“保存”按鈕或按回車鍵。3.3.2程序的裝入一個(gè)應(yīng)用程序包括四類文件，只要裝入工程文件，就可以自動(dòng)把與該工程有關(guān)的其他三類文件裝入內(nèi)存。實(shí)際上，只要建立了工程文件，則不管這個(gè)工程中含有多少窗體和標(biāo)準(zhǔn)模塊，都可以通過裝入工程文件把所有相關(guān)文件裝入內(nèi)存。3.3.2程序的裝入用“最新”選項(xiàng)卡，把工程文件裝入內(nèi)存：（1）執(zhí)行“文件”菜單中的“打開工程”命令，單擊該對話框中的“最新”選項(xiàng)卡（2）在“文件”欄中選擇前面存盤的文件名（3）按回車鍵或單擊“打開”按鈕。用“現(xiàn)存”選項(xiàng)卡打開上述文件：（1）執(zhí)行“文件”菜單中的“打開工程”命令，單擊“打開工程”對話框中的“現(xiàn)存”選項(xiàng)卡（2）在“文件名”欄內(nèi)輸入文件名（3）按回車鍵或單擊對話框中的“打開”按鈕3.3.2程序的裝入保存修改后的程序:執(zhí)行“文件”菜單中的“保存工程”命令（或單擊工具欄上的“保存工程”按鈕），程序（包括工程和窗體）將以原來的文件名保存到磁盤上。

“文件”菜單中的“保存窗體”、“保存工程”和“窗體另存為”、“工程另存為”命令都可以用來保存窗體文件和工程文件。只是前者直接以當(dāng)前文件名存盤，而后者將顯示對話框，允許用戶以新文件名存盤。3.3.3程序的運(yùn)行1.解釋運(yùn)行解釋運(yùn)行:“運(yùn)行”菜單中的“啟動(dòng)”命令。程序執(zhí)行后，單擊標(biāo)有“請單擊此按鈕”的控件，就可以在文本框中顯示相應(yīng)的文字。此時(shí)如果單擊“清屏”按鈕，則將清除文本框中的內(nèi)容；而如果再次單擊“請單擊此按鈕”，則重新顯示“歡迎使用VisualBasic6.0中文版”。解釋執(zhí)行與舊版本BASIC程序的執(zhí)行方式相同3.3.3程序的運(yùn)行2.生成可執(zhí)行文件使程序能在Windows環(huán)境下運(yùn)行，必須建立可執(zhí)行文件。（1）執(zhí)行“文件”菜單中的“生成v.exe”命令（2）確定可執(zhí)行文件的名字。（3）單擊“確定”按鈕，生成可執(zhí)行文件。運(yùn)行.ex文件：通過“開始”→“運(yùn)行”（Run）命令，執(zhí)行

在“資源管理器”中找到文件，然后雙擊該文件名。3.4VisualBasic應(yīng)用程序的結(jié)構(gòu)與工作方式

3.4.1VisualBasic應(yīng)用程序的構(gòu)成應(yīng)用程序是一個(gè)指令集，用來指揮計(jì)算機(jī)完成指定的操作。應(yīng)用程序結(jié)構(gòu)指的是組織指令的方法，即指令存放的位置和指令的執(zhí)行順序。應(yīng)用程序越復(fù)雜，對組織或結(jié)構(gòu)的要求也越高。VisualBasic應(yīng)用程序通常由三類模塊組成，即窗體模塊、標(biāo)準(zhǔn)模塊和類模塊。

3.4.1VisualBasic應(yīng)用程序的構(gòu)成每個(gè)窗體模塊分為兩部分：作為用戶界面的窗體執(zhí)行具體操作的代碼每個(gè)窗體模塊都包含事件過程，即代碼部分，這些代碼是為響應(yīng)特定事件而執(zhí)行的指令。1.窗體模塊VB中，一個(gè)應(yīng)用程序包含一個(gè)或多個(gè)窗體模塊（其文件擴(kuò)展名為.frm）

3.4.1Visua