這里我們將通過一個(gè)具體的實(shí)例來認(rèn)識(shí)它的封裝性! 在面向?qū)ο蠓椒?/P>

　　中，對(duì)象可看成是屬性(數(shù)據(jù))以及這些屬性上的專用操作的封裝體。

　　封裝是一種信息屏蔽技術(shù)，封裝的目的是使對(duì)象的定義和實(shí)現(xiàn)分離。

　　Step1:

　　1.1新建一個(gè)工程命名為VBOOP;

　　1.2單擊工程菜單，選擇添加類模塊后并單擊確定按鈕;

　　1.3在其屬性窗口中將類的名稱改為TScore。

　　Step2:編輯TScore類模塊代碼

　　2.1.這里為TScore類定義四個(gè)私有(Private)變量,它們只能在本模塊

　　中是可見的,即類的一些成員被隱藏起來,用戶只能通過屬性過程

　　或函數(shù)等方法來訪問,從而對(duì)對(duì)象進(jìn)行封裝。

　　定義變量的基本語(yǔ)法:

　　Private/Publc <變量名> As <變量類型>

　　代碼部分：

　　Private FName As String\'學(xué)生的姓名

　　Private FMath As Single\'數(shù)學(xué)成績(jī)

　　Private FEnglish As Single \'英語(yǔ)成績(jī)

　　2.2.為TScore類定義六個(gè)公用(Public)的屬性(Property)過程和一

　　個(gè)計(jì)算總分的方法函數(shù)。

　　定義方法的基本語(yǔ)法:

　　Private/Publc Property Get <讀屬性過程名> As <屬性返回值類型>;

　　Private/Public Property Let <寫屬性過程名>(ByVal 變量名 As 返回值類型);

　　Private/Publc Function <函數(shù)名> As <函數(shù)返回值類型>;

　　get: 將模塊中的私有變量的值賦給屬性過程,通常稱為讀;

　　Let: 通過屬性過程給模塊中的私有變量值賦,通常稱為寫。

　　代碼部分：

　　Public Property Get GetName() As String

　　GetName = FName

　　End Property

　　Public Property Let SetName(ByVal Name As String)

　　FName = Name

　　End Property

　　Public Property Get GetMath() As Single

　　GetMath = FMath

　　End Property

　　Public Property Let SetMath(ByVal Math As Single)

　　FMath = Math

　　End Property

　　Public Property Get GetEnglish() As Single

　　GetEnglish = FEnglish

　　End Property

　　Public Property Let SetEnglish(ByVal English As Single)

　　FEnglish = English

　　End Property

　　Public Function Total() As Single\'計(jì)算總成績(jī)函數(shù)

　　Total = GetMath + GetEnglish

　　End Function

　　Step3:回到Form1窗口，在窗口上添加12個(gè)控件:

　　軟考系統(tǒng)分析師歷年真題匯總(2007年-2010年)

　　2011軟考系統(tǒng)分析師整理資料：面向?qū)ο髤R總

　　2010年下半年軟考成績(jī)查詢時(shí)間及方式匯總