十、面向?qū)ο蟮睦?/p>

這里我們將通過一個具體的實例來認識它的封裝性! 在面向?qū)ο蠓椒?/p>

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

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

Step1:

1.1新建一個工程命名為VBOOP;

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

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

Step2:編輯TScore類模塊代碼

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

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

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

定義變量的基本語法:

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

代碼部分：

Private FName As String\'學生的姓名

Private FMath As Single\'數(shù)學成績

Private FEnglish As Single \'英語成績

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

個計算總分的方法函數(shù)。

定義方法的基本語法:

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\'計算總成績函數(shù)

Total = GetMath + GetEnglish

End Function

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

3.1添加5個文本框txtName、txtMath、txtEN、txtTotal;

3.2添加5個標簽labName、labMath、labEN、labTotal

其Caption屬性分別為姓名、數(shù)學、英語、總成績;

3.3添加2個命令按鈕ComSetValues、ComSearch

其Caption屬性分別為賦值、查詢。

Step4:編輯窗口事件

4.1.構(gòu)造Score對象及查詢關鍵字SearchKey。在面向?qū)ο蠓椒?/p>

中，我們可以這樣說定義類就是定義數(shù)據(jù)類型，而聲明對

象就是聲明變量。也就是說，對象實際上就是變量。

Dim Score As New TScore

Dim SearchKey As String

4.2.給模塊中四個私有變量賦值的單擊事件

Private Sub ComSetValues_Click()

If Val(txtMath.Text) >= 0 And Val(txtMath.Text) <= 100

And Val(txtEN.Text) >= 0 And Val(txtEN.Text) <= 100

Then

With Score

.SetName = txtName.Text

.SetMath = Val(txtMath.Text)

.SetEnglish = Val(txtEN.Text)

End With

txtName.Text = \"\"

txtMath.Text = \"\"

txtEN.Text = \"\"

Print \"姓名:\" & Score.GetName & \"數(shù)學:\" & Score.GetMath & \"英語:\" & Score.GetEnglish

Else

MsgBox \"成績的取值范圍:[0,100]\", 64, \"提示\"

End If

End Sub

【編輯推薦】

1. 2011年軟考系統(tǒng)分析師整理資料：面向?qū)ο?7)
2. 2011年軟考系統(tǒng)分析師整理資料：面向?qū)ο?6)
3. 2011年軟考系統(tǒng)分析師整理資料：面向?qū)ο?5)
4. 更多軟考資料請點擊51CTO軟考專題