《VB程序設計案例驅動型教程》VisualBasic入門篇

案例1歡迎學習ＶisualBasic

案例１歡迎學習VisualBasic

案例效果

涵蓋知識

操作步驟

案例小結

實訓練習涵蓋知識1.VisualBasic開發界面涵蓋知識1.VisualBasic開發界面

(1)工具箱：工具箱就是控件的“容器”，工具箱中一般情況下擺放了做程序界面的常用控件。此外，還可以向工具箱添加所需的其他控件。

(2)窗體：窗體相當于程序界面的“幕布”，界面中所包含的控件都是添加到“幕布”中擺放的。

(3)工程資源管理器。VisualBasic應用程序叫作工程，每個VisualBasic工程可以包含各種不同類型的文件。由工程資源管理器對工程進行管理。工程資源管理器上方有一個“查看代碼”按鈕和一個“查看對象”按鈕，這兩個按鈕用于在窗體和代碼窗口進行切換。涵蓋知識1.VisualBasic開發界面

(4)屬性窗口。對象是構成VisualBasic程序界面的基本元素。對象的屬性用于描述對象的靜態特征，如對象的名稱、對象的背景顏色等。屬性窗口就是專門用于設置對象屬性的窗口。

(5)窗體布局窗口。在窗體布局窗口中只要用鼠標拖動上面所標示的窗體，就可以指定程序運行時程序窗口出現的位置。涵蓋知識２.VisualBasic的特點

(1)面向對象的可視化設計。

VisualBasic是面向對象的可視化程序語言。所謂面向對象的程序設計，就是在程序設計時，以客觀世界的對象為主要研究對象，程序員只要設計好對象的功能和屬性，以及對象之間的信息傳遞，就能完成應用程序的設計。在VisualBasic編程中設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具“畫”在界面上，由VisualBasic自動生成對象的程序代碼并封裝起來。涵蓋知識２.VisualBasic的特點

(2)事件驅動。

VisualBasic的編程機制為事件驅動方式，編程人員只需要為響應用戶對某個對象的操作編寫程序，由用戶的操作觸發該事件，其相應代碼將會被執行，從而完成該事件的驅動。在事件驅動的應用程序設計中，代碼不是按照預定的路徑執行，而是在響應不同的事件時執行不同的代碼段。事件可以由用戶操作觸發，也可以由來自操作系統或其他應用程序的消息觸發，甚至可以由應用程序本身的消息觸發。涵蓋知識3.對象、類、屬性、方法和事件在面向對象編程中有5個重要概念，分別為：對象、類、屬性、方法和事件。

(1)對象和類在VisualBasic里看到的每一個事物都是一個對象，例如一個窗體是一個對象，每個控件也是一個對象。同種類型的對象構成類。類是對象的抽象，而對象是類的實例。

涵蓋知識3.對象、類、屬性、方法和事件

(2)屬性對象的靜態特征就叫做對象的屬性，如窗體的大小、背景顏色等。同類對象具有相同的屬性，但可以有不同的屬性值。屬性值可以在對象的屬性窗口中設置，也可以在代碼窗口中預先進行設置，在執行此代碼時生效。涵蓋知識3.對象、類、屬性、方法和事件

(3)方法方法是由對象預先定義好的，能由對象自身執行的動作。它是對象本身內含的函數或過程，用于完成某種特定的功能，如窗體的輸出、顯示、隱藏等方法。方法的定義格式是：對象名.方法名[參數]

參數帶有中括號，表明有些情況下參數可以省略。涵蓋知識3.對象、類、屬性、方法和事件

(4)事件事件是由系統預先定義好的、能被對象識別的動作，如鼠標的單擊（Click）、窗體的裝載（Load）等。事件是外界對對象實施的動作，而這個動作經常會觸發產生一些效果，該效果用代碼實現，且此代碼應放到相對應的觸發事件中，這就是VisualBasic編程的關鍵。事件的定義格式是：

PrivateSub對象名_事件名()

事件代碼

EndSub涵蓋知識4.VisualBasic程序的開發步驟VisualBasic的程序開發可以分為6個步驟，具體如下:(1)啟動VisualBasic。

(2)設計程序界面。

(3)設置對象屬性。

(4)寫代碼。

(5)保存程序。

(6)調試運行程序，生成可執行文件。涵蓋知識5.VisualBasic工程的組成

VisualBasic應用程序叫做工程。一個工程對應著一系列的文件來保存應用程序的有關信息。一個工程中包括的主要文件如下。

(1)窗體文件（.frm）。窗體文件包含窗體及其控件的正文描述、屬性設置及窗體級的常數、變量或外部過程的聲明。

(2)類模塊文件（.cls）。可以使用類模塊自定義含有方法和屬性代碼的對象。

(3)標準模塊文件（.bas）。可以包含類型、常數、變量、外部過程和公共過程的公共的或模塊級的聲明。涵蓋知識5.VisualBasic工程的組成

(4)包含ActiveX控件的文件（.ocx）。ActiveX控件是由軟件提供商開發的可重用的軟件組件，利用這類控件可以完成許多特殊功能，特別是網絡功能。

(5)資源文件（.res）。包含在程序設計過程中除了Windows標準窗口外的所有被引用的東西如圖片、菜單、文本等資源的文件。

(6)工程文件（.vbp）。工程文件是與該工程相關的全部文件和對象的清單，也就是所設置的環境選項方面的信息。每次保存工程時，這些信息都要被刷新。所有這些文件和對象也可供其他工程共享。在工程的所有部件被匯集在一起并完成代碼編寫之后，便可以生成一個可執行文件（.exe）。操作步驟1)啟動VisualBasic2)設計程序界面

3)設置對象屬性

對象名對象屬性名屬性值Form1NameForm1Caption示例1：歡迎學習VisualBasicForeColor紅色Command1NameCommand1Caption顯示Font宋體、粗體、小四Command2NameCommand2Caption清屏Font宋體、粗體、小四操作步驟

4)寫代碼提示：VisualBasic代碼書寫不區分大小寫，且標點符號全部用半角輸入；Command1_Click事件的功能是單擊按鈕Command1時觸發事件效果；雙引號是字符串型數值的界定符；Print方法的功能是在對象（通常是窗體）上輸出參數指定的內容，其格式是：對象名.Print參數；Cls方法的功能是清除對象（通常是窗體）上的文本內容，其格式是：對象名.Cls參數

；操作步驟

4)寫代碼提示：VisualBasic中的注釋語句是以單引號或Rem開頭。注釋語句只是對代碼做出解釋，但并不參與程序的執行，其功能主要是用于提高程序的可讀性，降低程序維護成本。

5)保存程序為了使程序以后可以被重復使用，必須將程序保存起來。保存VisualBasic程序有3種方法：①單擊“文件”菜單中的“保存工程”子菜單項；②單擊工具欄上的按鈕；③按F2鍵。操作步驟

6)調試運行程序，生成可執行文件前面的工作完成后，就可以單擊工具欄中的按鈕運行程序。一個應用程序設計完后，可能會出現程序出錯或不完善的地方，這就需要開發人員進行調試，測試出程序的錯誤和不完善的地方，以便進行修改，最終才能提交一個完備的產品給用戶。程序完成后，還可根據需要進一步生成可執行文件。可執行文件可以脫離VisualBasic環境單獨運行。生成可執行文件的方法是單擊“文件”菜單中的“生成示例1.exe”子菜單項，并在彈出的對話框中單擊“確定”按鈕即可。在下次運行程序時，只需雙擊該可執行文件就可以直接運行程序。案例小結本案例一方面介紹了VisualBasic編程的特點、開發程序步驟及工程的組成，另一方面介紹了對象、類、屬性、方法和事件等5個面向對象編程中常用的概念。本案例還介紹了5個操作實訓點：①如何向窗體添加控件；②如何設置對象的屬性；③如何添加代碼；④如何書寫注釋語句；⑤如何保存VisualBasic程序。此外，本案例還詳細地介紹了一些屬性、方法和事件的使用方法，如下表所示。案例小結類名屬性名屬性含義窗體FormCaption設置窗體標題欄上顯示的文本ForeColor設置窗體上顯示的前景色命令按鈕CommandButtonCaption設置按鈕上的顯示文本Font設置字體、字形和字號所學屬性小結表案例小結所學方法小結表類名方法名功能窗體FormPrint在窗體上輸出文本信息cls清除窗體上的所有內容案例小結所學事件小結表事件名觸發時機Click鼠標單擊相應對象時觸發實訓練習(1)

VisualBasic的基本特點是什么？(2)請簡述VisualBasic編程的步驟。(3)怎樣理解事件驅動編程？(4)請編程實現：單擊窗體時，窗體上顯示“我的第一個VisualBasic練習”。①調試程序成功后將程序保存，生成可執行文件。②小結一下此題中涉及了哪些對象、哪些屬性、哪些事件、哪些方法。《VB程序設計案例驅動型教程》VisualBasic編程基礎知識

案例2成績計算

案例3體育達標測試

案例4九九表

案例5競賽作品評定

案例6簡易計算器

案例7古詩選讀

案例2成績計算

案例3體育達標測試

案例4九九表

案例5競賽作品評定

案例6簡易計算器

案例7古詩選讀

案例8用戶登錄

案例9運動會報名

案例10倒計時表

案例11掛歷制作

案例12簡易記事本【案例2】成績計算

案例效果涵蓋知識操作步驟案例小結實訓練習涵蓋知識控件的布局

選中需進行布局的所有控件，并指定其中一個控件為“基準控件”。

選中了所有控件后，就可以設置對齊和調整大小了。可以通過“格式”菜單中的“對齊”、“統一尺寸”、“水平間距”和“垂直間距”4項分別設置所選中控件的對齊效果、尺寸大小、控件間的間距，其中前兩項的設置以基準控件為標準。

涵蓋知識2.變量的使用

變量的命名規則如下：(1)變量必須以字母開頭，后跟字母、數字或下劃線。(2)變量名不能使用VisualBasic中的運算符、語句、函數、過程名及系統已有的方法和屬性名等關鍵字。(3)變量的命名不區分大小寫。變量一般要先定義再使用。變量的常用定義方法為：

Dim變量名

As數據類型涵蓋知識3.Val函數的使用

Val（字符串型數值）該函數的功能是：把數值字符串型數據轉換為數值型數據，忽略字符串中的非數字字符。如：Val（“1234abc”）返回數值1234。

涵蓋知識4.焦點的控制

焦點是指對象接收用戶鼠標或鍵盤操作的能力。當一個對象具有焦點時，它可以接收用戶的操作，同用戶進行交互。常用于焦點控制的事件有兩個：GotFocus和LostFocus。GotFocus事件的功能是當對象獲得焦點時觸發該事件對應的效果；而LostFocus事件的功能是當對象失去焦點時觸發該事件對應的效果。還有一個與焦點相關的常用方法：SetFocus。它的使用格式是：對象名.SetFocus。它的功能是將焦點轉移給指定的對象。涵蓋知識5.使用文本框輸入輸出信息

文本框自身具有輸入功能，其輸入的信息可用“Text”屬性來讀取；而需用文本框進行輸出時，只需將輸出信息賦值給文本框的“Text”屬性。如：Text2.Text=Val（Text1.Text）+10涵蓋知識6.使用標簽輸出信息

標簽跟文本框相比，只能輸出信息，而不能輸入信息。當需用標簽進行輸出時，只需將輸出信息賦值給標簽的“Caption”屬性。如：Label1.Caption=“你好！”

Label1.Caption=Text1.Text操作步驟

啟動VisualBasic，設計程序界面

設置對象屬性對

象

名對象屬性名屬

性

值Form1NameForm1Caption示例2：計算成績Label1NameLabel1Caption語文成績Font宋體、粗體、小四

Label2NameLabel2

Caption數學成績

Font宋體、粗體、小四

Label3NameLabel3

Caption總分

Font宋體、粗體、小四

Text1NameText1

Text(設置為空，即刪除原有文本)

Font宋體、粗體、小四

Text2NameText2

Text(設置為空，即刪除原有文本)

Font宋體、粗體、小四

Text3NameText3

Text(設置為空，即刪除原有文本)

Font宋體、粗體、小四

Command1NameCommand1

Caption計算

Font宋體、粗體、小四操作步驟3)寫代碼

操作步驟4)保存程序，并生成可執行文件將本案例保存為一個名為“成績計算.frm”的窗體文件和一個名為“成績計算.vbp”的工程文件，并生成一個名為“成績計算.exe”的可執行文件。

案例小結

本案例主要介紹了變量的定義與使用、焦點的概念、Val函數的使用等理論知識點。本案例還介紹到了5個操作實訓點：①如何復制控件。②如何進行控件的布局。

③如何用文本框進行輸入輸出。④如何用標簽進行輸出。⑤如何轉移對象的焦點。

案例小結所學屬性小結

類名屬性名屬

性

含

義標簽LabelName標簽控件的名稱Font標簽中顯示文本的字體Caption標簽中顯示的內容BorderStyle設置標簽的邊界樣式BackColor設置標簽的背景色文本框TextName文本控件的名稱Font文本中顯示文本的字體Text文本中顯示的內容實訓練習

(1)完成如圖所示的程序界面。

實訓練習(2)請編程實現統計最高分、平均分和總分的功能。初始界面如圖1所示。當輸入四門功課的成績后，單擊“最高分”按鈕則在下方顯示出最高分的結果（如圖2所示），當單擊“平均分”按鈕時則在下方顯示平均分結果（如圖3所示），當單擊“總分”按鈕時則在下方顯示總分結果（如圖4所示），單擊“退出”按鈕時退出程序。要求顯示的最終計算結果不能被直接修改（即該文本框只能用于輸出,

不能輸入）。

實訓練習【案例3】體育達標測試

案例效果涵蓋知識操作步驟案例小結實訓練習涵蓋知識變量的作用域

過程級變量

在一個過程內部定義的變量，只有在過程內部才能訪問或改變那個變量的值，稱過程級變量。過程級變量用Dim或Staic關鍵字來定義，也稱為局部變量。

涵蓋知識變量的作用域

2)模塊級變量

在某一模塊（窗體模塊或標準模塊）內使用Private語句或Dim語句聲明的變量都是模塊級變量，其作用域只限于該模塊，只能被該模塊中的所有過程調用，其他模塊中的任何過程都不能調用。

涵蓋知識變量的作用域

3)全局變量

在標準模塊中定義一個全局變量，其方法與在標準模塊中定義一個模塊級變量相同，只是在定義時必須冠以Public，不能使用Dim和Private。在窗體模塊中定義一個全局變量，其方法與在窗體模塊中定義一個模塊級變量相同，只是在定義時必須冠以Public，不能使用Dim和Private。在窗體模塊中定義一個全局變量時，關鍵詞Public不能缺省。過程中不能定義全局變量。

涵蓋知識2.常量的使用

1)直接常量直接常量就是直接給出一個確定的值，如布爾型值True、日期型#05/01/2003#等。

2)符號常量

定義格式如下。

Const<常量名>[As<類型>]=[，<常量名>[As<類型>]=<表達式>]……涵蓋知識3.運算符與表達式

1)算術運算符與算術表達式

運算運算符優先級示例示例結果乘方∧1X^Y雙精度1000取負－2－3整形數－3乘*3Ｘ*Ｙ整形數30浮點除法／3Ｘ/Ｙ雙精度數3.33333333333333整數除法\4Ｘ\Y整形數３取模mod5XmodY整形數1加法+6X＋Y整形數13減法－6X－Y整形數7涵蓋知識3.運算符與表達式2)關系運算符與關系表達式

運算符測試關系表達式例子＝等于X=Y<>或><不等于X<>Y或X><Y>大于X>Y<小于X<Y<=小于等于X<=Y>=大于等于X>=YLike比較樣式

Is比較對象變量

涵蓋知識3.運算符與表達式3)邏輯運算符與邏輯表達式

(1)邏輯非：Not進行“取反”運算，例如Not3>6結果為True。(2)邏輯與：And對兩個關系表達式的值進行比較，如果兩個表達式的值均為True，結果為True，否則結果為False。如(5>11)And(3<5)結果為False。(3)邏輯或：Or對兩個表達式進行比較，如果其中一個表達式的值為True，結果就為True；只有兩個表達式的值為False時，結果才為False。例如(5>11)Or(3<5)結果為True。涵蓋知識3.運算符與表達式4)字符串運算符與字符串表達式

字符串運算符有兩個，“&”和“＋”，都用于將兩個字符串接起來，合并為一個新的字符串。

涵蓋知識4.選擇結構

1)單行選擇結構If-Then-Else格式：If<條件>Then[<語句組1>][Else<語句組2>]功能：當條件成立時，執行Then后的語句組1，否則執行Else后的語句組2。

涵蓋知識2)多行選擇結構If-Then-EndIf格式：If<條件1>then［<語句組1>］［ElseIf<條件2>then［<語句組2>］］……［ElseIf<條件n>then［<語句組n>］］［Else［<其他語句組>］］

EndIf

功能：首先判斷＜條件1＞是否成立，若成立則執行＜語句組1＞，然后執行EndIf后面的語句；若＜條件1＞不成立，再判斷＜條件2＞是否成立，若成立則執行＜語句組２＞，然后執行EndIf后面的語句，若＜條件2＞不成立，再判斷＜條件3＞是否成立……如果＜條件1＞到＜條件n＞都不成立，則執行Else后面的＜其他語句組＞。涵蓋知識3)多分支選擇結構SelectCase-EndSelect

格式：SelectCase<測試表達式>Case<表達式表1>[<語句組1>]Case<表達式表2>[<語句組2>]……CaseElse[<其他語句組1>]EndSelect功能：首先計算SelectCase后的＜測試表達式＞的值，若表達式1能匹配則執行＜語句組1＞，然后執行EndSelect后面的語句；若不能匹配，再匹配＜表達式2＞，若能匹配則執行＜語句組2＞，然后執行EndSelect后面的語句……如果所有表達式都不能匹配，則執行CaseElse后面的＜其他語句組＞。

操作步驟啟動VisualBasic，設計程序界面

設置對象屬性

對象名對象屬性名屬

性

值Form1NameForm1Caption體育達標測試Command1NameCommand1Caption檔次Font宋體、粗體、五號Text1NameText1Font宋體、粗體、五號Label1Caption請輸入測試成績：Font宋體、粗體、五號Label2Caption“

”Font宋體、粗體、五號操作步驟3)寫代碼

If結構如左圖，case結構如右圖操作步驟4)保存程序，并生成可執行文件將本題保存為一個名為“達標測評.frm”的窗體文件和一個名為“達標測評.vbp”的工程文件，并生成一個名為“達標測評.exe”的可執行文件。

案例小結

本案例主要介紹了變量的作用域，常量的使用，各種運算符與表達式的使用，選擇結構中的單行選擇結構、多行選擇結構和多分支選擇結構等理論知識。本案例還主要介紹了2個操作實訓點：①選擇結構中的單行選擇結構、多行選擇結構和多分支選擇結構。②如何設計輸入信息提示框、輸出信息提示框。

實訓練習(1)比較以下兩個程序的運行結果，并說明Static與Dim定義的過程級變量的區別。程序一：程序二：PrivateSubForm_click()

PrivateSubForm_click()DimaAsInteger

staticaAsIntegera=a+1 a=a+1PrintaPrintaEndSub

EndSub實訓練習(2)定義滿足如下要求的變量。①

定義一個能存放單位名稱的過程級變量。②

定義一個能存放出生年月的靜態變量。③

定義一個能存放真假值的全局變量。④

定義一個能存放六位數整數的模塊級變量。⑤

定義一個能存放分數的全局變量。⑥

定義一個能存放年齡的過程級變量。實訓練習(3)編程實現以下3種效果。①

當單擊窗體時，彈出一個輸入對話框。當用戶輸入名字后，用信息提示框輸出此名字。自行設計輸入對話框和輸出對話框的格式。②

在文本框中輸入姓名，當單擊按鈕時，在標簽中將姓名輸出。程序界面自行

設計。③

當單擊窗體時，在彈出的輸入對話框中輸入姓名后，在窗體上直接將此名字

輸出。實訓練習(4)編寫一個運輸公司的計費程序，界面自行設計，計費公式如下：運費＝基本運費×貨重×運輸距離×（１－折扣）其中，基本運費指每噸公里的運費，設為1元／t·km，貨重量單位為t，運輸距離單位為km，折扣標準如下：運輸距離<250km 0%250km=<運輸距離<500km 2%500km=<運輸距離<1000km 5%1000km=<運輸距離<2000km 8%2000km=<運輸距離<3000km 10%3000km=<運輸距離

15%要求：用戶輸入貨重噸數和運輸距離公里數后程序能自動計算出運費。①

用單行選擇語句編制。②

用多行選擇If-Then-EndIf編制。③

用多分支SelectCase-EndSelect編制。【案例4】

九

九

表

案例效果涵蓋知識操作步驟案例小結實訓練習涵蓋知識1.Print方法窗體、圖片、打印機對象都具有Print方法，調用Print方法的格式：

[<對象名>.]Print[<表達式表>][{；|，}]

對象名為可選項，省略則默認為當前窗體。表達式表中的表達式可以是算術表達式、字符串表達式、關系表達式或布爾表達式，各表達式之間用逗號“，”或分號“；”分隔。使用逗號時為分區顯示格式，以14個字符位置為單位將一個輸入行分為若干個區，一個區只顯示一個表達式的值；使用分號時為緊湊顯示格式，后一項緊跟前一項輸出。涵蓋知識2.循環結構1)For-Next循環其結構的格式如下：

For<循環變量>=<初值>To<終值>[Step<步長>][<語句組1>][ExitFor][<語句組2>]Next[<循環變量>]<循環變量>是一個數值型變量，起循環計數的作用。<初值>和<終值>即循環的初值和終值，為數值表達式。<步長>即循環變量的增量，為數值表達式。值為正時，循環變量將增加一個步長；值為負時，則減少一個步長。值為“1”時，Step<步長>可省略。涵蓋知識2)Do-Loop循環

(1)DoWhile-Loop循環。格式：DoWhile<條件式>[<語句組1>][ExitDo][<語句組2>]Loop先判斷<條件>成立否，若成立則循環，不成立則退出循環。

涵蓋知識(2)DoUntil-Loop循環。格式：DoUntil<條件式>[<語句組1>][ExitDo][<語句組2>]Loop先判斷<條件>成立否，若不成立則循環，成立則退出循環。涵蓋知識(3)Do-LoopWhile循環。Do[<語句組1>][ExitDo][<語句組2>]LoopWhile<條件式>先循環，再判斷，成立則循環，不成立則退出循環。

涵蓋知識(4)Do-LoopUntil循環。Do[<語句組1>][ExitDo][<語句組2>]LoopUntil<條件式>先循環，再判斷，不成立則循環，成立退出循環。

涵蓋知識3.Function過程

1)定義格式：[Static][Public|Private]Function<過程名>([<參數表>])[As<類型>][<語句組>][<過程名>＝<表達式>][ExitFunction][<語句組>][<過程名>=<表達式>]EndFunction涵蓋知識3.Function過程2)建立方法直接在通用窗口中輸入代碼。在代碼窗口的所有過程之外，按Function過程的定義格式輸入。使用“添加過程”命令。選擇“工具”菜單中的“添加過程”命令，打開對話框，在“名稱”框內輸入要建立的過程名，如fact，進行相應選擇，單擊“確定”按鈕，回到模塊代碼窗口，

涵蓋知識3.Function過程3)調用Function的調用比較簡單，可以像使用VisualBasic內部函數一樣來調用。調用格式：<過程名>([<實參表>])其中，<過程名>為要調用的Function過程名，<實參表>為要傳遞給Function過程的常量、變量或表達式，各參數間用逗號隔開，如果是數組，在數組名之后必須跟一對空括號。例如：Text2.Text=sum(n)涵蓋知識4.Sub過程

1)定義格式：[Static][Public|Private]Sub<過程名>[(<參數表>)][<語句組>][ExitSub][<語句組>]EndSub涵蓋知識2)調用 Sub過程的調用有兩種方法，一種是把過程的名字放在一個Call語句中，一種是把過程名作為一個語句來使用。(1)用Call調用過程。格式：Call<過程名>[（<實參表>）]例如：Callfact(x,f)CallMul(n,sum2)(2)把過程名作為一個語句使用。格式：<過程名>[<實參表>]例如：factx,f操作步驟啟動VisualBasic，設計程序界面

設置對象屬性

對象名對象屬性名屬性值Form1NameForm1Caption示例４：九九表Command1NameCommand1Caption計算Font宋體、五號Command２NameCommand２Caption九九表Font宋體、五號Text1、Text2、Text3NameText1、Text2、Text3Font宋體、五號Label1Caption請輸入n值：Font宋體、五號Label2Caption1+2+…+n=Font宋體、五號Label3Captionn!=Font宋體、五號操作步驟3)寫代碼

操作步驟4)保存程序，并生成可執行文件將本題保存為一個名為“九九表.frm”的窗體文件和一個名為“九九表.vbp”的工程文件，并生成一個名為“九九表.exe”的可執行文件。

案例小結

本案例主要介紹了Print方法的使用、程序結構的循環結構語句格式要求、過程與函數的定義。重點是要對各種實際情況進行合理循環語句的選擇。

實訓練習(1)編寫程序，求1/(12)+1/(22)+1/(32)+．．．+1/(n2)的值，直到最后一項的值小于0.001為止。界面自行設計。(2)編寫一個判斷自然數是否為質數的Function過程，在窗體上打印出［100,200］之間的所有質數，并求出它們的和。(3)編寫一個求一元二次方程ax2+bx+c=0(a不等于0)的實根的Sub過程，要求能判斷有無實根、實根的個數并求出實根。【案例5】競賽作品評定

案例效果涵蓋知識操作步驟案例小結實訓練習涵蓋知識隨機函數

每次調用隨機函數Rnd，將返回一個0~1之間的單精度隨機數，其調用格式如下：

Rnd[(x)]

其中x作為隨機函數參數，可以是任何單精度常數或有效的數值表達式。若x<0，則每次都使用x作為隨機數的種子得到的相同結果；若x>0，則以上一個隨機數作為種子，產生序列中的下一個隨機數；若x=0，則返回與最近生成的隨機數相同的隨機數。涵蓋知識2.數組1)數組的概念數組和數組元素。

數組名是用于標識數組的名字，其命名規則與簡單變量的命名規則相同，如可以定義存放學生成績的數組變量命名為StScore。存儲在數組中的每一個數據稱為一個元素，即數組元素。命名了一個數組，則數組中每一個數組元素都擁有相同的名字，即數組名。同一個數組的每個元素都具有相同的名字：數組名。涵蓋知識1)數組的概念(2)數組下標與維數。數組的下標即數組的索引，它規定了數組中元素的個數和位置，其下標值唯一地標識一個數組元素。根據需要，可以給數組定義一個下標，也可以定義多個下標。

涵蓋知識2)數組的定義固定大小(靜態)數組的定義

Dim|Private|Public|Static<數組名>(<下標列表>)[As數據類型][,……]

Dim：用于在過程（Procedure）、窗體模塊（Form）或標準模塊（Module）中建立一個數組變量。

Private：用于在窗體模塊、標準模塊的通用聲明中建立一個模塊級的私有數組變量

Public：用于在標準模塊中建立一個全局數組變量

Static：用于在過程中建立一個靜態數組變量

涵蓋知識2)數組的定義(2)可變大小(動態)數組的定義。第一步，在模塊的通用聲明段聲明一個不指定下標的數組，格式如下。

Dim|Private|Public|Static<數組名>()[As數據類型][,……]

如：

DimMyArry()AsInteger

第二步，在過程中重新定義該數組，指定數組的下標，格式如下。

ReDim[Preserve]<數組名>(下標列表)[As數據類型][,……]Preserve：可選，當使用Preserve時，將保留重定義前數組中數組元素的值，否則系統將對數組重新初始化涵蓋知識3)常用數組函數和語句

格式：LBound(數組名

[,指定的維數])UBound(數組名

[,指定的維數])

若缺省指定維數，默認為1。前者返回指定數組可用的最小下標，后者得到的是最大下標。涵蓋知識3.循環的嵌套包含另一個循環結構的循環為外層循環；包含在一個循環結構中的循環稱為內層循環；只有一層循環結構時稱為單層循環，當有循環的嵌套時稱為多層循環。

操作步驟啟動VisualBasic，設計程序界面

設置對象屬性

對象名對象屬性名屬性值Form1NameForm1Caption競賽作品評定

Command1NameCommand1Caption模擬生成競賽成績Font宋體、五號Command2NameCommand2Caption成績排名Font宋體、五號Text1/Text2NameText1/Text2Font宋體、五號MultilineTrueScrollbars1-Horizontal操作步驟3)寫代碼

操作步驟4)保存程序，并生成可執行文件將本題保存為一個名為“競賽作品評定.frm”的窗體文件和一個名為“競賽作品評定.vbp”的工程文件，并生成一個名為“競賽作品評定.exe”的可執行文件。

案例小結

本案例主要介紹了數組的概念、數組的定義、數組在實際編程中的應用、循環嵌套的使用。重點是利用數組進行合理的數據編程。

實訓練習(1)用數組編程生成斐波那契數列的前20項。斐波那契數列的第一項為0，第二項為1，第三項后的各項均為其前兩項之和。如0，1，1，2，3，5，8，13，…(2)編寫一個應用程序，針對一個整型數組具有以下功能，每個功能由一個過程來實現。①

讀入一個由n個元素組成的整型數組。②

在數組中指定位置插入一個元素。③

在數組中刪除指定位置的元素。④

刪除數組中指定值的元素。（建議編寫一個用于檢索的Function過程，檢索成功時，函數返回值為檢索到的元素的下標。）

【案例6】簡易計算器

案例效果涵蓋知識操作步驟案例小結實訓練習涵蓋知識創建控件數組

控件數組是指名稱相同索引號不同的同一類控件。創建控件數組的方法主要有兩種。(1)從工具箱中拖放一個控件到窗體中，右擊該控件，選擇“復制”，右擊窗體空白處，選擇“粘貼”，單擊“是”按鈕即可。(2)從工具箱中拖放多個相同控件到窗體中，然后在屬性窗口中將這多個控件的name屬性設置為相同的名稱即可。各控件的index屬性會自動按序排列。

涵蓋知識2.控件數組的應用控件數組由于其名稱都是一樣的，因此索引index屬性值的不同是其主要區別，在使用過程中通過判斷數組控件的index值來區分它們是我們常采用的辦法。

操作步驟啟動VisualBasic，設計程序界面

設置對象屬性

對

象

名對象屬性名屬

性

值Form1NamefrmcomputerCaption計算器Command1(0)~Command1(9)NamenumberCaption分別為0~9Command2(0)~Command2(4)NameoperatorCaption分別為+、-、*、/、=Command3NameSignerCaption+/-Command4VisiblefalseCommand5NamePercentCaption%Command6NamecancelCaptionCText1Text“

”Alignment1-rightjustify操作步驟3)寫代碼

模塊變量定義

操作步驟3)寫代碼

初始化代碼數字按鈕代碼

操作步驟3)寫代碼運算符代碼

操作步驟3)寫代碼正負號代碼

%按鈕代碼cancel按鈕代碼操作步驟4)保存程序，并生成可執行文件工程運行調試完畢，將窗體文件保存為computer.frm，工程文件保存為computer.vbp，工程編譯為computer.exe執行文件。

案例小結

本案例中主要介紹了控件數組的應用，從代碼及界面設置中我們可以很清楚看到控件數組的使用關鍵在于：①控件數組的產生；②控件的name和index兩個重要屬性的設置。

案例小結所學屬性小結

對

象

名對象屬性名屬

性

含

義數組控件Name對象名稱Index對象的索引值實訓練習(1)設計一個統計體育期末達標成績情況的程序，初始界面如圖1所示。輸入各項成績后，單擊“總評成績”按鈕，效果如圖2所示。要求：輸入成績的4個文本框為一控件數組，成績等級設置分別為：90分及以上為優，80分至89分為良，70分至79分為中，60分至69分為及格，60分以下為不及格。

實訓練習【案例7】古

詩

選

讀

案例效果涵蓋知識操作步驟案例小結實訓練習涵蓋知識并行多窗體設計

并行多窗體程序的開發過程主要有以下5個步驟：(1)在程序設計狀態下，利用“工程”菜單中的“添加窗體”子菜單添加每一個窗體，并設計好每一個窗體上的控件對象，并設置相關的屬性。(2)給每個窗體及其上的控件對象設計相應的程序代碼。(3)利用“工程”菜單中的“工程1屬性”子菜單項來指定運行程序時的啟動窗體。(4)將多個窗體獨立存盤，并保存其工程文件。(5)運行程序。涵蓋知識2.父子多窗體設計

此種容器關系表現為：任何時候，子窗體都在父窗體中，它的存在隨著父窗體而定。

父子多窗體程序常用到1個屬性和1個方法。1)MdiChild屬性若屬性值為True，則該窗體將作為父窗體的子窗體；值為False，則不作為子窗體，而作為與父窗體并行的窗體。在設置該屬性之前，必須已存在一個父窗體了。2)Arrange方法此方法用來以不同的方式排列MDI中的窗口或圖標。其格式為：

MDI窗體.Arrange方式參數

涵蓋知識3.列表框的簡單使用

1)ListIndex屬性該屬性用于設置或返回列表框中當前被選中的列表項的編號。列表框中的第一項編號為0，第二項編號為1，依此類推。若ListIndex屬性返回值為-1，則表示無列表項被選中。2)AddItem方法此方法用于給列表框添加列表項內容。它的使用格式為：列表框名.AddItem列表項內容[，位置編號]涵蓋知識3)Clear方法該方法的功能是清除列表框中的所有列表項內容。它的使用格式為：列表框名.Clear4)DblClick鼠標雙擊事件該事件的功能是當鼠標在列表框中雙擊時觸發相應的效果。它的使用格式為：

PrivateSub列表框名_DblClick()

效果代碼

EndSub涵蓋知識4.設置顏色

1)直接設置顏色值

VisualBasic內部使用十六進制數表示指定的顏色，在設置顏色時，可以直接寫出該種顏色的十六進制值，格式為：&HBBGGRR，其中“&H”表示是十六進制數，“BB”表示藍色分量，“GG”表示綠色分量，“RR”表示紅色分量。

涵蓋知識2)使用調色板對象的屬性窗口中，當單擊與顏色有關的屬性名（如BackColor和ForeColor）時會出現一個下拉箭頭，單擊下拉箭頭，會彈出一個對話框，其中有兩個選項卡：調色板和系統預定義的顏色。可以從兩個選項卡中任選其一，再從中選擇所需要的顏色。

涵蓋知識3)使用系統顏色常量對象名對象屬性名屬性值vbBlack&H000000黑色vbRed&H0000FF紅色vbGreen&H00FF00綠色vbYellow&H00FFFF黃色vbBlue&HFF0000藍色vbMagenta&HFF00FF紫紅色vbCyan&HFFFF00青色vbWhite&HFFFFFF白色涵蓋知識4)使用QBColor函數

QBColor函數返回一個長整型數，用來表示所對應顏色的RGB顏色值，其調用格式如下：QBColor(Value)，其中參數Value是介于0～15之間的整數。值顏

色值顏

色0黑色8灰色1藍色9亮藍色2綠色10亮綠色3青色11亮青色4紅色12亮紅色5洋紅色13亮洋紅色6黃色14亮黃色7白色15亮白色涵蓋知識5)使用RGB函數

RGB函數返回一個長整型數，用來表示一個RGB顏色值，其調用格式如下。

RGB(red，green，blue)

其中red參數取值范圍為0～255，表示顏色的紅色成分；green參數取值范圍為0～255，表示顏色的綠色成分；blue參數取值范圍為0～255，表示顏色的藍色成分。如果傳給RGB函數的參數值超過255，系統將當作255處理。

操作步驟啟動VisualBasic，設計程序封面界面及相關控件屬性

先啟動VisualBasic6.0，然后從工具箱中往窗體上添加1個標簽和2個按鈕控件

添加用于選擇古詩的列表窗體，并設計其界面和相關控件屬性。

單擊“工程”菜單－“添加窗體”子菜單項

(3)添加用于顯示第1、2、3首古詩的窗體，并設計其界面和相關控件屬性。(4)單擊“工程”菜單—“工程1”子菜單項，來設置啟動窗體。

操作步驟2)寫代碼

(1)給Formcover窗體寫代碼。

操作步驟2)寫代碼

(2)給listform窗體寫代碼。

操作步驟2)寫代碼(3)給p1窗體寫代碼。

操作步驟2)寫代碼(4)給p2和p3窗體寫代碼

操作步驟3)保存程序，并生成可執行文件本案例保存時將生成如下文件。

(1)

Formcover窗體將保存為一個名為“Formcover.frm”的窗體文件。(2)

listform窗體將保存為一個名為“listform.frm”的窗體文件。(3)

p1、p2、p3窗體將分別保存為“p1.frm”、“p2.frm”、“p3.frm”3個窗體文件。(4)整個程序對應的一個名為“古詩選讀.vbp”的工程文件，并生成一個名為“古詩選讀.exe”的可執行文件。

案例小結

本案例主要介紹了并行多窗體和父子多窗體程序界面的設計方法、列表框控件的用法、字符串連接、續行符的用法以及VbCrlf的用法等知識點。本案例還介紹到了2個操作實訓點：①如何添加窗體。②如何給文本框添加內部滾動條。

案例小結所學屬性小結

類名屬

性

名屬

性

含

義窗體FormMDIChild是否設置為子窗體Picture指定一個圖片文件作為窗體背景列表框ListListIndex列表框中的項目編號（從0開始）標簽LabelBackStyle設置標簽的背景樣式ForeColor設置標簽的前景色文本框TextMultiline設置文本框是否允許多行顯示ScrollBars設置文本框顯示滾動條（0表示無滾動條，1表示只顯示水平滾動條，2表示只顯示垂直滾動條，3表示兩種滾動條都顯示）案例小結所學方法小結

類名方

法

名功

能窗體FormShow顯示窗體Hide隱藏窗體，但窗體依然存在于內存中列表框ListAddItem給列表框添加選項Clear清除列表框所有選項MDIChildArrange設置父窗體中所有子窗體的排列方式實訓練習(1)請編程實現如下效果：設計一個包含Form1和Form2兩個窗體的多重并行窗體應用程序。Form1為啟動窗體。單擊Form1，隱藏Form2，顯示Form1；單擊Form2時，隱藏Form2，顯示Form1。雙擊任何一個窗體時，結束程序的運行。(2)請編程實現如下效果：程序運行時的初始界面如圖1所示。當單擊“排列窗體”按鈕時出現如圖2所示的對話框。若在對話框中輸入“1”，單擊“確定”按鈕后出現界面效果與初始界面一致；若在對話框中輸入“2”，單擊“確定”按鈕后出現圖3所示的界面效果；若在對話框中輸入“3”，單擊“確定”按鈕后出現圖4所示的界面效果。若單擊父窗體上方的“退出”按鈕則退出整個程序。實訓練習實訓練習(3)利用本案例所學知識，編程實現如下效果：程序運行的初始界面如圖1所示，當雙擊列表中的任一數字時，該數字將被添加到文本框中進行顯示，如圖2至圖4效果所示。單擊“結束”按鈕時退出程序。

實訓練習【案例8】用

戶

登

錄

案例效果涵蓋知識操作步驟案例小結實訓練習涵蓋知識文本框

Text屬性：文本框最基本的屬性，表示文本框中的內容，既可以在屬性窗口中靜態設置，也可以在代碼窗中設置。

Font屬性：用來設置文本框的字體、字形、字號等。

Passwordchar屬性：用于設置文本框的內容的顯示形式，只有當Multiline屬性為False（單行文本框）時才有用，常用于密碼口令設置。

Maxlength：用于確定文本框中最大長度。涵蓋知識2.靜態變量

所謂靜態變量是指在程序運行過程中該變量的值會一直保存在內存中直到程序結束。

本案例中密碼的輸入只有3次機會，若3次都輸入錯誤則終止程序。為了記錄用戶密碼的輸入次數，特設計了一個計數變量，該變量是一個靜態變量（static）。

操作步驟啟動VisualBasic，設計程序界面

設置對象屬性

對

象

名對象屬性名屬

性

值

Form1NameFrmuser_login

Caption用戶登錄

Command1Caption確定

Font宋體、粗體、小四

Command2Caption取消

Font宋體、粗體、小四

Label1Caption用戶名：

對

象

名對象屬性名屬

性

值Label2Caption密碼：Text1Text“

”Text2Text“

”Passwordchar*Maxlength6操作步驟3)寫代碼

“登錄”按鈕代碼

操作步驟3)寫代碼“取消”按鈕代碼操作步驟4)保存程序，并生成可執行文件當工程調試完畢，將工程窗體文件保存為frmuser_login.frm，工程項目保存為user_login.vbp，并生成執行文件user_login.exe。

案例小結

本案例中主要介紹了如何用文本框進行密碼輸入的操作，主要介紹了Passwordchar和Maxlength屬性的使用。案例小結所學屬性小結

類名屬性名屬

性

含

義文本框TextText文本控件的內容Passwordchar文本中顯示文本的形式Maxlength文本中顯示內容的最大長度實訓練習(1)設計一個用戶登錄系統的程序，界面如圖所示。單擊“登錄”按鈕時可實現：①

當用戶名為自己的姓名且口令為“123456”時彈出一個歡迎對話框。②

當用戶名為自己的姓名且口令不為“123456”時彈出一個口令錯誤的提示圖。

③

當用戶名不為自己的姓名且口令不為“123456”時彈出一個用戶名與口令都錯誤的提示圖。④

當用戶名或口令不正確時可輸入3次，若3次都不對則結束程序。單擊“退出”按鈕時卸載窗體。實訓練習(2)設計一個多行的文本框，界面如圖所示，并能設置其中的字體。（提示：楷體標準名稱為“楷體_GB2312”。）【案例9】運動會報名

案例效果涵蓋知識操作步驟案例小結實訓練習涵蓋知識1.單選按鈕單選按鈕主要用于讓用戶進行單項選擇操作，其主要屬性Value的取值有True和False兩種，取值為True時表示用戶選擇了該項，反之則表示未選中該項。單選按鈕的常用事件為Click，當用戶選擇了該項時觸發該事件。涵蓋知識2.列表框列表框可以以列表項的形式顯示內容并可由用戶選擇其中一項或多項內容，其常用屬性如下。(1)List：表示列表框中內容，其使用用法為:列表框.list(i)，i的取值范圍為0到listcount-1。(2)Listindex：表示列表框中被選中的列表框項目的索引號，初始值為0，若未選中列表項則返回值為-1。(3)Listcount：列表框中項目的數量。(4)Text：列表框中被選中項目的內容，該屬性為動態屬性，只能在代碼設計中使用。涵蓋知識2.列表框常用方法如下。(1)

Additem：添加項目到列表框中。其中，index選項表示增加的項目的索引位置。列表框對象.additem項目內容[,index]如：list1.additem“男子三級跳”,2表示增加第三項“男子三級跳”。(2)

Removeitem：移除列表框中指定的項目。列表框對象.removeitemindex如：list1.removeitem0表示刪除第一項。(3)列表框對象.Clear：清除列表框中所有項目。如：list1.clear。涵蓋知識3.組合框組合框是由文本框和列表框組合而成，因此具有它們兩者的功能，既能顯示文本輸入文本，又可列表顯示內容，并供用戶選擇。組合框的常用屬性與列表框基本相似，此處不再贅述。不過它的Text屬性為一靜態屬性，可在屬性窗口中設置，也可在代碼中設置。另外它的Style屬性有3種設置：0-dropdowncombo，既可選擇也可輸入；1-simplecombo，只可輸入不能選擇；2-dropdownlist，只可選擇不能輸入。

操作步驟啟動VisualBasic，設計程序界面

設置對象屬性

對象名對象屬性名屬

性

值Form1NamefrmsportsmanCaption運動員報名Frame1Caption性別Label1Caption姓名Label2Caption編號Label3Caption系部Label4Caption運動項目Label5Caption運動員報名信息Text1Text“

”Text2Text“

”Command1Caption確定Command2Caption退出Option1Caption男ValueTrueOption2Caption女Combo1Style2-dropdownlistList1Text“

”List2Text“

”操作步驟3)寫代碼

初始化代碼“確定”按鈕代碼

操作步驟4)保存程序，生成可執行文件工程運行調試完畢，將窗體文件保存為frmsportsman.frm，工程保存為sportsman.vbp，執行文件編譯為sportsman.exe。

案例小結

本案例中由于性別通常都是二者選一，因此使用單選按鈕表示性別的取值，而當有多個值供選擇時使用組合框較為方便，若只是為了顯示內容則常用列表框控件。

案例小結所學屬性小結

對象名對象屬性名屬

性

含

義單選按鈕Caption標題Value表示選擇與否列表框Text被選中項的文本內容List列表框的內容Listindex被選中項的索引號組合框Style組合框的樣式案例小結所學方法小結

對象名對象方法名屬

性

含

義列表框/組合框Clear刪除的所有內容Additem添加內容Removeitem刪除被選中項的內容實訓練習(1)設計一個進行字體設置的工程，工程名稱為font.vbp，窗體名稱為frmfont.frm。程序初始界面如圖所示，效果為單擊各字體字號單選按鈕，可將文本框中字符設置成相應的字體與字號。

實訓練習(2)設計一個學生選課的程序，程序界面如圖1所示。

程序功能要求：用戶輸入完學生的姓名后，程序效果如圖2所示，多了圈中部分。單擊“>”按鈕：判斷左邊列表框中是否已選擇課程，若未選擇則彈出如圖3所示的提示信息，若已選擇一門課程，則將該課程移到右邊列表框，如圖4所示。

實訓練習實訓練習

單擊“>>”按鈕：將左邊列表框中所有課程移到右邊列表框，如圖1所示。單擊“<”按鈕：判斷右邊列表框中是否已選擇課程，若已選擇一門課程，則將該課程移到左邊列表框，如圖2和圖3所示。

實訓練習實訓練習

單擊“<<”按鈕：將右邊列表框中所有課程移到左邊列表框，效果如圖1和圖2所示。

【案例10】倒

計

時

表

案例效果涵蓋知識操作步驟案例小結實訓練習涵蓋知識1.計時器控件

Timer控件用于計時，它可定時觸發某一操作，它的主要屬性為Enabled和Interval。Enabled屬性表示控件的有效狀態，取值為True時表示計時器有效，取False時表示計時器無效。Interval屬性表示計時器的Timer事件觸發的時間間隔，以毫秒為單位。計時器的唯一事件是Timer，該事件當Enabled屬性為True時以Interval值為間隔反復發生。

涵蓋知識2.復選框控件復選框控件用于進行多項選擇，主要屬性Caption表示控件的標題，Value屬性取值為0-unchecked、1-checked、2-grayed分別表示未選、選中、灰色狀態。

操作步驟啟動VisualBasic，設計程序界面

設置對象屬性

對象名對象屬性名屬性值Form1NamefrmdjsbCaption倒計時表Label1Caption現在時刻Label2Caption倒計時刻Text1Text“

”Text2Text“

”Command1Caption設置時間Command2Caption退出Check1Caption啟動倒計時Value0-ybcheckedTimer1EnabledTrueInterval1000Timer2EnabledFalseInterval1000操作步驟3)寫代碼

“設置時間”按鈕代碼操作步驟3)寫代碼“啟動倒計時”復選框代碼

計時器Timer1事件代碼

操作步驟3)寫代碼計時器Timer2事件代碼

操作步驟4)保存程序，并生成可執行文件工程運行調試完畢，將窗體文件保存為frmdjsb.frm，工程文件保存為djsb.vbp，執行文件編譯為djsb.exe。

案例小結

本案例中主要介紹了Timer控件和Check控件的用法。所學事件小結

對象名對象事件名事

件

含

義Timer計時器Timer當計時器有效時且Interval值大于0時觸發案例小結所學屬性小結

對象名對象屬性名屬

性

含

義Checkbox復選框Caption標題Value表示選擇與否Timer計時器Enabled控件是否有效IntervalTimer事件發生的時間間隔實訓練習(1)設計一個用于運動會徑賽計時的跑表，程序界面如圖1所示，單擊“開始”按鈕后如圖2所示，單擊“停止”按鈕后如圖3所示。

實訓練習(2)設計一個用于設置字符的字型效果的工程，界面如圖1所示，選擇粗體、斜體、下劃線后，效果如圖2所示。【案例11】掛

歷

制

作

案例效果涵蓋知識操作步驟案例小結實訓練習涵蓋知識1.驅動器列表控件驅動器列表框控件Drive主要作用是顯示系統有效的驅動器名稱。其主要屬性為Drive，表示所選擇的驅動器名，它是動態屬性，只能在代碼中設置。其主要事件為Change，當用戶改變列表框中的驅動器時觸發該事件，通過該事件可控制目錄列表框中的當前目錄。

涵蓋知識2.目錄列表控件目錄列表框控件Dir以樹形結構顯示當前驅動器中的目錄并可供用戶進行目錄選擇。其主要屬性為Path，表示當前工作目錄的完整路徑（包括驅動器），它只能在代碼中設置。其主要事件為Change，當目錄發生改變時觸發該事件，通過該事件可控制文件列表框中的文件內容。

涵蓋知識3.文件列表控件文件列表框控件File用于指定當前驅動器、當前目錄中的文件。其主要屬性包括Pattern、Path、Filename。

Pattern屬性用于確定顯示文件的類型，默認值為*.*，用戶可根據需要設置其擴展名，如：*.exe;*.txt。

Path屬性用于設置當前目錄，只能在代碼中設置。

Filename屬性返回當前文件名（不包括路徑）。文件列表框控件的主要事件為Click。操作步驟啟動VisualBasic，設計程序界面

設置對象屬性

對象名對象屬性名屬

性

值Form1NameFrmfile_viewCaption掛歷制作File1Pattern*.jpg;*.bmpLabel1Caption掛歷圖片文件選擇：Command1Caption生成掛歷操作步驟3)寫代碼

初始化代碼

改變當前驅動器代碼

改變當前目錄代碼

操作步驟3)寫代碼單擊文件代碼單擊“生成掛歷”代碼操作步驟4)保存程序，并生成可執行文件工程運行調試完畢，將窗體文件保存為frmgl.frm，工程文件保存為gl_vbp.vbp，執行文件編譯為gl_vbp.exe。案例小結

本案例中主要介紹了Drive控件、Dir控件和File控件的用法。所學屬性小結。

對象名對象屬性名屬

性

含

義DriveDrive當前驅動器DirPath當前目錄FilePattern顯示文件的過濾Filename當前文件名Path當前文件路徑案例小結所學事件小結

對象名對