傳回這個等差數列的總和 [2008-04-15]

    Public Function 傳回這個等差數列的總和(ByVal 開始的數值 As Integer, ByVal 最後的數值 As Integer, ByVal 相鄰兩個數值的差 As Integer) As Integer
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 04 15 PM 08 57 51)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim 數列的總和 As Integer

        For i As Integer = 開始的數值 To 最後的數值 Step 相鄰兩個數值的差
            數列的總和 = 數列的總和 + i
        Next

        Return 數列的總和

    End Function ' 傳回這個等差數列的總和
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -