實驗2 Visual Basic中變量的聲明

【實驗目標】

理解Visual Basic中變量聲明的有關規定，掌握變量隱式聲明和顯式聲明的方法。

【實驗內容】

1．不使用Option Explicit語句，隱式聲明各種不同類型的變量，觀察輸出結果；使用Option Explicit語句，隱式聲明各種不同類型的變量，觀察輸出結果；使用Option Explicit語句，顯式聲明各種不同類型的變量，觀察輸出結果。

2．上機調試并驗證教材第4章4.2節中的例4.1和例4.2。

【實驗說明】

本實驗主要練習變量的隱式聲明和顯示聲明方法。

【實驗分析】

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

首先對變量進行隱式聲明，并觀察其輸出結果；然后改變變量隱式聲明格式，并觀察其輸出結果；最后對變量進行顯式聲明，并觀察其輸出結果。

【示范操作】

1．對變量進行隱式聲明。

（1）在Activate事件過程的開始語句和結束語句之間，輸入語句：

        a=6
        Print a

（2）單擊菜單欄中的“運行”菜單，然后單擊“啟動”命令，并未出現錯誤提示，觀察其輸出結果。

2．改變變量隱式聲明格式。

（1）在Private Sub Form_Activate()語句之前，輸入語句：

        Option Explicit

（2）運行該程序，則出現“變量未定義”的錯誤提示。

3．對變量進行顯式聲明。

（1）在語句“a=6”之前，輸入語句：

        Dim a%

（2）運行該程序，并未出現錯誤提示，觀察其輸出結果。

4．按照以上方法上機調試并驗證教材第4章4.2節中的例4.1和例4.2。

【程序代碼】

        Private Sub Form_Activate()
            a = 6
            Print a
            '其中，變量a是隱式聲明的變量。
        End Sub

        Option Explicit
        Private Sub Form_Activate()
            a = 6
            Print a
            '其中，變量a是隱式聲明的變量。
        End Sub

        Option Explicit
        Private Sub Form_Activate()
            Dim a%
            a = 6
            Print a
            '其中，變量a是顯式聲明的變量。
        End Sub

        Option Explicit
        Private Sub Form_Activate()
            Print safesqr(5)
        End Sub

        Function safesqr(num)
            Dim tempval
            tempval = Abs(num)
            safesqr = Sqr(tempval)
        End Function

本程序定義一個Function過程safesqr，然后在Activate過程中調用并顯示其值。