實驗3 類模塊

【實驗目標】

通過實驗建立一個自定義的類模塊，并用這個類模塊進行編程，熟悉為自定義類模塊建立方法、屬性的操作方法。

【實驗內容】

利用自定義類模塊編制一個加法運算器程序，要求通過類模塊實現運算的過程，類模塊要具有一定的屬性和方法。程序運行后的界面如圖3.4所示。

圖3.4 利用類模塊建立的加法運算器

【實驗說明】

本實驗通過簡單的示例來說明在Visual Basic中類模塊的定義及其引用方法。

【實驗分析】

通過對實訓內容進行認真分析，并結合Visual Basic軟件的功能及操作，我們可以將實驗內容分解如下：

首先建立一個窗體，并調整其大小；然后編寫類模塊程序，并建立類模塊實例；接著分別加載用于顯示第一個數字和第二個數字的文本框控件，并分別設置其屬性；之后分別加載用于顯示“+”、“=”、顯示計算的結果的標簽控件，并分別設置其屬性；加載用于顯示結果的命令按鈕控件，并設置其屬性；最后編寫程序代碼。

【示范操作】

1．建立窗體。

（1）建立一個窗體Form1。

（2）將其調整到合適的大小。

2．編寫類模塊程序。

建立類模塊程序后，進行類模塊程序的進一步設計時，在Visual Basic代碼編輯器看到相應的提示，如圖3.5所示。

圖3.5 引用類模塊編程時的提示信息

3．建立類模塊的實例。

在Visual Basic中，只有建立了一個類模塊的實例，才能使用它。建立類模塊實例的方法是：

        類名Dim變量as New

在本實驗中，我們在建立窗體模塊時首先要建立一個類模塊的實例：

        Dim js As New Class1

4．加載用于顯示第一個數字輸入框的文本框控件。

（1）加載用于顯示第一個數字輸入框的文本框控件Text1。

（2）通過屬性窗口設置其Text屬性為“”。

5．加載用于顯示第二個數字輸入框的文本框控件。

（1）加載用于顯示第二個數字輸入框的文本框控件Text2。

（2）通過屬性窗口設置其Text屬性為“”。

6．加載用于顯示“+”號的標簽控件。

（1）加載用于顯示“+”號的標簽控件Label1。

（2）通過屬性窗口設置其Caption屬性為“+”。

7．加載用于顯示“=”號的標簽控件。

（1）加載用于顯示“=”號的標簽控件Label2。

（2）通過屬性窗口設置其Caption屬性為“=”。

8．加載用于顯示計算結果的標簽控件。

（1）加載用于顯示計算結果的標簽控件Label3。

（2）通過屬性窗口設置其Caption屬性為“”。

9．加載用于直接顯示結果的命令按鈕控件。

（1）加載用于直接顯示結果的命令按鈕控件Command1。

（2）通過屬性窗口設置其Caption屬性為“運算前”。

10．加載用于用Sum方法進行運算后再顯示結果的命令按鈕控件。

（1）加載用于用Sum方法進行運算后再顯示結果的命令按鈕控件Command2。

（2）通過屬性窗口設置其Caption屬性為“運算后”。

11．編寫程序代碼。

【程序代碼】

1．在工程中建立類模塊Class1，并編寫如下代碼：

        Public a, b, c As Integer
        '建立類模塊的屬性a,b,c，并設置其類型為Integer
        Public Sub sum()
        '建立類模塊的求和方法sum()
            c = a + b
            '進行求和運算
        End Sub

2．窗體代碼：

        Dim js As New Class1
        '建立一個Class1類的實例js
        Private Sub Command1_Click()
        '運算前事件處理過程
            js.a = Val(Text1.Text)
            '設置js的屬性a為第一個操作數
            js.b = Val(Text2.Text)
            '設置js的屬性b為第二個操作數
            Label3.Caption = js.c
            '顯示結果，結果為js的屬性c的取值
        End Sub

        Private Sub Command2_Click()
        '運算后事件處理過程
            js.a = Val(Text1.Text)
            '設置js的屬性a為第一個操作數
            js.b = Val(Text2.Text)
            '設置js的屬性b為第二個操作數
            js.sum
            '利用js的sum方法進行運算
            Label3.Caption = js.c
            '顯示結果
        End Sub